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

* fixed definition of the ALUSInt type on 16-bit CPUs

Browse Source 
git-svn-id: trunk@30453 -
This commit is contained in:
nickysn 2015-04-05 21:47:32 +00:00
parent c59855b5e7
commit 28dc9fe68b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/systemh.inc
View File

@ -413,7 +413,7 @@ Type
ALUSInt = ShortInt; ALUSInt = ShortInt;
ALUUInt = Byte; ALUUInt = Byte;
{$elseif defined(CPUINT16)} {$elseif defined(CPUINT16)}
ALUSInt = ShortInt; ALUSInt = SmallInt;
ALUUInt = Word; ALUUInt = Word;
{$elseif defined(CPUINT32)} {$elseif defined(CPUINT32)}
ALUSInt = Longint; ALUSInt = Longint;