Browse Source

* redefine sw_integer and sw_word in unit objects to be 16-bit on i8086, so
that they match BP7 and FPC's FV units

git-svn-id: trunk@37649 -

nickysn 7 years ago
parent
commit
718eb04ef8
1 changed files with 5 additions and 0 deletions
  1. 5 0
      packages/rtl-extra/src/inc/objects.pp

+ 5 - 0
packages/rtl-extra/src/inc/objects.pp

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