paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 13:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

AROS: x86_64 needs also BINCOMPAT, TTask fixed type for 64 bit

Browse Source 
git-svn-id: trunk@35028 -
This commit is contained in:
marcus 2016-12-01 17:22:11 +00:00
parent aef26e86d8
commit b02d541e78
4 changed files with 42 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/systems/i_aros.pas
View File

@ -100,7 +100,7 @@ unit i_aros;
flags : [tf_files_case_aware, tf_smartlink_library, tf_has_winlike_resources];
cpu : cpu_x86_64;
unit_env : 'AROSUNITS';
extradefines : 'HASAMIGA';
extradefines : 'HASAMIGA;AROS_FLAVOUR_BINCOMPAT';
exeext : '';
defext : '.def';
scriptext : '.sh';

3
packages/arosunits/src/exec.pas
View File

@ -661,6 +661,9 @@ type
tc_SigExcept: ULONG; // sigs we will take excepts for
tc_TrapAlloc: Word; // traps allocated
tc_TrapAble: Word; // traps enabled
{$ifdef CPU64}
Pad64bit: LongWord;
{$endif}
tc_ExceptData: APTR; // points to except data
tc_ExceptCode: APTR; // points to except code
tc_TrapData: APTR; // points to trap data

2
rtl/aros/doslibd.inc
View File

@ -835,7 +835,7 @@ type // Checked OK 04.08.2011 ALB
ap_Reserved: ShortInt;
ap_Strlen: SmallInt;
ap_Info: TFileInfoBlock;
ap_Buf: array[0..0] of char;
ap_Buf: array[0..255] of char;
{ * an_Buf continues * }
);
end;

3
rtl/aros/i386/execd.inc
View File

@ -615,6 +615,9 @@ type
{$IF 0}
tc_TrapAlloc: Word;
tc_TrapAble : Word;
{$ifdef CPU64}
Pad64bit: LongWord;
{$endif}
{$ELSE}
tc_ETask: Pointer;
{$ENDIF}