git-svn-id: trunk@27381 -
@@ -12,6 +12,16 @@
**********************************************************************}
+{ ObjpasInt is the integer type, equivalent to Objpas.Integer (the Integer
+ type in ObjFpc and Delphi modes). It is defined here for use in the
+ implementation part of the System unit. }
+{$ifdef CPU16}
+type
+ ObjpasInt = SmallInt;
+{$else CPU16}
+ ObjpasInt = LongInt;
+{$endif CPU16}
{ The RTTI is implemented through a series of constants : }