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

* make test working for architectures with no float and ansistring support

Browse Source 
git-svn-id: trunk@35460 -
This commit is contained in:
florian 2017-02-19 22:29:52 +00:00
parent 1c985f0a43
commit a80fcb74d8
1 changed files with 14 additions and 5 deletions

19
tests/test/cg/texit.pp
View File

@ -44,8 +44,10 @@ const
RET_U16BIT = $5555;
RET_S8BIT = -80;
RET_U8BIT = $AA;
{$ifndef FPUNONE}
RET_SINGLE = 57689.15;
RET_DOUBLE = 100012.345;
{$endif FPUNONE}
PCHAR_STRING: pchar = 'HELLO STRING';
type
@ -93,7 +95,7 @@ var
gets64bit := RET_S64BIT;
end;
{$ifndef FPUNONE}
function gets32real : single;
begin
gets32real := RET_SINGLE;
@ -104,6 +106,7 @@ var
begin
gets64real := RET_DOUBLE;
end;
{$endif FPUNONE}
function getpchar: pchar;
begin
@ -248,7 +251,7 @@ function exit_loc_ref_ordinal_u8bit : byte;
end;
{$ifndef FPUNONE}
function exit_loc_ref_float_s32real : single;
var
s: single;
@ -277,6 +280,7 @@ function exit_loc_reg_float_s64real : double;
begin
exit(gets64real);
end;
{$endif FPUNONE}
function exit_loc_flags : boolean;
@ -296,15 +300,14 @@ function exit_loc_jump : boolean;
exit(b and c);
end;
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
function exit_loc_ansi(w: word) : ansistring;
var d: ansistring;
begin
str(w,d);
exit(d);
end;
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
var
failed : boolean;
@ -373,6 +376,7 @@ Begin
else
writeln('Passed!');
{$ifndef FPUNONE}
write(' floating point return value...');
failed := false;
if (trunc(exit_loc_ref_float_s32real) <> trunc(RET_SINGLE)) then
@ -383,6 +387,7 @@ Begin
fail
else
writeln('Passed!');
{$endif FPUNONE}
{ procvardef is not tested since it is the same as pointer return value...}
write(' pointer/procedure variable return value...');
@ -420,6 +425,7 @@ Begin
else
writeln('Passed!');
{$ifndef FPUNONE}
write(' floating point return value...');
failed := false;
if (trunc(exit_loc_reg_float_s32real) <> trunc(RET_SINGLE)) then
@ -430,6 +436,7 @@ Begin
fail
else
writeln('Passed!');
{$endif FPUNONE}
{ procvardef is not tested since it is the same as pointer return value...}
write(' pointer/procedure variable return value...');
@ -465,6 +472,7 @@ Begin
else
writeln('Passed!');
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
write('Testing secondexitn() ansistring case...');
failed := false;
if exit_loc_ansi(10) <> '10' then
@ -473,5 +481,6 @@ Begin
fail
else
writeln('Passed!');
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
end.