Repo Update

- Switched from kyx0r single-file TCC to official TinyCC repository for better runtime support
- Fixed critical workflow state bug preventing multiple CompileString/AddFile calls in sequence
- AddFile and CompileString now correctly allow multiple calls in wsConfigured or wsCompiled states
- This fix enables proper multi-file compilation workflow (e.g., compile to .o, then link with main)
- Official TCC provides proper libtcc1.a runtime library and startup code for EXE generation
- Added comprehensive documentation distinguishing Reset() vs Clear() methods
- Reset() now documented to preserve callbacks while Clear() removes all configuration
- Improved XML documentation for both methods with clear examples of use cases

Author: jarroddavis68

examples/testbed/Testbed.dpr

@@ -41,7 +41,7 @@
  ------------------------------------------------------------------------------
 
  This library uses the following open-source libraries:
-   * tinycc  - https://github.com/kyx0r/tinycc
+   * tinycc - https://github.com/TinyCC/tinycc
 
 ===============================================================================}
 

examples/testbed/UTestbed.pas

@@ -41,7 +41,7 @@
  ------------------------------------------------------------------------------
 
  This library uses the following open-source libraries:
-   * tinycc  - https://github.com/kyx0r/tinycc
+   * tinycc - https://github.com/TinyCC/tinycc
 
 ===============================================================================}
 
@@ -66,63 +66,27 @@ procedure Pause();
   WriteLn;
 end;
 
-procedure Test01();
-type
-  TAddFunc = function(AInt1, AInt2: Integer): Integer; cdecl;
-const
-  // Intentionally broken: "int1" instead of "int"
-  CCode = 'int add(int1 a, int b) { return a + b; }';
+procedure ShowErrors(const ACompiler: TDelphiC);
 var
-  LDC: TDelphiC;
-  LAddFunc: TAddFunc;
   LErrors: TArray<TDCError>;
   LError: TDCError;
 begin
-  WriteLn('=== Test01: Error Handling ===');
-  LDC := TDelphiC.Create();
-  try
-    LDC.SetPrintCallback(
-      nil,
-      procedure (const AText: string; const AUserData: Pointer)
-      begin
-        WriteLn('[TCC] ', AText);
-      end
-    );
-
-    LDC.SetOuput(opMemory);
-
-    WriteLn('Compiling code with intentional error...');
-    if not LDC.CompileString(CCode) then
-    begin
-      WriteLn('Compilation failed (as expected)');
-      WriteLn;
-      LErrors := LDC.GetErrors();
-      WriteLn('Captured ', Length(LErrors), ' error(s):');
-      for LError in LErrors do
-      begin
-        WriteLn('  File: ', LError.Filename);
-        WriteLn('  Line: ', LError.Line);
-        WriteLn('  Type: ', GetEnumName(TypeInfo(TDCErrorType), Ord(LError.ErrorType)));
-        WriteLn('  Msg:  ', LError.Message);
-        WriteLn;
-      end;
-    end
-    else
-    begin
-      WriteLn('ERROR: Compilation should have failed!');
-      if LDC.Relocate() then
-      begin
-        LAddFunc := LDC.GetSymbol('add');
-        if Assigned(LAddFunc) then
-          WriteLn('Result: ', LAddFunc(10, 20));
-      end;
-    end;
-  finally
-    LDC.Free();
+  WriteLn;
+  LErrors := ACompiler.GetErrors();
+  if Length(LErrors) = 0 then Exit;
+
+  WriteLn('Captured ', Length(LErrors), ' error(s):');
+  for LError in LErrors do
+  begin
+    WriteLn('  File: ', LError.Filename);
+    WriteLn('  Line: ', LError.Line);
+    WriteLn('  Type: ', GetEnumName(TypeInfo(TDCErrorType), Ord(LError.ErrorType)));
+    WriteLn('  Msg:  ', LError.Message);
+    WriteLn;
   end;
 end;
 
-procedure Test02();
+procedure Test01();
 type
   TAddFunc = function(AInt1, AInt2: Integer): Integer; cdecl;
 const
