浏览代码

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

git-svn-id: trunk@27381 -
Jonas Maebe 11 年之前
父节点
当前提交
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 : }