Repo Update

- Fix range check error with negative integers in ExtractLLVMValue()

Author: jarroddavis68

examples/testbed/UTestbed.pas

@@ -56,7 +56,7 @@ procedure RunTests();
       03: TTestBitwise.RunAllTests();
       04: TTestComparison.RunAllTests();
       05: TTestControlFlow.RunAllTests();
-      //06: TTestFunctionCall.RunAllTests();  // TODO: fix range check error
+      06: TTestFunctionCall.RunAllTests();
       07: TTestFunction.RunAllTests();
       08: TTestJIT.RunAllTests();
       09: TTestMemory.RunAllTests();

src/libLLVM.pas

@@ -600,22 +600,32 @@ function TLLVM.LLVMTypeToBasicType(ALLVMType: LLVMTypeRef): TLLDataType;
 end;
 
 // Direct TValue <-> LLVM conversion (NO TPaValue!)
+
+procedure test1();
+begin
+end;
+
+procedure test2();
+begin
+end;
+
+
 function TLLVM.ExtractLLVMValue(const AModuleId: string; const AValue: TValue): LLVMValueRef;
 var
   LModuleState: TLLModuleState;
 begin
   LModuleState := GetModuleState(AModuleId);
-  
+
   if AValue.IsEmpty then
     raise Exception.Create('Cannot convert empty TValue to LLVM value')
   else if AValue.IsType<LLVMValueRef> then
     Result := AValue.AsType<LLVMValueRef>  // Already an LLVM value
   else if AValue.IsType<string> then
     Result := ExtractLLVMValue(AModuleId, StringValue(AModuleId, AValue.AsString))
   else if AValue.IsType<Integer> then
-    Result := LLVMConstInt(GetBasicType(dtInt32, LModuleState.Context), AValue.AsInteger, 1)
+    Result := LLVMConstInt(GetBasicType(dtInt32, LModuleState.Context), UInt64(AValue.AsInteger), 1)
   else if AValue.IsType<Int64> then
-    Result := LLVMConstInt(GetBasicType(dtInt64, LModuleState.Context), AValue.AsInt64, 1)
+    Result := LLVMConstInt(GetBasicType(dtInt64, LModuleState.Context), UInt64(AValue.AsInt64), 1)
   else if AValue.IsType<Boolean> then
     Result := LLVMConstInt(GetBasicType(dtInt1, LModuleState.Context), Ord(AValue.AsBoolean), 0)
   else if AValue.IsType<Double> then

src/tests/libLLVM.Test.FunctionCall.pas

@@ -476,7 +476,7 @@ class procedure TTestFunctionCall.TestVoidFunctionCalls();
   begin
     try
       CreateModule('void_test')
-      
+
       // Global variables for side effect demonstration
       .DeclareGlobal('void_test', 'counter', dtInt32, 0)
       .DeclareGlobal('void_test', 'accumulator', dtInt32, 0)
@@ -580,6 +580,8 @@ class procedure TTestFunctionCall.TestVoidFunctionCalls();
       Free();
     end;
   end;
+
+  writeln('got there');
 end;
 
 (**