paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 14:59:24 +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} {$mode delphi}
uses uses
jdk15; {$ifdef java}jdk15{$else}androidr14{$endif};
type type
T1 = class T1 = class

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -2,125 +2,130 @@
set -ex set -ex
RTLDIR=jvm-java
if [ $# -eq 0 ]; then if [ $# -eq 0 ]; then
PPC=ppcppc PPC=ppcjvm
else else
PPC="$1" PPC="$1"
if [ $# -eq 2 ]; then
RTLDIR="$2"
fi
fi fi
$PPC -O2 -g unsupported $PPC -O2 -g unsupported
$PPC -O2 -g testintf $PPC -O2 -g testintf
$PPC -O2 -g nested $PPC -O2 -g nested
$PPC -O2 -g test $PPC -O2 -g test
javac -encoding utf-8 -cp ../../../rtl/units/jvm-java:. JavaClass.java javac -encoding utf-8 -cp ../../../rtl/units/$RTLDIR:. JavaClass.java
java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. JavaClass java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/$RTLDIR:. JavaClass
$PPC -O2 -g sort $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 forw
$PPC -O2 -g tbyte $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 rm -f uenum.ppu
$PPC -O2 -g tenum $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 $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 implementation
uses uses
jdk15; {$ifdef java}jdk15{$else}androidr14{$endif};
constructor tintfclass.create; constructor tintfclass.create;
begin begin

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -2,7 +2,7 @@ program tstring1;
{$ifdef cpujvm} {$ifdef cpujvm}
uses uses
jdk15; {$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on} {$macro on}
{$define write:=JLSystem.fout.print} {$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} {$ifdef fpc}{$mode objfpc}{$h+}{$endif}
uses uses
jdk15; {$ifdef java}jdk15{$else}androidr14{$endif};
{$macro on} {$macro on}
{$define write:=JLSystem.fout.print} {$define write:=JLSystem.fout.print}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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