Explorar el Código

Add a possiblity for targets to specify additional fields for TEntryInformation using an optional sub record called TEntryInformationOS

rtl/inc/systemh.inc:
  + add field OS of type TEntryInformationOS if the target specifies HAS_ENTRYINFORMATION_OS
rtl/java/jsystemh_types.inc:
  + same adjustments as above for consistency reasons despite it being not used there anyway

git-svn-id: trunk@33024 -
svenbarth hace 9 años
padre
commit
3da7675eb1
Se han modificado 2 ficheros con 6 adiciones y 1 borrados
  1. 3 1
      rtl/inc/systemh.inc
  2. 3 0
      rtl/java/jsystemh_types.inc

+ 3 - 1
rtl/inc/systemh.inc

@@ -604,9 +604,11 @@ type
   TEntryInformation = record
     InitFinalTable : Pointer;
     ThreadvarTablesTable : Pointer;
-    asm_exit : Procedure;stdcall;
     PascalMain : Procedure;
     valgrind_used : boolean;
+    {$ifdef HAS_ENTRYINFORMATION_OS}
+    OS : TEntryInformationOS;
+    {$endif HAS_ENTRYINFORMATION_OS}
   end;
 
 

+ 3 - 0
rtl/java/jsystemh_types.inc

@@ -543,6 +543,9 @@ type
     asm_exit : Procedure;stdcall;
     PascalMain : Procedure;
     valgrind_used : boolean;
+    {$ifdef HAS_ENTRYINFORMATION_OS}
+    OS : TEntryInformationOS;
+    {$endif HAS_ENTRYINFORMATION_OS}
   end;
 *)