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

- some cleanup (less ifdef)

Browse Source
This commit is contained in:
carl 2002-09-07 21:15:25 +00:00
parent 7ebda0a778
commit 1baf0ef1b5
1 changed files with 5 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
rtl/inc/objects.pp
View File

@ -45,9 +45,6 @@ UNIT Objects;
{$ASMMODE ATT}
{$ENDIF}
{$IFDEF CPU68}
{$ASMMODE MOT}
{$ENDIF}
{==== Compiler directives ===========================================}
{$H-} { No ansistrings }
@ -149,72 +146,12 @@ TYPE
{---------------------------------------------------------------------------}
{ OS dependent File type / consts }
{---------------------------------------------------------------------------}
{$IFDEF GO32V2}
type
FNameStr = String;
THandle = Integer;
const
MaxReadBytes = $fffe;
invalidhandle = -1;
{$ENDIF}
{$IFDEF Win32}
type
FNameStr = String;
THandle = Longint;
const
MaxReadBytes = $fffe;
invalidhandle = -1;
{$ENDIF}
{$IFDEF OS2}
type
FNameStr = String;
THandle = Word;
const
MaxReadBytes = $7fffffff;
invalidhandle = $ffff;
{$ENDIF}
{$IFDEF UNIX}
type
FNameStr = String;
{ values are words, though the OS calls return 32-bit values }
{ to check (CEC) }
THandle = Longint;
THandle = longint;
const
MaxReadBytes = $7fffffff;
invalidhandle = -1;
{$ENDIF}
{$IFDEF AMIGA}
type
FNameStr = String;
THandle = Longint;
const
MaxReadBytes = $fffe;
invalidhandle = -1;
{$ENDIF}
{$IFDEF ATARI}
type
FNameStr = String[79];
THandle = Integer;
const
MaxReadBytes = $fffe;
invalidhandle = -1;
{$ENDIF}
{$IFDEF MAC}
type
FNameStr = String;
THandle = Integer;
const
MaxReadBytes = $fffe;
invalidhandle = -1;
{$ENDIF}
{$IFDEF Netware}
type
FNameStr = String;
THandle = Longint;
const
MaxReadBytes = $7fffffff;
invalidhandle = -1;
{$ENDIF}
{---------------------------------------------------------------------------}
@ -2851,7 +2788,10 @@ END;
END.
{
$Log$
Revision 1.11 2002-09-07 15:07:45 peter
Revision 1.12 2002-09-07 21:15:25 carl
- some cleanup (less ifdef)
Revision 1.11 2002/09/07 15:07:45 peter
* old logs removed and tabs fixed
Revision 1.10 2002/09/01 19:03:19 florian