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

* redefine sw_integer and sw_word in unit objects to be 16-bit on i8086, so

Browse Source 
that they match BP7 and FPC's FV units

git-svn-id: trunk@37649 -
This commit is contained in:
nickysn 2017-12-01 20:20:39 +00:00
parent c4e036d647
commit 718eb04ef8
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/rtl-extra/src/inc/objects.pp
View File

@ -173,8 +173,13 @@ TYPE
{ BIT SWITCHED TYPE CONSTANTS }
{---------------------------------------------------------------------------}
TYPE
{$ifdef CPU16}
Sw_Word = Word;
Sw_Integer = SmallInt;
{$else CPU16}
Sw_Word = Cardinal; { Long Word now }
Sw_Integer = LongInt; { Long integer now }
{$endif CPU16}
{***************************************************************************}
{ PUBLIC RECORD DEFINITIONS }