Repo Update

- Added libLLVMReset() to libLLVM.API.
- Added Reset() class method to TLLVM class, which uses libLLVMReset() to reset LLVM back to a known state.
- All the LinkXXX routines in TLLMetaLang class now call TLLVM.Reset() after calling LLDLink to clean up "dirty" global state left by LLD.
-  Add RunExe class method to TLLUtils class
- Updated UTestbed until to allow you to test the dll/exe created from Test #17, which will be Tests #18, and #19 respectively
- Other misc. fixes and enhancements

Author: jarroddavis68

examples/testbed/UTestbed.pas

@@ -43,20 +43,33 @@ implementation
   libLLVM.Test.ObjectCompilation,
   libLLVM.Test.MetaLang;
 
-// Test add_two_numbers DLL created by Test #17, make sure you run it first
+// Test add_two_numbers.dll created by Test #17, make sure you run it first
 {$WARN SYMBOL_PLATFORM OFF}
 function add_two_numbers(a, b: int32): int32; cdecl; external 'simple_math.dll' delayed;
 {$WARN SYMBOL_PLATFORM ON}
 procedure test_add_two_numbers_dll();
 begin
   if not TFile.Exists('simple_math.dll') then
   begin
-    raise Exception.Create('You must run Test #17 first');
+    raise Exception.Create('add_two_numbers.dll not found, you must run Test #17 first!');
   end;
 
+  TLLUtils.PrintLn('Running simple_math.dll...');
   TLLUtils.PrintLn('10 + 10 = %d', [add_two_numbers(10, 10)]);
 end;
 
+// Test hello_world.exe created by Test #17, make sure you run it first
+procedure test_hello_world_exe();
+begin
+  if not TFile.Exists('hello_world.exe') then
+  begin
+    raise Exception.Create('hello_world.exe not found, you must run Test #17 first!');
+  end;
+
+  TLLUtils.PrintLn('Running hello_world.exe...');
+  TLLUtils.RunExe('hello_world.exe', '', '')
+end;
+
 procedure RunTests();
 var
   LNum: UInt32;
@@ -87,14 +100,15 @@ procedure RunTests();
       16: TTestObjectCompilation.RunAllTests();
       17: TTestMetaLang.RunAllTests();
       18: test_add_two_numbers_dll();
+      19: test_hello_world_exe();
 
     else
       TLLUtils.Print('Invalid test number.');
     end;
 
   except
     on E: Exception do
-      Writeln(E.ClassName, ': ', E.Message);
+      TLLUtils.PrintLn('Fatal error: %s', [E.Message]);
   end;
 
   TLLUtils.Pause();

src/libLLVM.API.pas

