{ This file is part of the Free Pascal run time library. Copyright (c) 2001 by Free Pascal development team This file implements all the base types and limits required for a minimal POSIX compliant subset required to port the compiler to a new OS. See the file COPYING.FPC, included in this distribution, for details about the copyright. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. **********************************************************************} var ProcessID: SizeUInt; function GetProcessID:SizeUInt; begin GetProcessID := ProcessID; end; type TSysDateTime=packed record Hour, Minute, Second, Sec100, Day, Month: byte; Year: word; TimeZone: smallint; WeekDay: byte; end; procedure DosGetInfoBlocks (PATIB: PPThreadInfoBlock; PAPIB: PPProcessInfoBlock); cdecl; external 'DOSCALLS' index 312; function DosLoadModule (ObjName: PChar; ObjLen: cardinal; DLLName: PChar; var Handle: cardinal): cardinal; cdecl; external 'DOSCALLS' index 318; function DosQueryModuleHandle (DLLName: PChar; var Handle: THandle): cardinal; cdecl; external 'DOSCALLS' index 319; function DosQueryProcAddr (Handle, Ordinal: cardinal; ProcName: PChar; var Address: pointer): cardinal; cdecl; external 'DOSCALLS' index 321; function DosSetRelMaxFH (var ReqCount: longint; var CurMaxFH: cardinal): cardinal; cdecl; external 'DOSCALLS' index 382; function DosSetCurrentDir (Name:PChar): cardinal; cdecl; external 'DOSCALLS' index 255; procedure DosQueryCurrentDisk(var DiskNum:cardinal;var Logical:cardinal); cdecl; external 'DOSCALLS' index 275; function DosSetDefaultDisk (DiskNum:cardinal): cardinal; cdecl; external 'DOSCALLS' index 220; { This is not real prototype, but is close enough } { for us (the 2nd parameter is actually a pointer } { to a structure). } function DosCreateDir (Name: PChar; P: pointer): cardinal; cdecl; external 'DOSCALLS' index 270; function DosDeleteDir (Name: PChar): cardinal; cdecl; external 'DOSCALLS' index 226; function DosQueryCurrentDir(DiskNum:cardinal;var Buffer; var BufLen:cardinal): cardinal; cdecl; external 'DOSCALLS' index 274; function DosMove(OldFile,NewFile:PChar):cardinal; cdecl; external 'DOSCALLS' index 271; function DosDelete(FileName:PChar):cardinal; cdecl; external 'DOSCALLS' index 259; procedure DosExit(Action, Result: cardinal); cdecl; external 'DOSCALLS' index 234; // EAs not used in System unit function DosOpen(FileName:PChar;var Handle: THandle;var Action:cardinal; InitSize,Attrib,OpenFlags,FileMode:cardinal; EA:Pointer): cardinal; cdecl; external 'DOSCALLS' index 273; function DosClose(Handle: THandle): cardinal; cdecl; external 'DOSCALLS' index 257; function DosRead(Handle: THandle; Buffer: Pointer; Count: cardinal; var ActCount: cardinal): cardinal; cdecl; external 'DOSCALLS' index 281; function DosWrite(Handle: THandle; Buffer: Pointer;Count: cardinal; var ActCount: cardinal): cardinal; cdecl; external 'DOSCALLS' index 282; function DosSetFilePtr(Handle: THandle; Pos:longint; Method:cardinal; var PosActual: cardinal): cardinal; cdecl; external 'DOSCALLS' index 256; function DosSetFileSize(Handle: THandle; Size: cardinal): cardinal; cdecl; external 'DOSCALLS' index 272; function DosQueryHType(Handle: THandle; var HandType: cardinal; var Attr: cardinal): cardinal; cdecl; external 'DOSCALLS' index 224; function DosQueryModuleName (Handle: THandle; NameLen: cardinal; Name: PChar): cardinal; cdecl; external 'DOSCALLS' index 320; function DosGetDateTime(var Buf:TSysDateTime): cardinal; cdecl; external 'DOSCALLS' index 230; type TDosOpenL = function (FileName: PChar; var Handle: THandle; var Action: cardinal; InitSize: int64; Attrib, OpenFlags, FileMode: cardinal; EA: pointer): cardinal; cdecl; TDosSetFilePtrL = function (Handle: THandle; Pos: int64; Method: cardinal; var PosActual: int64): cardinal; cdecl; TDosSetFileSizeL = function (Handle: THandle; Size: int64): cardinal; cdecl; function DummyDosOpenL (FileName: PChar; var Handle: THandle; var Action: cardinal; InitSize: int64; Attrib, OpenFlags, FileMode: cardinal; EA: pointer): cardinal; cdecl; begin DummyDosOpenL := DosOpen (FileName, Handle, Action, InitSize, Attrib, OpenFlags, FileMode, EA); end; function DummyDosSetFilePtrL (Handle: THandle; Pos: int64; Method: cardinal; var PosActual: int64): cardinal; cdecl; var PosAct0: cardinal; begin DummyDosSetFilePtrL := DosSetFilePtr (Handle, Pos, Method, PosAct0); PosActual := PosAct0; end; function DummyDosSetFileSizeL (Handle: THandle; Size: int64): cardinal; cdecl; begin DummyDosSetFileSizeL := DosSetFileSize (Handle, Size); end; const DosOpenL: TDosOpenL = @DummyDosOpenL; DosSetFilePtrL: TDosSetFilePtrL = @DummyDosSetFilePtrL; DosSetFileSizeL: TDosSetFileSizeL = @DummyDosSetFileSizeL; OrdDosOpenL = 981; OrdDosSetFilePtrL = 988; OrdDosSetFileSizeL = 989; { converts an OS/2 error code to a TP compatible error } { code. Same thing exists under most other supported } { systems. } { Only call for OS/2 DLL imported routines } Procedure Errno2InOutRes; Begin { errors 1..18 are the same as in DOS } case InOutRes of { simple offset to convert these error codes } { exactly like the error codes in Win32 } 19..31 : InOutRes := InOutRes + 131; { gets a bit more complicated ... } 32..33 : InOutRes := 5; 38 : InOutRes := 100; 39 : InOutRes := 101; 112 : InOutRes := 101; 110 : InOutRes := 5; 114 : InOutRes := 6; 290 : InOutRes := 290; end; { all other cases ... we keep the same error code } end; {$IFDEF OS2EXCEPTIONS} (* The operating system defines a class of error conditions called exceptions, and specifies the default actions that are taken when these exceptions occur. The system default action in most cases is to terminate the thread that caused the exception. Exception values have the following 32-bit format: 3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 旼컴쩡쩡컴컴컴컴컴컴컴컴컴컴컴컴쩡컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� 쿞ev쿎� Facility � Code � 읕컴좔좔컴컴컴컴컴컴컴컴컴컴컴컴좔컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Sev Severity code. Possible values are described in the following list: 00 Success 01 Informational 10 Warning 11 Error C Customer code flag. Facility Facility code. Code Facility's status code. Exceptions that are specific to OS/2 Version 2.X (for example, XCPT_SIGNAL) have a facility code of 1. System exceptions include both synchronous and asynchronous exceptions. Synchronous exceptions are caused by events that are internal to a thread's execution. For example, synchronous exceptions could be caused by invalid parameters, or by a thread's request to end its own execution. Asynchronous exceptions are caused by events that are external to a thread's execution. For example, an asynchronous exception can be caused by a user's entering a Ctrl+C or Ctrl+Break key sequence, or by a process' issuing DosKillProcess to end the execution of another process. The Ctrl+Break and Ctrl+C exceptions are also known as signals, or as signal exceptions. The following tables show the symbolic names of system exceptions, their numerical values, and related information fields. Portable, Non-Fatal, Software-Generated Exceptions 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴쩡컴컴컴컴커 쿐xception Name 쿣alue � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴캑 쿦CPT_GUARD_PAGE_VIOLATION �0x80000001� � ExceptionInfo[0] - R/W flag � � � ExceptionInfo[1] - FaultAddr � � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴캑 쿦CPT_UNABLE_TO_GROW_STACK �0x80010001� 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴좔컴컴컴컴켸 Portable, Fatal, Hardware-Generated Exceptions 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴쩡컴컴컴컴컫컴컴컴컴컴컴커 쿐xception Name 쿣alue 쿝elated Trap � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_ACCESS_VIOLATION �0xC0000005�0x09, 0x0B, � � ExceptionInfo[0] - Flags � �0x0C, 0x0D, � � XCPT_UNKNOWN_ACCESS 0x0 � �0x0E � � XCPT_READ_ACCESS 0x1 � � � � XCPT_WRITE_ACCESS 0x2 � � � � XCPT_EXECUTE_ACCESS 0x4 � � � � XCPT_SPACE_ACCESS 0x8 � � � � XCPT_LIMIT_ACCESS 0x10 � � � � ExceptionInfo[1] - FaultAddr � � � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_INTEGER_DIVIDE_BY_ZERO �0xC000009B�0 � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_FLOAT_DIVIDE_BY_ZERO �0xC0000095�0x10 � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_FLOAT_INVALID_OPERATION �0xC0000097�0x10 � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_ILLEGAL_INSTRUCTION �0xC000001C�0x06 � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_PRIVILEGED_INSTRUCTION �0xC000009D�0x0D � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_INTEGER_OVERFLOW �0xC000009C�0x04 � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_FLOAT_OVERFLOW �0xC0000098�0x10 � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_FLOAT_UNDERFLOW �0xC000009A�0x10 � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_FLOAT_DENORMAL_OPERAND �0xC0000094�0x10 � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_FLOAT_INEXACT_RESULT �0xC0000096�0x10 � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_FLOAT_STACK_CHECK �0xC0000099�0x10 � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_DATATYPE_MISALIGNMENT �0xC000009E�0x11 � � ExceptionInfo[0] - R/W flag � � � � ExceptionInfo[1] - Alignment � � � � ExceptionInfo[2] - FaultAddr � � � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_BREAKPOINT �0xC000009F�0x03 � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_SINGLE_STEP �0xC00000A0�0x01 � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴좔컴컴컴컴컨컴컴컴컴컴컴켸 Portable, Fatal, Software-Generated Exceptions 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴쩡컴컴컴컴컫컴컴컴컴컴컴커 쿐xception Name 쿣alue 쿝elated Trap � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_IN_PAGE_ERROR �0xC0000006�0x0E � � ExceptionInfo[0] - FaultAddr � � � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_PROCESS_TERMINATE �0xC0010001� � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_ASYNC_PROCESS_TERMINATE �0xC0010002� � � ExceptionInfo[0] - TID of � � � � terminating thread � � � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_NONCONTINUABLE_EXCEPTION �0xC0000024� � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_INVALID_DISPOSITION �0xC0000025� � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴좔컴컴컴컴컨컴컴컴컴컴컴켸 Non-Portable, Fatal Exceptions 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴쩡컴컴컴컴컫컴컴컴컴컴컴커 쿐xception Name 쿣alue 쿝elated Trap � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_INVALID_LOCK_SEQUENCE �0xC000001D� � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴컵컴컴컴컴컴컴캑 쿦CPT_ARRAY_BOUNDS_EXCEEDED �0xC0000093�0x05 � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴좔컴컴컴컴컨컴컴컴컴컴컴켸 Unwind Operation Exceptions 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴쩡컴컴컴컴커 쿐xception Name 쿣alue � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴캑 쿦CPT_UNWIND �0xC0000026� 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴캑 쿦CPT_BAD_STACK �0xC0000027� 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴캑 쿦CPT_INVALID_UNWIND_TARGET �0xC0000028� 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴좔컴컴컴컴켸 Fatal Signal Exceptions 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴쩡컴컴컴컴커 쿐xception Name 쿣alue � 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴탠컴컴컴컴캑 쿦CPT_SIGNAL �0xC0010003� � ExceptionInfo[ 0 ] - Signal � � � Number � � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴좔컴컴컴컴켸 *) {$ENDIF OS2EXCEPTIONS}