paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 17:13:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* made the tests Android-compatible (use the androidr14 unit instead

Browse Source 
of the jdk15 unit in that case)
  * adjusted testall.sh script so it can also be used to test class
    files compiled for Android (still with the JVM though)

git-svn-id: branches/jvmbackend@19835 -
This commit is contained in:
Jonas Maebe 2011-12-12 20:34:02 +00:00
parent 0d5b2b84a8
commit 71068ae7eb
51 changed files with 112 additions and 107 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/jvm/classlist.pp
View File

@ -3,7 +3,7 @@ program classlist;
{$mode delphi}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
T1 = class

2
tests/test/jvm/sort.pp
View File

@ -4,7 +4,7 @@ program sort;
{$modeswitch unicodestrings}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
function test : string;
var

2
tests/test/jvm/tabs.pp
View File

@ -4,7 +4,7 @@ program tabs;
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define writeln:=jlsystem.fout.println}

2
tests/test/jvm/taddset.pp
View File

@ -25,7 +25,7 @@ Program taddset;
{$define writeln:=jlsystem.fout.println}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
procedure halt(l: longint);
begin

2
tests/test/jvm/taddsetint.pp
View File

@ -25,7 +25,7 @@ Program taddsetint;
{$define writeln:=jlsystem.fout.println}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
procedure halt(l: longint);
begin

2
tests/test/jvm/tarray2.pp
View File

@ -3,7 +3,7 @@ Program tarray2;
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define writeln:=jlsystem.fout.println}

2
tests/test/jvm/tarray3.pp
View File

@ -3,7 +3,7 @@ program tarray3;
{$modeswitch exceptions}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define write:=JLSystem.fout.print}

2
tests/test/jvm/tbyte.pp
View File

@ -3,7 +3,7 @@ program tbyte;
{$mode delphi}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
function test: longint;
var

2
tests/test/jvm/tbytearrres.pp
View File

@ -3,7 +3,7 @@ program tbytearrres;
{$mode delphi}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
ByteArray = array of byte;

2
tests/test/jvm/tclassproptest.pp
View File

@ -3,7 +3,7 @@ program tclassproptest;
{$mode objfpc}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
tclassprop = class

2
tests/test/jvm/tcnvstr1.pp
View File

@ -33,7 +33,7 @@ program tcnvstr1;
{$define hasshortstring}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$H+}
{$macro on}

2
tests/test/jvm/tcnvstr3.pp
View File

@ -19,7 +19,7 @@ program tcnvstr3;
{$endif}
{$endif}
uses jdk15;
uses {$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define write:=JLSystem.fout.print}

2
tests/test/jvm/tconst.pp
View File

@ -3,7 +3,7 @@ program tconst;
{$mode delphi}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
tc = class

2
tests/test/jvm/tdefpara.pp
View File

@ -4,7 +4,7 @@ program tdefpara;
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define writeln:=jlsystem.fout.println}

2
tests/test/jvm/tdynarrec.pp
View File

@ -3,7 +3,7 @@ Program tdynarrec;
{$mode objfpc}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
tdynrec = record

2
tests/test/jvm/test.pp
View File

@ -162,7 +162,7 @@ var
implementation
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{ package visibility }
var

119
tests/test/jvm/testall.sh
View File

