paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@27381 -
This commit is contained in:
Jonas Maebe 2014-03-30 16:54:59 +00:00
parent 9ae26316e8
commit 49ccedbff1
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/java/jsystem.inc
View File

@ -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 : }