Repo Update

- Add TLLVM.CompileModuleToObject() method for single module compilation
- Add TLLVM.CompileAllModulesToObjects() method for batch compilation
- Add TLLVM.GetObjectFileExtension() class method for platform-specific extensions
- Add libLLVM.Test.ObjectCompilation unit with comprehensive test coverage
- Add TestSingleModuleCompilation() test method
- Add TestBatchModuleCompilation() test method
- Add TestOptimizationLevels() test method
- Add TestFileExtensions() test method
- Add TestOutputDirectories() test method
- Add TestErrorConditions() test method
- Add TestFileVerification() test method
- Modernize all file operations to use TFile/TDirectory/TPath APIs
- Implement consistent ModuleId + extension filename strategy
- Add automatic directory creation for output paths

Author: jarroddavis68

.gitignore

@@ -90,3 +90,4 @@ changes.diff
 zip_latest_commit.cmd
 !/bin/libs/*
 checkpoint.zip
+bin/output

examples/testbed/Testbed.dpr

@@ -39,7 +39,8 @@ uses
   libLLVM.Test.Values in '..\..\src\tests\libLLVM.Test.Values.pas',
   libLLVM.Test.Variable in '..\..\src\tests\libLLVM.Test.Variable.pas',
   libLLVM.Test.CodeGen in '..\..\src\tests\libLLVM.Test.CodeGen.pas',
-  libLLVM.LLD in '..\..\src\libLLVM.LLD.pas';
+  libLLVM.LLD in '..\..\src\libLLVM.LLD.pas',
+  libLLVM.Test.ObjectCompilation in '..\..\src\tests\libLLVM.Test.ObjectCompilation.pas';
 
 begin
   RunTests();

examples/testbed/Testbed.dproj

@@ -137,6 +137,7 @@
         <DCCReference Include="..\..\src\tests\libLLVM.Test.Variable.pas"/>
         <DCCReference Include="..\..\src\tests\libLLVM.Test.CodeGen.pas"/>
         <DCCReference Include="..\..\src\libLLVM.LLD.pas"/>
+        <DCCReference Include="..\..\src\tests\libLLVM.Test.ObjectCompilation.pas"/>
         <BuildConfiguration Include="Base">
             <Key>Base</Key>
         </BuildConfiguration>

examples/testbed/UTestbed.pas

@@ -37,7 +37,8 @@ implementation
   libLLVM.Test.Comparison,
   libLLVM.Test.Bitwise,
   libLLVM.Test.BasicBlock,
-  libLLVM.Test.Arithmetic;
+  libLLVM.Test.Arithmetic,
+  libLLVM.Test.ObjectCompilation;
 
 procedure RunTests();
 var
@@ -48,7 +49,7 @@ procedure RunTests();
     TLLUtils.PrintLn('Running LLVM v%s', [TLLVM.GetLLVMVersionStr()]);
     TLLUtils.PrintLn();
 
-    LNum := 15;
+    LNum := 22;
 
     case LNum of
       01: TTestArithmetic.RunAllTests();
@@ -66,6 +67,15 @@ procedure RunTests();
       13: TTestValues.RunAllTests();
       14: TTestVariable.RunAllTests();
       15: TTestCodeGen.RunAllTests();
+
+      16: TTestObjectCompilation.TestSingleModuleCompilation();
+      17: TTestObjectCompilation.TestBatchModuleCompilation();
+      18: TTestObjectCompilation.TestOptimizationLevels();
+      19: TTestObjectCompilation.TestFileExtensions();
+      20: TTestObjectCompilation.TestOutputDirectories();
+      21: TTestObjectCompilation.TestErrorConditions();
+      22: TTestObjectCompilation.TestFileVerification();
+
     else
       TLLUtils.Print('Invalid test number.');
     end;

src/libLLVM.pas

@@ -52,13 +52,15 @@
 interface
 
 uses
+  WinApi.Windows,
   System.Types,
   System.SysUtils,
   System.AnsiStrings,
   System.TypInfo,
   System.Classes,
   System.Rtti,
   System.Math,
+  System.IOUtils,
   System.Generics.Collections,
   libLLVM.API,
   libLLVM.Utils;
@@ -112,6 +114,14 @@ interface
     ccFastCall      // LLVMX86FastcallCallConv
   );
 
+  { TLLOptimization }
+  TLLOptimization = (
+    olDebug,        // No optimization - best for debugging
+    olSize,         // Optimize for size/compile speed
+    olSpeed,        // Balanced speed optimization (default)
+    olMaximum       // Maximum optimization
+  );
+
   { TLLParam }
   TLLParam = record
     ParamName: string;
@@ -164,6 +174,7 @@   TLLVM = class
     function GetBasicType(const ABasicType: TLLDataType; const AContext: LLVMContextRef): LLVMTypeRef;
     function GetLLVMCallingConv(const ACallingConv: TLLCallingConv): LLVMCallConv;
     function GetLLVMLinkage(const AVisibility: TLLVisibility): LLVMLinkage;
+    function GetLLVMOptLevel(const AOptLevel: TLLOptimization): LLVMCodeGenOptLevel;
     {$HINTS OFF}
     function LLVMTypeToBasicType(ALLVMType: LLVMTypeRef): TLLDataType;
     {$HINTS ON}
@@ -203,6 +214,13 @@   TLLVM = class
     function ValidateModule(const AModuleId: string): Boolean;
     function GetRequiredLibraries(const AModuleId: string): TArray<string>;
 
+    // Object file compilation
+    class function GetObjectFileExtension(): string; static;
+    function CompileModuleToObject(const AModuleId: string; const AOutputPath: string = ''; 
+      const AOptLevel: TLLOptimization = olSpeed): string;
+    function CompileAllModulesToObjects(const AOutputDirectory: string; 
+      const AOptLevel: TLLOptimization = olSpeed): TArray<string>;
+    
     // Function declaration
     function BeginFunction(const AModuleId: string; const AFunctionName: string; const AReturnType: TLLDataType;
       const AParams: array of TLLParam; const AVisibility: TLLVisibility = vPublic;
@@ -488,6 +506,19 @@ class function TLLVM.GetLLVMVersionStr(): string;
   Result := Format('%d.%d.%d', [LMajor, LMinor, LPatch]);
 end;
 
+class function TLLVM.GetObjectFileExtension(): string;
+begin
+  {$IFDEF MSWINDOWS}
+  Result := '.obj';
+  {$ELSE}
+    {$IFDEF DARWIN}
+    Result := '.o';
+    {$ELSE}
+    Result := '.o';  // Linux and other Unix-like systems
+    {$ENDIF}
+  {$ENDIF}
+end;
+
 function TLLVM.SetTargetPlatform(const ATriple: string; const ADataLayout: string): TLLVM;
 begin
   FTargetTriple := ATriple;
@@ -563,6 +594,18 @@ function TLLVM.GetLLVMLinkage(const AVisibility: TLLVisibility): LLVMLinkage;
   end;
 end;
 
+function TLLVM.GetLLVMOptLevel(const AOptLevel: TLLOptimization): LLVMCodeGenOptLevel;
+begin
+  case AOptLevel of
+    olDebug: Result := LLVMCodeGenLevelNone;
+    olSize: Result := LLVMCodeGenLevelLess;
+    olSpeed: Result := LLVMCodeGenLevelDefault;
+    olMaximum: Result := LLVMCodeGenLevelAggressive;
+  else
+    Result := LLVMCodeGenLevelDefault;
+  end;
+end;
+
 function TLLVM.LLVMTypeToBasicType(ALLVMType: LLVMTypeRef): TLLDataType;
 var
   LKind: LLVMTypeKind;
@@ -839,6 +882,101 @@ function TLLVM.GetRequiredLibraries(const AModuleId: string): TArray<string>;
     SetLength(Result, 0);
 end;
 
+function TLLVM.CompileModuleToObject(const AModuleId: string; const AOutputPath: string; 
+  const AOptLevel: TLLOptimization): string;
+var
+  LModuleState: TLLModuleState;
+  LTargetMachine: LLVMTargetMachineRef;
+  LTarget: LLVMTargetRef;
+  LTriple: PAnsiChar;
+  LCPU: PAnsiChar;
+  LFeatures: PAnsiChar;
+  LError: PAnsiChar;
+  LOutputDir: string;
+  LFileName: string;
+  LFullPath: string;
+begin
+  LModuleState := GetModuleState(AModuleId);
+  
+  // Always auto-generate filename from module ID
+  LFileName := TPath.ChangeExtension(AModuleId, GetObjectFileExtension());
+  
+  // Handle directory - default to current if empty
+  if AOutputPath = '' then
+    LOutputDir := TDirectory.GetCurrentDirectory()
+  else
+    LOutputDir := AOutputPath;
+    
+  // Ensure directory exists
+  if not TDirectory.Exists(LOutputDir) then
+    TDirectory.CreateDirectory(LOutputDir);
+  
+  // Combine directory + filename using TPath
+  LFullPath := TPath.Combine(LOutputDir, LFileName);
+  
+  // Get target information  
+  LTriple := LLVMGetDefaultTargetTriple();
+  LCPU := LLVMGetHostCPUName();
+  LFeatures := LLVMGetHostCPUFeatures();
+  
+  try
+    // Find target for triple
+    if LLVMGetTargetFromTriple(LTriple, @LTarget, @LError) <> 0 then
+    begin
+      LLVMDisposeMessage(LError);
+      raise Exception.CreateFmt('Failed to get target for triple %s', [string(UTF8String(LTriple))]);
+    end;
+    
+    // Create target machine
+    LTargetMachine := LLVMCreateTargetMachine(LTarget, LTriple, LCPU, LFeatures, 
+      GetLLVMOptLevel(AOptLevel), LLVMRelocDefault, LLVMCodeModelDefault);
+    if LTargetMachine = nil then
+      raise Exception.Create('Failed to create target machine');
+    
+    try
+      // Emit to object file
+      if LLVMTargetMachineEmitToFile(LTargetMachine, LModuleState.Module, 
+        PAnsiChar(AnsiString(LFullPath)), LLVMObjectFile, @LError) <> 0 then
+      begin
+        LLVMDisposeMessage(LError);
+        raise Exception.CreateFmt('Failed to emit object file: %s', [LFullPath]);
+      end;
+      
+      Result := LFullPath;
+    finally
+      LLVMDisposeTargetMachine(LTargetMachine);
+    end;
+  finally
+    LLVMDisposeMessage(LTriple);
+    LLVMDisposeMessage(LCPU);
+    LLVMDisposeMessage(LFeatures);
+  end;
+end;
+
+function TLLVM.CompileAllModulesToObjects(const AOutputDirectory: string; 
+  const AOptLevel: TLLOptimization): TArray<string>;
+var
+  LModulePair: TPair<string, TLLModuleState>;
+  LResults: TList<string>;
+begin
+  LResults := TList<string>.Create();
+  try
+    // Ensure output directory exists
+    if not TDirectory.Exists(AOutputDirectory) then
+      TDirectory.CreateDirectory(AOutputDirectory);
+    
+    // Compile each module
+    for LModulePair in FModules do
+    begin
+      LResults.Add(CompileModuleToObject(LModulePair.Key, AOutputDirectory, AOptLevel));
+    end;
+    
+    Result := LResults.ToArray();
+  finally
+    LResults.Free();
+  end;
+end;
+
 // Function declaration
 function TLLVM.BeginFunction(const AModuleId: string; const AFunctionName: string; const AReturnType: TLLDataType;
   const AParams: array of TLLParam; const AVisibility: TLLVisibility; const ACallingConv: TLLCallingConv;