Bläddra i källkod

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

git-svn-id: trunk@27381 -
Jonas Maebe 11 år sedan
förälder
incheckning
49ccedbff1
1 ändrade filer med 10 tillägg och 0 borttagningar
  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 : }