@ -2,125 +2,130 @@
set -ex
RTLDIR=jvm-java
if [ $# -eq 0 ]; then
PPC=ppcppc
PPC=ppcjvm
else
PPC="$1"
if [ $# -eq 2 ]; then
RTLDIR="$2"
fi
fi
$PPC -O2 -g unsupported
$PPC -O2 -g testintf
$PPC -O2 -g nested
$PPC -O2 -g test
javac -encoding utf-8 -cp ../../../rtl/units/jvm-java:. JavaClass.java
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. JavaClass
javac -encoding utf-8 -cp ../../../rtl/units/$RTLDIR:. JavaClass.java
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. JavaClass
$PPC -O2 -g sort
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. sort
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. sort
$PPC -O2 -g classmeth
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. classmeth
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. classmeth
$PPC -O2 -g classlist
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. classlist
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. classlist
$PPC -O2 -g testansi
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. testansi
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. testansi
$PPC -O2 -g tcnvstr1
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tcnvstr1
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tcnvstr1
$PPC -O2 -g tcnvstr3
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tcnvstr3
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tcnvstr3
$PPC -O2 -g testshort
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. testshort
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. testshort
$PPC -O2 -g tarray2
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tarray2
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tarray2
$PPC -O2 -g tarray3
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tarray3
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tarray3
$PPC -O2 -g tnestproc
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tnestproc
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tnestproc
$PPC -O2 -g outpara
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. outpara
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. outpara
$PPC -O2 -g tbytearrres
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tbytearrres
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tbytearrres
$PPC -O2 -g forw
$PPC -O2 -g tbyte
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tbyte
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tbyte
rm -f uenum.ppu
$PPC -O2 -g tenum
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tenum
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tenum
$PPC -O2 -g tprop
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tprop
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tprop
$PPC -O2 -g tprop2
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tprop2
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tprop2
$PPC -O2 -g tclassproptest
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tclassproptest
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tclassproptest
$PPC -O2 -g tset3 -dproc
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tset3
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tset3
$PPC -O2 -g tset3
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tset3
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tset3
$PPC -O2 -g taddset
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. taddset
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. taddset
$PPC -O2 -g taddsetint
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. taddsetint
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. taddsetint
$PPC -O2 -g tformalpara
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tformalpara
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tformalpara
$PPC -O2 -g tvarpara
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tvarpara
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tvarpara
$PPC -O2 -g tpvar
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tpvar
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tpvar
$PPC -O2 -g tpvardelphi
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tpvardelphi
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tpvardelphi
$PPC -O2 -g tpvarglobal
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tpvarglobal
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tpvarglobal
$PPC -O2 -g tpvarglobaldelphi
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tpvarglobaldelphi
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tpvarglobaldelphi
$PPC -O2 -g tvirtclmeth
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tvirtclmeth
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tvirtclmeth
$PPC -O2 -g tdynarrec
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tdynarrec
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tdynarrec
$PPC -O2 -g tconst
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tconst
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tconst
$PPC -O2 -g twith
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. twith
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. twith
$PPC -O2 -g tint
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tint
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tint
$PPC -O2 -g ttrig
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. ttrig
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. ttrig
$PPC -O2 -g ttrunc
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. ttrunc
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. ttrunc
$PPC -O2 -g tset1
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tset1
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tset1
$PPC -O2 -g tabs
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tabs
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tabs
$PPC -O2 -g tintstr
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tintstr
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tintstr
$PPC -O2 -g trange1
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. trange1
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. trange1
$PPC -O2 -g trange2
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. trange2
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. trange2
$PPC -O2 -g trange3
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. trange3
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. trange3
$PPC -O2 -g tdefpara
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tdefpara
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tdefpara
$PPC -O2 -g getbit
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. getbit
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. getbit
$PPC -O2 -g tthreadvar
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tthreadvar
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tthreadvar
$PPC -O2 -g tstring1
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tstring1
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tstring1
$PPC -O2 -g tstrreal1
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tstrreal1
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tstrreal1
$PPC -O2 -g tstrreal2
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tstrreal2
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tstrreal2
$PPC -O2 -g -B tval
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tval
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tval
$PPC -O2 -g -B tval5
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tval5
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tval5
$PPC -O2 -g -B tstring9
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tstring9
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tstring9
$PPC -O2 -g -B tstr
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tstr
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tstr
$PPC -O2 -g -B tw20212
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tw20212
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tw20212
$PPC -O2 -g -B tdynarrnil
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tdynarrnil
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tdynarrnil
$PPC -O2 -g -B tnestdynarr
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tnestdynarr
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. tnestdynarr
$PPC -O2 -g -B topovl
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. topovl
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. topovl

2
tests/test/jvm/testintf.pp
View File

@ -41,7 +41,7 @@ type
implementation
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
constructor tintfclass.create;
begin

2
tests/test/jvm/tformalpara.pp
View File

@ -10,7 +10,7 @@ procedure main(args: array of string);
implementation
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
tc = class

2
tests/test/jvm/tint.pp
View File

@ -6,7 +6,7 @@ program tint;
{$modeswitch exceptions}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$ifdef VER1_0}
{$define SKIP_CURRENCY_TEST}

2
tests/test/jvm/tintstr.pp
View File

@ -2,7 +2,7 @@ program tintstr;
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define writeln:=jlsystem.fout.println}

2
tests/test/jvm/tnestedset.pp
View File

@ -3,7 +3,7 @@ program tnestedset;
{$mode delphi}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
tnestedfpstructenum = (ea,eb,ec);

2
tests/test/jvm/tnestproc.pp
View File

@ -3,7 +3,7 @@ program tnestproc;
{$mode delphi}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
procedure outer(var para: byte);
const xxx: longint = 5;

2
tests/test/jvm/tprop.pp
View File

@ -3,7 +3,7 @@ program tprop;
{$mode delphi}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
tc = class

