mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 08:30:54 +02:00
AROS: x86_64 needs also BINCOMPAT, TTask fixed type for 64 bit
git-svn-id: trunk@35028 -
This commit is contained in:
marcus
parent
aef26e86d8
commit
b02d541e78
@ -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';
|
||||
|
||||
@ -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
|
||||
|
||||
@ -57,7 +57,7 @@ const // Checked OK 04.08.2011 ALB
|
||||
ACCESS_WRITE = EXCLUSIVE_LOCK;
|
||||
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
PDateStamp = ^TDateStamp;
|
||||
PDateStamp = ^TDateStamp;
|
||||
TDateStamp = record
|
||||
ds_Days : LongInt;
|
||||
ds_Minute: LongInt;
|
||||
@ -68,12 +68,12 @@ const // Checked OK 04.08.2011 ALB
|
||||
TICKS_PER_SECOND = 50;
|
||||
|
||||
const // Checked OK 04.08.2011 ALB
|
||||
MAXFILENAMELENGTH = 108;
|
||||
MAXCOMMENTLENGTH = 80;
|
||||
MAXFILENAMELENGTH = 108;
|
||||
MAXCOMMENTLENGTH = 80;
|
||||
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
PFileInfoBlock = ^TFileInfoBlock;
|
||||
TFileInfoBlock = record
|
||||
TFileInfoBlock = record
|
||||
fib_DiskKey : PtrUInt;
|
||||
fib_DirEntryType: LongInt;
|
||||
fib_FileName : array[0..MAXFILENAMELENGTH - 1] of char;
|
||||
@ -138,7 +138,7 @@ type // Checked OK 04.08.2011 ALB
|
||||
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
PInfoData = ^TInfoData;
|
||||
TInfoData = record
|
||||
TInfoData = record
|
||||
id_NumSoftErrors: LongInt; // Number of soft errors on device.
|
||||
id_UnitNumber : LongInt; // Unit number of device.
|
||||
id_DiskState : LongInt; // State the current volume is in (see below).
|
||||
@ -276,7 +276,7 @@ const // Checked OK 04.08.2011 ALB
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
{ * Required to avoid conflict with default types * }
|
||||
_PDateTime = ^_TDateTime;
|
||||
_TDateTime = record
|
||||
_TDateTime = record
|
||||
dat_Stamp : TDateStamp;
|
||||
dat_Format : Byte;
|
||||
dat_Flags : Byte;
|
||||
@ -312,12 +312,12 @@ const // Checked OK 04.08.2011 ALB
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
PProcess = ^TProcess;
|
||||
TProcess = record
|
||||
pr_Task : TTask; // Embedded task structure
|
||||
pr_Task : TTask; // Embedded task structure
|
||||
pr_MsgPort : TMsgPort; // Processes standard message-port. Used for various puposes.
|
||||
pr_Pad : Word; // Private
|
||||
pr_SegList : BPTR; // SegList array, used by this process.
|
||||
pr_StackSize : LongInt; // StackSize of the current process.
|
||||
pr_GlobVec : Pointer;
|
||||
pr_GlobVec : Pointer;
|
||||
pr_TaskNum : LongInt; // CLI process number. This may be 0, in which case the process is not connected to a CLI.
|
||||
pr_StackBase : BPTR; // Pointer to upper end of stack.
|
||||
pr_Result2 : PtrInt; // Secondary return-value
|
||||
@ -374,7 +374,7 @@ const // Checked OK 04.08.2011 ALB
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
PFileHandle = ^TFileHandle;
|
||||
TFileHandle = record
|
||||
// The next three are used with packet-based filesystems
|
||||
// The next three are used with packet-based filesystems
|
||||
fh_Flags : DWord;
|
||||
fh_Interactive: PMsgPort; // packet reply port // alias -> fh_Port
|
||||
fh_Type : PMsgPort; // port to send packets to
|
||||
@ -509,11 +509,11 @@ const
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
PErrorString = ^TErrorString;
|
||||
TErrorString = record
|
||||
estr_Nums: PLongInt;
|
||||
estr_Nums: PLongInt;
|
||||
estr_Strings: PChar;
|
||||
end;
|
||||
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
PRootNode = ^TRootNode;
|
||||
TRootNode = record
|
||||
rn_TaskArray : BPTR; { BPTR }
|
||||
@ -530,16 +530,16 @@ type // Checked OK 04.08.2011 ALB
|
||||
rn_RootLock : TSignalSemaphore;
|
||||
end;
|
||||
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
// AROS Specific
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
// AROS Specific
|
||||
PCLIInfo = ^TCLIInfo;
|
||||
TCLIInfo = record
|
||||
ci_Node: TNode;
|
||||
ci_Process: PProcess;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
type // Checked OK 05.08.2011 ALB
|
||||
type // Checked OK 05.08.2011 ALB
|
||||
PDOSLibrary = ^TDOSLibrary;
|
||||
TDOSLibrary = record
|
||||
dl_Lib : TLibrary;
|
||||
@ -577,11 +577,11 @@ type // Checked OK 05.08.2011 ALB
|
||||
end;
|
||||
|
||||
|
||||
const // Checked OK 04.08.2011 ALB
|
||||
const // Checked OK 04.08.2011 ALB
|
||||
RNB_WILDSTAR = 24;
|
||||
RNF_WILDSTAR = (1 Shl RNB_WILDSTAR);
|
||||
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
PDOSInfo = ^TDOSInfo;
|
||||
TDOSInfo = record
|
||||
di_McName : BPTR; { BPTR }
|
||||
@ -654,8 +654,8 @@ type // Checked OK 04.08.2011 ALB
|
||||
cli_Background : LongInt; // FALSE if there is no controlling terminal, otherwise TRUE.
|
||||
cli_CurrentOutput : PFileLock; // Current output file. }
|
||||
cli_DefaultStack : LongInt; // Default stack size as set by the command "Stack"
|
||||
cli_StandardOutput: PFileLock; // Standard/Default output file.
|
||||
cli_Module : BPTR; // SegList of currently loaded command.
|
||||
cli_StandardOutput: PFileLock; // Standard/Default output file.
|
||||
cli_Module : BPTR; // SegList of currently loaded command.
|
||||
// Aros Specific Part
|
||||
cli_Standard_Error: PFileLock; // Standard/Default Error file.
|
||||
end;
|
||||
@ -722,7 +722,7 @@ type // Checked TODO 04.08.2011 ALB
|
||||
);
|
||||
// missing Aros Extension... DosListAROSExt;
|
||||
end;
|
||||
|
||||
|
||||
const // Checked OK 04.08.2011 ALB
|
||||
DLT_DEVICE = 0;
|
||||
DLT_DIRECTORY = 1;
|
||||
@ -820,7 +820,7 @@ type // Checked OK 04.08.2011 ALB
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
PAnchorPath = ^TAnchorPath;
|
||||
TAnchorPath = record
|
||||
case Byte of // its not defined in AROS struct just by defines...
|
||||
case Byte of // its not defined in AROS struct just by defines...
|
||||
0 : ( ap_First: PAChain;
|
||||
ap_Last: PAChain;
|
||||
ap_L1: LongInt;
|
||||
@ -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;
|
||||
@ -843,10 +843,10 @@ type // Checked OK 04.08.2011 ALB
|
||||
|
||||
const // Checked OK 04.08.2011 ALB
|
||||
// Please check for wildcards in supplied string.
|
||||
APB_DOWILD = 0;
|
||||
APB_DOWILD = 0;
|
||||
APF_DOWILD = (1 Shl APB_DOWILD);
|
||||
// There is actually a wildcard in the supplied string. READ-ONLY
|
||||
APB_ITSWILD = 1;
|
||||
APB_ITSWILD = 1;
|
||||
APF_ITSWILD = (1 Shl APB_ITSWILD);
|
||||
// Set, if a directory is to be entered. Applications may clear this bit to prohibit the
|
||||
// matching-functions from entering a directory.
|
||||
@ -885,16 +885,16 @@ const // Checked OK 04.08.2011 ALB
|
||||
DDF_Single = (1 Shl DDB_Single);
|
||||
|
||||
const // Checked OK 04.08.2011 ALB
|
||||
P_ANY = $80; // Matches everything ('#?' and '*')
|
||||
P_ANY = $80; // Matches everything ('#?' and '*')
|
||||
P_SINGLE = $81; // Any character ('?')
|
||||
P_ORSTART = $82; // Opening parenthesis for OR'ing ('(')
|
||||
P_ORNEXT = $83; // Field delimiter for OR'ing ('|')
|
||||
P_OREND = $84; // Closing parenthesis for OR'ing (')')
|
||||
P_NOT = $85; // Inversion ('~')
|
||||
P_NOTEND = $86; // Inversion end
|
||||
P_NOTCLASS = $87; // Inversion class ('^')
|
||||
P_NOTEND = $86; // Inversion end
|
||||
P_NOTCLASS = $87; // Inversion class ('^')
|
||||
P_CLASS = $88; // Class ('[' and ']')
|
||||
P_REPBEG = $89; // Beginning of repetition ('[')
|
||||
P_REPBEG = $89; // Beginning of repetition ('[')
|
||||
P_REPEND = $8A; // End of repetition (']')
|
||||
P_STOP = $8B;
|
||||
|
||||
@ -951,7 +951,7 @@ const // Checked OK 04.08.2011 ALB
|
||||
HUNK_RELRELOC32 = 1021;
|
||||
HUNK_ABSRELOC16 = 1022;
|
||||
|
||||
const // Checked OK 04.08.2011 ALB
|
||||
const // Checked OK 04.08.2011 ALB
|
||||
HUNKB_ADVISORY = 29;
|
||||
HUNKB_CHIP = 30;
|
||||
HUNKB_FAST = 31;
|
||||
@ -1150,13 +1150,13 @@ type // Checked OK 04.08.2011 ALB
|
||||
|
||||
type // Checked OK 04.08.2011 ALB
|
||||
PScanVarsMsg = ^TScanVarsMsg;
|
||||
TScanVarsMsg = record
|
||||
TScanVarsMsg = record
|
||||
sv_SVMSize: Cardinal; // Size of ScanVarsMsg structure
|
||||
sv_Flags: Cardinal; // The flags parameter given to ScanVars()
|
||||
sv_GDir: PChar; // Directory patch for global variables or empty string "\0" for local variables
|
||||
sv_Name: PChar; // Name of the variable
|
||||
sv_Var: PChar; // Pointer to the contents of the variable
|
||||
sv_VarLen: Cardinal; // Size of the variable
|
||||
sv_Flags: Cardinal; // The flags parameter given to ScanVars()
|
||||
sv_GDir: PChar; // Directory patch for global variables or empty string "\0" for local variables
|
||||
sv_Name: PChar; // Name of the variable
|
||||
sv_Var: PChar; // Pointer to the contents of the variable
|
||||
sv_VarLen: Cardinal; // Size of the variable
|
||||
end;
|
||||
|
||||
const // Checked OK 04.08.2011 ALB
|
||||
|
||||
@ -615,6 +615,9 @@ type
|
||||
{$IF 0}
|
||||
tc_TrapAlloc: Word;
|
||||
tc_TrapAble : Word;
|
||||
{$ifdef CPU64}
|
||||
Pad64bit: LongWord;
|
||||
{$endif}
|
||||
{$ELSE}
|
||||
tc_ETask: Pointer;
|
||||
{$ENDIF}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user