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

+ check for FPUNONE

Browse Source 
git-svn-id: trunk@30750 -
This commit is contained in:
florian 2015-05-01 14:46:37 +00:00
parent 046f98b7b5
commit fbd6d2a0f9
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/test/cg/ptest.pp
View File

@ -21,9 +21,11 @@ const
RESULT_S16BIT = -12;
RESULT_S32BIT = -120;
RESULT_S64BIT = -12000;
{$ifndef FPUNONE}
RESULT_FLOAT = 14.54;
RESULT_DOUBLE = 15.54;
RESULT_LONGDOUBLE = 16.54;
{$endif FPU_NONE}
RESULT_PCHAR = 'Hello world';
type
@ -58,9 +60,11 @@ end;
smallint_array = array [0..1] of smallint;
longint_array = array [0..1] of longint;
int64_array = array [0..1] of int64;
{$ifndef FPUNONE}
single_array = array [0..1] of single;
double_array = array [0..1] of double;
clongdouble_array = array [0..1] of clongdouble;
{$endif FPUNONE}
var
global_u8bit : byte; cvar;
@ -70,9 +74,11 @@ var
global_s16bit : smallint; cvar;
global_s32bit : longint; cvar;
global_s64bit : int64; cvar;
{$ifndef FPUNONE}
global_float : single; cvar;
global_double : double; cvar;
global_long_double : clongdouble; cvar;
{$endif FPUNONE}
{ simple parameter passing }
procedure test_param_u8(x: byte); cdecl; public;
@ -82,9 +88,11 @@ procedure test_param_u64(x: qword); cdecl; public;
procedure test_param_s16(x : smallint); cdecl; public;
procedure test_param_s32(x: longint); cdecl; public;
procedure test_param_s64(x: int64); cdecl; public;
{$ifndef FPUNONE}
procedure test_param_float(x : single); cdecl; public;
procedure test_param_double(x: double); cdecl; public;
procedure test_param_longdouble(x: clongdouble); cdecl; public;
{$endif FPUNONE}
procedure test_param_var_u8(var x: byte); cdecl; public;
{ array parameter passing }
@ -95,17 +103,21 @@ procedure test_array_param_u64(x: qword_array); cdecl; public;
procedure test_array_param_s16(x :smallint_array); cdecl; public;
procedure test_array_param_s32(x: longint_array); cdecl; public;
procedure test_array_param_s64(x: int64_array); cdecl; public;
{$ifndef FPUNONE}
procedure test_array_param_float(x : single_array); cdecl; public;
procedure test_array_param_double(x: double_array); cdecl; public;
procedure test_array_param_longdouble(x: clongdouble_array); cdecl; public;
{$endif FPUNONE}
{ mixed parameter passing }
procedure test_param_mixed_u16(z: byte; x : word; y :byte); cdecl; public;
procedure test_param_mixed_u32(z: byte; x: cardinal; y: byte); cdecl; public;
procedure test_param_mixed_s64(z: byte; x: int64; y: byte); cdecl; public;
{$ifndef FPUNONE}
procedure test_param_mixed_float(x: single; y: byte); cdecl; public;
procedure test_param_mixed_double(x: double; y: byte); cdecl; public;
procedure test_param_mixed_long_double(x: clongdouble; y: byte); cdecl; public;
{$endif FPUNONE}
procedure test_param_mixed_var_u8(var x: byte;y:byte); cdecl; public;
{ structure parameter testing }
procedure test_param_struct_tiny(buffer : _1BYTE_); cdecl; public;
@ -128,9 +140,11 @@ function test_function_s16: smallint; cdecl; public;
function test_function_s32: longint; cdecl; public;
function test_function_s64: int64; cdecl; public;
function test_function_pchar: pchar; cdecl; public;
{$ifndef FPUNONE}
function test_function_float : single; cdecl; public;
function test_function_double : double; cdecl; public;
function test_function_longdouble: clongdouble; cdecl; public;
{$endif FPUNONE}
function test_function_tiny_struct : _1byte_; cdecl; public;
function test_function_small_struct : _3byte_; cdecl; public;
function test_function_small_struct_s : _3byte_s; cdecl; public;
@ -176,6 +190,7 @@ procedure test_param_s64(x: int64); cdecl; public;
global_s64bit:=x;
end;
{$ifndef FPUNONE}
procedure test_param_float(x : single); cdecl; public;
begin
global_float:=x;
@ -190,6 +205,7 @@ procedure test_param_longdouble(x: clongdouble); cdecl; public;
begin
global_long_double:=x;
end;
{$endif FPUNONE}
procedure test_param_var_u8(var x: byte); cdecl; public;
begin
@ -233,6 +249,7 @@ procedure test_array_param_s64(x: int64_array); cdecl; public;
global_s64bit:=x[1];
end;
{$ifndef FPUNONE}
procedure test_array_param_float(x : single_array); cdecl; public;
begin
global_float:=x[1];
@ -247,7 +264,7 @@ procedure test_array_param_longdouble(x: clongdouble_array); cdecl; public;
begin
global_long_double:=x[1];
end;
{$endif FPUNONE}
{ mixed parameter passing }
procedure test_param_mixed_u16(z: byte; x : word; y :byte); cdecl; public;
@ -268,6 +285,7 @@ procedure test_param_mixed_s64(z: byte; x: int64; y: byte); cdecl; public;
global_u8bit:=y;
end;
{$ifndef FPUNONE}
procedure test_param_mixed_float(x: single; y: byte); cdecl; public;
begin
global_float:=x;
@ -285,6 +303,7 @@ procedure test_param_mixed_long_double(x: clongdouble; y: byte); cdecl; public;
global_long_double:=x;
global_u8bit:=y;
end;
{$endif FPUNONE}
procedure test_param_mixed_var_u8(var x: byte;y:byte); cdecl; public;
begin
@ -395,6 +414,7 @@ function test_function_pchar: pchar; cdecl; public;
test_function_pchar:=RESULT_PCHAR;
end;
{$ifndef FPUNONE}
function test_function_float : single; cdecl; public;
begin
test_function_float:=RESULT_FLOAT;
@ -409,6 +429,7 @@ function test_function_longdouble: clongdouble; cdecl; public;
begin
test_function_longdouble:=RESULT_LONGDOUBLE;
end;
{$endif FPUNONE}
function test_function_tiny_struct : _1byte_; cdecl; public;
begin