瀏覽代碼

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 9 年之前
父節點
當前提交
3da7675eb1
共有 2 個文件被更改,包括 6 次插入1 次删除
  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;
 *)