2
tests/test/jvm/tprop2.pp
View File

@ -3,7 +3,7 @@ program tprop2;
{$mode delphi}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
tpropclass1 = class

2
tests/test/jvm/tpvar.pp
View File

@ -3,7 +3,7 @@ program tpvar;
{$mode objfpc}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
tmprec = record

2
tests/test/jvm/tpvardelphi.pp
View File

@ -3,7 +3,7 @@ program tpvardelphi;
{$mode delphi}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
tmprec = record

2
tests/test/jvm/tpvarglobal.pp
View File

@ -3,7 +3,7 @@ program tpvarglobal;
{$mode objfpc}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
tmprec = record

2
tests/test/jvm/tpvarglobaldelphi.pp
View File

@ -3,7 +3,7 @@ program tpvarglobaldelphi;
{$mode delphi}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
tmprec = record

2
tests/test/jvm/trange1.pp
View File

@ -8,7 +8,7 @@ program trange1;
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define writeln:=jlsystem.fout.println}

2
tests/test/jvm/trange2.pp
View File

@ -3,7 +3,7 @@ program trange2;
{$mode objfpc}
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define writeln:=jlsystem.fout.println}

2
tests/test/jvm/trange3.pp
View File

@ -4,7 +4,7 @@ program trange3;
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define writeln:=jlsystem.fout.println}

2
tests/test/jvm/tset1.pp
View File

@ -9,7 +9,7 @@ program tset1;
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define writeln:=jlsystem.fout.println}

2
tests/test/jvm/tset3.pp
View File

@ -3,7 +3,7 @@ program tset3;
{$modeswitch exceptions}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define writeln:=JLSystem.fout.println}

2
tests/test/jvm/tstr.pp
View File

@ -1,7 +1,7 @@
program tstr;
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define write:=JLSystem.fout.print}

2
tests/test/jvm/tstring1.pp
View File

@ -2,7 +2,7 @@ program tstring1;
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define write:=JLSystem.fout.print}

2
tests/test/jvm/tstring9.pp
View File

@ -3,7 +3,7 @@ program tstring9
{$ifdef fpc}{$mode objfpc}{$h+}{$endif}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define write:=JLSystem.fout.print}

2
tests/test/jvm/tstrreal1.pp
View File

@ -2,7 +2,7 @@
program tstrreal1;
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define write:=JLSystem.fout.print}

2
tests/test/jvm/tstrreal2.pp
View File

@ -2,7 +2,7 @@ program tstrreal2;
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define write:=JLSystem.fout.print}

2
tests/test/jvm/tthreadvar.pp
View File

@ -4,7 +4,7 @@ program tthreadvar;
{$modeswitch unicodestrings}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
tc = class

2
tests/test/jvm/ttrig.pp
View File

@ -3,7 +3,7 @@ program ttrig;
{$modeswitch exceptions}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define writeln:=JLSystem.fout.println}

2
tests/test/jvm/ttrunc.pp
View File

@ -4,7 +4,7 @@ program ttrunc;
{$modeswitch exceptions}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}

2
tests/test/jvm/tval.pp
View File

@ -10,7 +10,7 @@ program tval;
uses
{$ifdef cpujvm}
jdk15,
{$ifdef java}jdk15{$else}androidr14{$endif},
{$endif}
{ longint type, short string }
tval1,

2
tests/test/jvm/tval1.pp
View File

@ -7,7 +7,7 @@ interface
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define write:=JLSystem.fout.print}

2
tests/test/jvm/tval2.pp
View File

@ -7,7 +7,7 @@ interface
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define write:=JLSystem.fout.print}

2
tests/test/jvm/tval3.pp
View File

@ -7,7 +7,7 @@ interface
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define write:=JLSystem.fout.print}

2
tests/test/jvm/tval4.pp
View File

@ -7,7 +7,7 @@ interface
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define write:=JLSystem.fout.print}

2
tests/test/jvm/tvalc.pp
View File

@ -4,7 +4,7 @@ interface
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define write:=JLSystem.fout.print}

2
tests/test/jvm/tvarpara.pp
View File

@ -3,7 +3,7 @@ program tvarpara;
{$mode objfpc}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
procedure test(var c: char);
begin

2
tests/test/jvm/tvirtclmeth.pp
View File

@ -3,7 +3,7 @@ program tvirtclmeth;
{$mode delphi}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
type
tvirtclmethbase = class

2
tests/test/jvm/tw20212.pp
View File

@ -4,7 +4,7 @@ program tw20212;
{$ifdef cpujvm}
uses
jdk15;
{$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on}
{$define writeln:=JLSystem.fout.println}