Explorar el Código

+ ModuleIs* typed consts added

git-svn-id: trunk@7799 -
florian hace 18 años
padre
commit
5c58f69595
Se han modificado 1 ficheros con 4 adiciones y 0 borrados
  1. 4 0
      rtl/inc/systemh.inc

+ 4 - 0
rtl/inc/systemh.inc

@@ -356,6 +356,10 @@ const
   { Indicates if there was an error }
   { Indicates if there was an error }
   StackError : boolean = FALSE;
   StackError : boolean = FALSE;
   InitProc : Pointer = nil;
   InitProc : Pointer = nil;
+  { compatibility }
+  ModuleIsLib : Boolean = FALSE;
+  ModuleIsPackage : Boolean = FALSE;
+  ModuleIsCpp : Boolean = FALSE;
 
 
 var
 var
   ExitCode    : Longint; public name 'operatingsystem_result';
   ExitCode    : Longint; public name 'operatingsystem_result';