+ tval5, also already works

git-svn-id: branches/jvmbackend@18880 -

tests/test/jvm/testall.bat

@@ -200,4 +200,8 @@ ppcjvm -O2 -g -B tval
 if %errorlevel% neq 0 exit /b %errorlevel%
 java -Dfile.encoding=UTF-8 -cp ..\..\..\rtl\units\jvm-java;. tval
 if %errorlevel% neq 0 exit /b %errorlevel%
+ppcjvm -O2 -g -B tval5
+if %errorlevel% neq 0 exit /b %errorlevel%
+java -Dfile.encoding=UTF-8 -cp ..\..\..\rtl\units\jvm-java;. tval5
+if %errorlevel% neq 0 exit /b %errorlevel%
 

tests/test/jvm/testall.sh

@@ -110,3 +110,5 @@ $PPC -O2 -g tstrreal2
 java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tstrreal2
 $PPC -O2 -g -B tval
 java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tval
+$PPC -O2 -g -B tval5
+java -Dfile.encoding=UTF-8 -cp ../../../rtl/units/jvm-java:. tval5

tests/test/jvm/tval5.pp

@@ -1,7 +1,11 @@
+program tval5;
+
 {$mode objfpc}
 
+{$ifndef cpujvm}
 uses
   sysutils;
+{$endif}
 
 procedure testcard;
 const
@@ -51,7 +55,7 @@ begin
 {$endif cpu64}
             val(s,c,l);
 {$ifdef cpu64}
-          except on e : exception do
+          except on e : jlthrowable do
             caught:=true;
           end;
           if not caught then
@@ -91,7 +95,7 @@ begin
 {$endif cpu64}
           val(s,c,l);
 {$ifdef cpu64}
-      except on e : exception do
+      except on e : jlthrowable do
         caught:=true;
       end;
       if not caught then
@@ -116,7 +120,7 @@ begin
 {$endif cpu64}
             val(s,c,l);
 {$ifdef cpu64}
-          except on e : exception do
+          except on e : jlthrowable do
             caught:=true;
           end;
           if not caught then