add SIMBACOMMIT_XXX define and SIMBACOMMIT macro

Author: ollydev

Source/script/imports/simba.import_base.pas

@@ -819,6 +819,7 @@ procedure ImportBase(Script: TSimbaScript);
 
     addBaseDefine('SIMBA' + Format('%d', [SIMBA_VERSION]));
     addBaseDefine('SIMBAMAJOR' + Format('%d', [SIMBA_MAJOR]));
+    addBaseDefine('SIMBACOMMIT_' + SIMBA_COMMIT);
     addBaseDefine('FPC' + Format('%d', [FPC_FULLVERSION]));
     addBaseDefine(CPU);
     addBaseDefine(OS);

Source/script/simba.script.pas

@@ -115,6 +115,11 @@ function TSimbaScript.DoCompilerMacro(Sender: TLapeCompiler; Name, Argument: lpS
         end;
         Value := 'TStringArray([' + Value + '])';
       end;
+
+    'SIMBACOMMIT':
+      begin
+        Value := #39 + SIMBA_COMMIT + #39;
+      end;
   end;
 end;
 
@@ -182,6 +187,7 @@ function TSimbaScript.Compile: Boolean;
   FCompiler.addPreprocessorMacro('FINDLIB', @DoCompilerMacro);
   FCompiler.addPreprocessorMacro('LOADEDLIB', @DoCompilerMacro);
   FCompiler.addPreprocessorMacro('LOADEDLIBS', @DoCompilerMacro);
+  FCompiler.addPreprocessorMacro('SIMBACOMMIT', @DoCompilerMacro);
 
   FCompiler.addPreprocessorFunc('LOADEDLIB', @DoCompilerPreprocessorFunc);
   FCompiler.addPreprocessorFunc('FINDLIB', @DoCompilerPreprocessorFunc);