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

* fixed uint setting. MSDOS is also defined for the go32v2 target, so

Browse Source 
use first a check for FPC and if not found then check MSDOS
This commit is contained in:
peter 2000-01-12 23:21:59 +00:00
parent c8b298b9ac
commit db1631b118
1 changed files with 520 additions and 520 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/paszlib/zutil.pas
View File

@ -23,12 +23,12 @@ type
{$ENDIF} {$ENDIF}
intf = int; intf = int;
{$IFDEF MSDOS} {$IFDEF FPC}
uInt = Word;
{$ELSE}
{$IFDEF FPC}
uInt = Longint; { 16 bits or more } uInt = Longint; { 16 bits or more }
{ Should be cardinal, but that crashes } { Should be cardinal, but that crashes }
{$ELSE}
{$IFDEF MSDOS}
uInt = Word;
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
uIntf = uInt; uIntf = uInt;