@@ -1,4 +1,4 @@
-{===============================================================================
+{===============================================================================
       _ _ _    _    _ __   ____  __ ™
      | (_) |__| |  | |\ \ / /  \/  |
      | | | '_ \ |__| |_\ V /| |\/| |
@@ -2428,7 +2428,7 @@   LLVMOrcCLookupSetElement = record
   LLVMDisposePassBuilderOptions: procedure(Options: LLVMPassBuilderOptionsRef); cdecl;
   LLD_Link: function(argc: Integer; argv: PPUTF8Char; const flavor: PUTF8Char; canRunAgain: PInteger): Integer; cdecl;
 
-procedure GetExports(const aDLLHandle: THandle);
+procedure libLLVMReset();
 
 implementation
 
@@ -3771,6 +3771,12 @@ procedure UnloadDLL();
   end;
 end;
 
+procedure libLLVMReset();
+begin
+  UnloadDLL();
+  LoadDLL();
+end;
+
 initialization
 begin
   // turn on memory leak detection

src/libLLVM.LLD.pas

@@ -108,7 +108,8 @@ implementation
   WinApi.Windows,
   System.SysUtils,
   System.Classes,
-  libLLVM.API;
+  libLLVM.API,
+  libLLVM;
 
 type
   TPipeReader = class(TThread)
@@ -355,6 +356,7 @@ function LLDLink(const AArgs: array of string; const AFlavor: string;
         // Close read ends
         CloseHandle(OutRead);
         CloseHandle(ErrRead);
+
       end;
     except
       on E: Exception do

src/libLLVM.MetaLang.pas

@@ -1218,10 +1218,10 @@ function TLLMetaLang.LinkToDLL(
   // Call LLD linker
   LCan := False;
   AResult := LLDLink(LArgs, 'coff', AStdOut, AStdErr, LCan);
-  
-  // Reset JIT after linking to clear LLD's persistent state
-  //FLLVM.ResetJIT(AModuleId);
-  
+
+  // clean up after LLD call
+  TLLVM.Reset();
+
   Result := Self;
 end;
 
@@ -1287,7 +1287,8 @@ function TLLMetaLang.LinkToExecutable(
   LCan := False;
   AResult := LLDLink(LArgs, 'coff', AStdOut, AStdErr, LCan);
 
-  writeln(LCan);
+  // clean up after LLD call
+  TLLVM.Reset();
 
   Result := Self;
 end;
@@ -1412,7 +1413,10 @@ function TLLMetaLang.LinkModuleToDLL(
   // Call LLD linker
   LCan := False;
   AResult := LLDLink(LArgs, 'coff', AStdOut, AStdErr, LCan);
-  
+
+  // clean up after LLD call
+  TLLVM.Reset();
+
   Result := Self;
 end;
 
@@ -1572,7 +1576,10 @@ function TLLMetaLang.LinkAllModulesToDLL(
   // Call LLD linker
   LCan := False;
   AResult := LLDLink(LArgs, 'coff', AStdOut, AStdErr, LCan);
-  
+
+  // clean up after LLD call
+  TLLVM.Reset();
+
   Result := Self;
 end;
 

src/libLLVM.Utils.pas

@@ -87,6 +87,9 @@   TLLUtils = class
     class procedure Pause(); static;
 
     class function  AsUTF8(const AValue: string; ALength: PCardinal=nil): Pointer; static;
+
+    class function RunExe(const AExe, AParams, AWorkDir: string; const AWait: Boolean = True; const AShowCmd: Word = SW_SHOWNORMAL): Cardinal; static;
+
   end;
 
 implementation
@@ -537,6 +540,72 @@ class function TLLUtils.AsUTF8(const AValue: string; ALength: PCardinal): Pointe
     ALength^ := System.AnsiStrings.StrLen(PAnsiChar(Result));
 end;
 
+class function TLLUtils.RunExe(const AExe, AParams, AWorkDir: string; const AWait: Boolean; const AShowCmd: Word): Cardinal;
+var
+  LCmd: UnicodeString;
+  LSI: STARTUPINFOW;
+  LPI: PROCESS_INFORMATION;
+  LWorkDir: PWideChar;
+  LExit: DWORD;
+  LCreationFlags: DWORD;
+begin
+  Result := 0;
+
+  if AExe = '' then
+    raise Exception.Create('RunExe: Executable path is empty');
+
+  if AParams <> '' then
+    LCmd := '"' + AExe + '" ' + AParams
+  else
+    LCmd := '"' + AExe + '"';
+
+  UniqueString(LCmd); // CreateProcess may modify the buffer
+
+  ZeroMemory(@LSI, SizeOf(LSI));
+  ZeroMemory(@LPI, SizeOf(LPI));
+  LSI.cb := SizeOf(LSI);
+  LSI.dwFlags := STARTF_USESHOWWINDOW;
+  LSI.wShowWindow := AShowCmd;
+
+  if AWorkDir <> '' then
+    LWorkDir := PWideChar(AWorkDir)
+  else
+    LWorkDir := nil;
+
+  LCreationFlags := CREATE_UNICODE_ENVIRONMENT;
+
+  if not CreateProcessW(
+    nil,                   // lpApplicationName
+    PWideChar(LCmd),       // lpCommandLine (mutable)
+    nil,                   // lpProcessAttributes
+    nil,                   // lpThreadAttributes
+    False,                 // bInheritHandles
+    LCreationFlags,        // dwCreationFlags
+    nil,                   // lpEnvironment
+    LWorkDir,              // lpCurrentDirectory
+    LSI,                   // lpStartupInfo
+    LPI                    // lpProcessInformation
+  ) then
+    raise Exception.CreateFmt('RunExe: CreateProcess failed (%d) %s', [GetLastError, SysErrorMessage(GetLastError)]);
+
+  try
+    if AWait then
+    begin
+      WaitForSingleObject(LPI.hProcess, INFINITE);
+      LExit := 0;
+      if GetExitCodeProcess(LPI.hProcess, LExit) then
+        Result := LExit
+      else
+        raise Exception.CreateFmt('RunExe: GetExitCodeProcess failed (%d) %s', [GetLastError, SysErrorMessage(GetLastError)]);
+    end
+    else
+      Result := 0;
+  finally
+    CloseHandle(LPI.hThread);
+    CloseHandle(LPI.hProcess);
+  end;
+end;
+
 initialization
 begin
   TLLUtils.InitConsole();

src/libLLVM.pas

@@ -199,6 +199,7 @@   TLLVM = class
     constructor Create();
     destructor Destroy(); override;
 
+    class procedure Reset(); static;
     class function GetVersionStr(): string; static;
     class function GetLLVMVersionStr(): string; static;
 
@@ -433,6 +434,7 @@ class procedure TLLVM.Shutdown();
   LLVMShutdown();
 end;
 
+
 constructor TLLVM.Create;
 begin
   inherited Create();
@@ -490,6 +492,13 @@ destructor TLLVM.Destroy;
   inherited Destroy();
 end;
 
+class procedure TLLVM.Reset();
+begin
+  Shutdown();
+  libLLVMReset();
+  Startup();
+end;
+
 class function TLLVM.GetVersionStr(): string;
 begin
   Result := Format('%d.%d.%d', [libLLVM_MAJOR, libLLVM_MINOR, libLLVM_PATCH])

src/tests/libLLVM.Test.MetaLang.pas

@@ -21,7 +21,8 @@ interface
   System.IOUtils,
   libLLVM.Utils,
   libLLVM,
-  libLLVM.MetaLang;
+  libLLVM.MetaLang,
+  libLLVM.API;
 
 type
   { TTestMetaLang }
@@ -55,6 +56,10 @@ class procedure TTestMetaLang.RunAllTests();
 begin
   TLLUtils.PrintLn('Running libLLVM.Test.MetaLang...');
 
+  // Comprehensive examples
+  TestComprehensiveMathDLL();
+  TestComprehensiveHelloWorld();
+
   // Simple focused tests
   TestModuleCreation();
   TestBasicFunction();
@@ -68,11 +73,6 @@ class procedure TTestMetaLang.RunAllTests();
   TestMemoryOperations();
   TestExportedFunction();
 
-  // Comprehensive examples
-  TestComprehensiveMathDLL();
-  TestComprehensiveHelloWorld();
-
-  
   TLLUtils.PrintLn('libLLVM.Test.MetaLang completed.');
 end;