@@ -173,10 +137,97 @@ procedure Test02();
       WriteLn('Failed to retrieve symbol "add"');
     end;
   finally
+    ShowErrors(LDC);
     LDC.Free();
   end;
 end;
 
+procedure Test02;
+const
+  CAddCode = 'int add(int a, int b) { return a + b; }';
+  CMainCode = '#include <stdio.h>' + sLineBreak +
+              'int add(int, int);' + sLineBreak +
+              'int main() {' + sLineBreak +
+              '  int result = add(2, 3);' + sLineBreak +
+              '  printf("Result: %d\n", result);' + sLineBreak +
+              '  return 0;' + sLineBreak +
+              '}';
+var
+  LCompiler: TDelphiC;
+
+begin
+  WriteLn('=== Test02: Compile and Link to EXE ===');
+  LCompiler := TDelphiC.Create();
+  try
+    LCompiler.SetPrintCallback(
+      nil,
+      procedure (const AText: string; const AUserData: Pointer)
+      begin
+        WriteLn('[TCC] ', AText);
+      end
+    );
+
+    // Compile unit1 to object file
+    WriteLn('Setting output mode to OBJ...');
+    if not LCompiler.SetOuput(opOBJ) then
+    begin
+      WriteLn('Failed to set output mode to OBJ');
+      Exit;
+    end;
+
+    WriteLn('Compiling add function to object file...');
+    if not LCompiler.CompileString(CAddCode) then
+    begin
+      WriteLn('Failed to compile add function');
+      Exit;
+    end;
+
+    WriteLn('Outputting unit1.o...');
+    if not LCompiler.OutputFile('unit1.o') then
+    begin
+      WriteLn('Failed to output unit1.o');
+      Exit;
+    end;
+
+    // Reset and link everything
+    WriteLn('Resetting compiler...');
+    LCompiler.Reset();
+
+    WriteLn('Setting output mode to EXE...');
+    if not LCompiler.SetOuput(opEXE) then
+    begin
+      WriteLn('Failed to set output mode to EXE');
+      Exit;
+    end;
+
+    WriteLn('Adding unit1.o...');
+    if not LCompiler.AddFile('unit1.o') then
+    begin
+      WriteLn('Failed to add unit1.o');
+      Exit;
+    end;
+
+    WriteLn('Compiling main program...');
+    if not LCompiler.CompileString(CMainCode) then
+    begin
+      WriteLn('Failed to compile main program');
+      Exit;
+    end;
+
+    WriteLn('Outputting program.exe...');
+    if not LCompiler.OutputFile('program.exe') then
+    begin
+      WriteLn('Failed to output program.exe');
+      Exit;
+    end;
+
+    WriteLn('SUCCESS: program.exe created');
+  finally
+    ShowErrors(LCompiler);
+    LCompiler.Free();
+  end;
+end;
+
 procedure RunTests();
 var
   LNum: Integer;

src/DelphiC.pas

@@ -41,7 +41,7 @@
  ------------------------------------------------------------------------------
 
  This library uses the following open-source libraries:
-   * tinycc  - https://github.com/kyx0r/tinycc
+   * tinycc - https://github.com/TinyCC/tinycc
 
 ===============================================================================}
 
@@ -337,15 +337,52 @@     TCallback<T> = record
     procedure ClearErrors();
 
     /// <summary>
-    ///   Resets the compiler to initial state, destroying and recreating the TCC context.
+    ///   Resets the compiler to initial state while preserving callback registrations.
     /// </summary>
     /// <remarks>
