Pārlūkot izejas kodu

* 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 gadi atpakaļ
vecāks
revīzija
718eb04ef8
1 mainītis faili ar 5 papildinājumiem un 0 dzēšanām
  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                          }