Browse Source

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

git-svn-id: trunk@27381 -
Jonas Maebe 11 years ago
parent
commit
49ccedbff1
1 changed files with 10 additions and 0 deletions
  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 : }
 { The RTTI is implemented through a series of constants : }