-    ///   This allows reuse of the same TDelphiC instance for multiple compilation sessions.
-    ///   All previous configuration, compilation state, and symbols are lost.
+    ///   <para>
+    ///     Destroys and recreates the TCC compilation context, allowing reuse of the
+    ///     same TDelphiC instance for multiple compilation sessions.
+    ///   </para>
+    ///   <para>
+    ///     All previous configuration, compilation state, and symbols are lost.
+    ///   </para>
+    ///   <para>
+    ///     <b>Preserved:</b> Print callback registration (set via SetPrintCallback)
+    ///   </para>
+    ///   <para>
+    ///     <b>Cleared:</b> Output type, compiler options, include/library paths,
+    ///     defined symbols, compiled code, and workflow state
+    ///   </para>
+    ///   <para>
+    ///     Use <see cref="Clear"/> if you also want to remove callback registrations.
+    ///   </para>
     /// </remarks>
     /// <exception cref="Exception">Raised if TCC reinitialization fails</exception>
     procedure Reset();
 
+    /// <summary>
+    ///   Completely resets the compiler to pristine initial state, clearing all
+    ///   configuration including callback registrations.
+    /// </summary>
+    /// <remarks>
+    ///   <para>
+    ///     Performs the same reset as <see cref="Reset"/> but also clears all
+    ///     callback registrations, returning the instance to a completely clean state
+    ///     as if freshly created.
+    ///   </para>
+    ///   <para>
+    ///     <b>Cleared:</b> Print callback registration, output type, compiler options,
+    ///     include/library paths, defined symbols, compiled code, and workflow state
+    ///   </para>
+    ///   <para>
+    ///     Use this when you want a completely fresh start without any residual
+    ///     configuration. Use <see cref="Reset"/> if you want to keep your callbacks.
+    ///   </para>
+    /// </remarks>
+    /// <exception cref="Exception">Raised if TCC reinitialization fails</exception>
+    procedure Clear();
+
     /// <summary>
     ///   Sets a callback function to receive TCC error and warning messages.
     /// </summary>
@@ -854,9 +891,6 @@ procedure TDelphiC.FreeState();
   begin
     tcc_delete(FState);
     FState := nil;
-
-    FPrintCallback.Handler := nil;
-    FPrintCallback.UserData := nil;
   end;
 end;
 
@@ -913,6 +947,16 @@ procedure TDelphiC.Reset();
   NewState();
 end;
 
+procedure TDelphiC.Clear();
+begin
+  Reset();
+
+  // Reset callbacks
+  FPrintCallback.Handler := nil;
+  FPrintCallback.UserData := nil;
+end;
+
+
 function TDelphiC.AddIncludePath(const APathName: string): Boolean;
 begin
   // Allow in new or configured state, but not after compilation
@@ -1081,14 +1125,14 @@ function TDelphiC.CompileString(const ACode, AFilename: string): Boolean;
   LCode: string;
 begin
   // Must set output type first, and not be past compilation stage
-  if not FOutputSet or (FWorkflowState > wsConfigured) then
+  if not FOutputSet or (FWorkflowState <> wsConfigured) and (FWorkflowState <> wsCompiled) then
   begin
     Result := False;
     Exit;
   end;
 
   LCode := '#line 1 "' + AFilename + '"' + #13#10 + ACode;
-  Result := tcc_compile_string(FState, AsUTF8(LCode)) >= 0;
+  Result := Boolean(tcc_compile_string(FState, AsUTF8(LCode)) >= 0);
   if Result then
     FWorkflowState := wsCompiled;
 end;
@@ -1106,7 +1150,7 @@ function TDelphiC.CompileFile(const AFilename: string): Boolean;
 function TDelphiC.AddFile(const AFilename: string): Boolean;
 begin
   // Must set output type first, and not be past compilation stage
-  if not FOutputSet or (FWorkflowState > wsConfigured) then
+  if not FOutputSet or (FWorkflowState <> wsConfigured) and (FWorkflowState <> wsCompiled) then
   begin
     Result := False;
     Exit;
@@ -1565,7 +1609,7 @@ function LoadTCCDLL(out AError: string): Boolean;
   Result := False;
   if LTCCDllHandle <> 0 then Exit(True);
 
-  LTCCDllHandle := LoadLibrary('tcc.dll');
+  LTCCDllHandle := LoadLibrary('libtcc.dll');
   if LTCCDllHandle = 0 then
   begin
     AError := 'Failed to load TCC DLL';