2
0
Эх сурвалжийг харах

* r27142 for the JVM target, so its system unit compiles again

git-svn-id: trunk@27381 -
Jonas Maebe 11 жил өмнө
parent
commit
49ccedbff1
1 өөрчлөгдсөн 10 нэмэгдсэн , 0 устгасан
  1. 10 0
      rtl/java/jsystem.inc

+ 10 - 0
rtl/java/jsystem.inc

@@ -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}
+type
+  ObjpasInt = LongInt;
+{$endif CPU16}
 
 { The RTTI is implemented through a series of constants : }