paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 01:08:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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 -
This commit is contained in:
svenbarth 2016-01-29 15:32:33 +00:00
parent b525cecad8
commit 3da7675eb1
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/systemh.inc
View File

@ -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
rtl/java/jsystemh_types.inc
View File

@ -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;
*)