paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-08 04:40:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

* set objpas.integer = smallint on 16-bit and 8-bit CPUs. Rationale:

Browse Source 
1) Delphi 1 compatibility
  2) we reclaim pascal's 'Integer' type to be the integer type (at least 16 bits
     in size) that is the most efficient to work with on the target processor

git-svn-id: trunk@27048 -
This commit is contained in:
nickysn 2014-03-09 16:33:20 +00:00
parent e464d1f476
commit f2cf516529
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/objpas.pp
View File

@ -22,11 +22,19 @@ unit objpas;
interface
{ first, in object pascal, the integer type must be redefined }
{$ifdef CPU16}
const
MaxInt = MaxSmallint;
type
Integer = smallint;
PInteger = ^Integer;
{$else CPU16}
const
MaxInt = MaxLongint;
type
Integer = longint;
PInteger = ^Integer;
{$endif CPU16}
{ Ansistring are the default }
PString = PAnsiString;