mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-29 02:33:42 +02:00
71068ae7eb
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 -
44 lines
616 B
ObjectPascal
44 lines
616 B
ObjectPascal
program trange2;
|
|
|
|
{$mode objfpc}
|
|
{$ifdef cpujvm}
|
|
uses
|
|
{$ifdef java}jdk15{$else}androidr14{$endif};
|
|
|
|
{$macro on}
|
|
{$define writeln:=jlsystem.fout.println}
|
|
{$define write:=jlsystem.fout.println}
|
|
{$else}
|
|
uses
|
|
SysUtils;
|
|
{$endif}
|
|
|
|
{$r+}
|
|
|
|
var
|
|
l: longint;
|
|
c: cardinal;
|
|
n: longint;
|
|
begin
|
|
n := 0;
|
|
l := -1;
|
|
try
|
|
c := l;
|
|
except
|
|
writeln('caught 1!');
|
|
inc(n);
|
|
end;
|
|
c := cardinal($ffffffff);
|
|
try
|
|
l := c;
|
|
except
|
|
writeln('caught 2!');
|
|
inc(n);
|
|
end;
|
|
if n <> 2 then
|
|
begin
|
|
writeln('Still problems with range checking between longint/cardinal');
|
|
halt(1);
|
|
end;
|
|
end.
|