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

+ testing for symtablelevel = lexlevel

Browse Source
This commit is contained in:
carl 2002-04-13 07:48:47 +00:00
parent 3994946032
commit f84fc7c834
1 changed files with 135 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

139
tests/test/cg/tcalfun1.pp
View File

@ -384,6 +384,13 @@ function func_array_mixed_nested(b: byte): tsmallarray;
global_u16bit := b; global_u16bit := b;
global_s32bit := l; global_s32bit := l;
end; end;
procedure nested_two_proc(l : longint);
begin
global_s64bit := l;
end;
function nested_one_func(level1_b : byte; s: shortstring): byte; function nested_one_func(level1_b : byte; s: shortstring): byte;
var var
@ -399,6 +406,7 @@ function func_array_mixed_nested(b: byte): tsmallarray;
begin begin
s1:=s; s1:=s;
nested_one_func := nested_two_func(level1_b,s1); nested_one_func := nested_two_func(level1_b,s1);
nested_two_proc(level1_b);
end; end;
@ -422,6 +430,13 @@ function func_largerecord_mixed_nested(b: byte): tlargerecord;
global_u16bit := b; global_u16bit := b;
global_s32bit := l; global_s32bit := l;
end; end;
procedure nested_two_proc(l : longint);
begin
global_s64bit := l;
end;
function nested_one_func(level1_b : byte; s: shortstring): byte; function nested_one_func(level1_b : byte; s: shortstring): byte;
var var
@ -437,7 +452,9 @@ function func_largerecord_mixed_nested(b: byte): tlargerecord;
begin begin
s1:=s; s1:=s;
nested_one_func := nested_two_func(level1_b,s1); nested_one_func := nested_two_func(level1_b,s1);
nested_two_proc(level1_b);
end; end;
var var
local_b: byte; local_b: byte;
@ -458,6 +475,13 @@ function func_shortstring_mixed_nested(b: byte): shortstring;
global_u16bit := b; global_u16bit := b;
global_s32bit := l; global_s32bit := l;
end; end;
procedure nested_two_proc(l : longint);
begin
global_s64bit := l;
end;
function nested_one_func(level1_b : byte; s: shortstring): byte; function nested_one_func(level1_b : byte; s: shortstring): byte;
var var
@ -473,8 +497,9 @@ function func_shortstring_mixed_nested(b: byte): shortstring;
begin begin
s1:=s; s1:=s;
nested_one_func := nested_two_func(level1_b,s1); nested_one_func := nested_two_func(level1_b,s1);
nested_two_proc(level1_b);
end; end;
var var
local_b: byte; local_b: byte;
begin begin
@ -490,6 +515,13 @@ function func_largeset_mixed_nested(b: byte) : tlargeset;
global_u16bit := b; global_u16bit := b;
global_s32bit := l; global_s32bit := l;
end; end;
procedure nested_two_proc(l : longint);
begin
global_s64bit := l;
end;
function nested_one_func(level1_b : byte; s: shortstring): byte; function nested_one_func(level1_b : byte; s: shortstring): byte;
var var
@ -505,7 +537,9 @@ function func_largeset_mixed_nested(b: byte) : tlargeset;
begin begin
s1:=s; s1:=s;
nested_one_func := nested_two_func(level1_b,s1); nested_one_func := nested_two_func(level1_b,s1);
nested_two_proc(level1_b);
end; end;
var var
local_b: byte; local_b: byte;
@ -524,6 +558,13 @@ function func_u8bit_mixed_nested(b: byte) : byte;
global_u16bit := b; global_u16bit := b;
global_s32bit := l; global_s32bit := l;
end; end;
procedure nested_two_proc(l : longint);
begin
global_s64bit := l;
end;
function nested_one_func(level1_b : byte; s: shortstring): byte; function nested_one_func(level1_b : byte; s: shortstring): byte;
var var
@ -539,7 +580,9 @@ function func_u8bit_mixed_nested(b: byte) : byte;
begin begin
s1:=s; s1:=s;
nested_one_func := nested_two_func(level1_b,s1); nested_one_func := nested_two_func(level1_b,s1);
nested_two_proc(level1_b);
end; end;
var var
local_b: byte; local_b: byte;
@ -556,6 +599,13 @@ function func_u16bit_mixed_nested(b: byte) : word;
global_u16bit := b; global_u16bit := b;
global_s32bit := l; global_s32bit := l;
end; end;
procedure nested_two_proc(l : longint);
begin
global_s64bit := l;
end;
function nested_one_func(level1_b : byte; s: shortstring): byte; function nested_one_func(level1_b : byte; s: shortstring): byte;
var var
@ -571,7 +621,9 @@ function func_u16bit_mixed_nested(b: byte) : word;
begin begin
s1:=s; s1:=s;
nested_one_func := nested_two_func(level1_b,s1); nested_one_func := nested_two_func(level1_b,s1);
nested_two_proc(level1_b);
end; end;
var var
local_b: byte; local_b: byte;
@ -588,6 +640,13 @@ function func_s32bit_mixed_nested(b: byte) : longint;
global_u16bit := b; global_u16bit := b;
global_s32bit := l; global_s32bit := l;
end; end;
procedure nested_two_proc(l : longint);
begin
global_s64bit := l;
end;
function nested_one_func(level1_b : byte; s: shortstring): byte; function nested_one_func(level1_b : byte; s: shortstring): byte;
var var
@ -603,7 +662,9 @@ function func_s32bit_mixed_nested(b: byte) : longint;
begin begin
s1:=s; s1:=s;
nested_one_func := nested_two_func(level1_b,s1); nested_one_func := nested_two_func(level1_b,s1);
nested_two_proc(level1_b);
end; end;
var var
local_b: byte; local_b: byte;
@ -620,6 +681,13 @@ function func_s64bit_mixed_nested(b: byte) : int64;
global_u16bit := b; global_u16bit := b;
global_s32bit := l; global_s32bit := l;
end; end;
procedure nested_two_proc(l : longint);
begin
global_s64bit := l;
end;
function nested_one_func(level1_b : byte; s: shortstring): byte; function nested_one_func(level1_b : byte; s: shortstring): byte;
var var
@ -635,7 +703,9 @@ function func_s64bit_mixed_nested(b: byte) : int64;
begin begin
s1:=s; s1:=s;
nested_one_func := nested_two_func(level1_b,s1); nested_one_func := nested_two_func(level1_b,s1);
nested_two_proc(level1_b);
end; end;
var var
local_b: byte; local_b: byte;
@ -652,6 +722,13 @@ function func_s32real_mixed_nested(b: byte) : single;
global_u16bit := b; global_u16bit := b;
global_s32bit := l; global_s32bit := l;
end; end;
procedure nested_two_proc(l : longint);
begin
global_s64bit := l;
end;
function nested_one_func(level1_b : byte; s: shortstring): byte; function nested_one_func(level1_b : byte; s: shortstring): byte;
var var
@ -667,7 +744,9 @@ function func_s32real_mixed_nested(b: byte) : single;
begin begin
s1:=s; s1:=s;
nested_one_func := nested_two_func(level1_b,s1); nested_one_func := nested_two_func(level1_b,s1);
nested_two_proc(level1_b);
end; end;
var var
local_b: byte; local_b: byte;
@ -684,6 +763,13 @@ function func_s64real_mixed_nested(b: byte) : double;
global_u16bit := b; global_u16bit := b;
global_s32bit := l; global_s32bit := l;
end; end;
procedure nested_two_proc(l : longint);
begin
global_s64bit := l;
end;
function nested_one_func(level1_b : byte; s: shortstring): byte; function nested_one_func(level1_b : byte; s: shortstring): byte;
var var
@ -699,7 +785,9 @@ function func_s64real_mixed_nested(b: byte) : double;
begin begin
s1:=s; s1:=s;
nested_one_func := nested_two_func(level1_b,s1); nested_one_func := nested_two_func(level1_b,s1);
nested_two_proc(level1_b);
end; end;
var var
local_b: byte; local_b: byte;
@ -716,6 +804,13 @@ function func_ansistring_mixed_nested(b: byte) : ansistring;
global_u16bit := b; global_u16bit := b;
global_s32bit := l; global_s32bit := l;
end; end;
procedure nested_two_proc(l : longint);
begin
global_s64bit := l;
end;
function nested_one_func(level1_b : byte; s: shortstring): byte; function nested_one_func(level1_b : byte; s: shortstring): byte;
var var
@ -731,7 +826,9 @@ function func_ansistring_mixed_nested(b: byte) : ansistring;
begin begin
s1:=s; s1:=s;
nested_one_func := nested_two_func(level1_b,s1); nested_one_func := nested_two_func(level1_b,s1);
nested_two_proc(level1_b);
end; end;
var var
local_b: byte; local_b: byte;
@ -748,6 +845,13 @@ function func_pchar_mixed_nested(b: byte) : pchar;
global_u16bit := b; global_u16bit := b;
global_s32bit := l; global_s32bit := l;
end; end;
procedure nested_two_proc(l : longint);
begin
global_s64bit := l;
end;
function nested_one_func(level1_b : byte; s: shortstring): byte; function nested_one_func(level1_b : byte; s: shortstring): byte;
var var
@ -763,7 +867,9 @@ function func_pchar_mixed_nested(b: byte) : pchar;
begin begin
s1:=s; s1:=s;
nested_one_func := nested_two_func(level1_b,s1); nested_one_func := nested_two_func(level1_b,s1);
nested_two_proc(level1_b);
end; end;
var var
local_b: byte; local_b: byte;
@ -1063,6 +1169,8 @@ if value_ansistring <> RESULT_BIGSTRING then
failed := true; failed := true;
if global_s32bit <> RESULT_S32BIT then if global_s32bit <> RESULT_S32BIT then
failed := true; failed := true;
if global_s64bit <> RESULT_U8BIT then
failed := true;
clear_globals; clear_globals;
clear_values; clear_values;
@ -1075,6 +1183,8 @@ if value_ansistring <> RESULT_BIGSTRING then
failed := true; failed := true;
if global_u16bit <> RESULT_U8BIT then if global_u16bit <> RESULT_U8BIT then
failed := true; failed := true;
if global_s64bit <> RESULT_U8BIT then
failed := true;
if global_s32bit <> RESULT_S32BIT then if global_s32bit <> RESULT_S32BIT then
failed := true; failed := true;
@ -1091,6 +1201,8 @@ if value_ansistring <> RESULT_BIGSTRING then
failed := true; failed := true;
if global_s32bit <> RESULT_S32BIT then if global_s32bit <> RESULT_S32BIT then
failed := true; failed := true;
if global_s64bit <> RESULT_U8BIT then
failed := true;
clear_globals; clear_globals;
clear_values; clear_values;
@ -1105,6 +1217,8 @@ if value_ansistring <> RESULT_BIGSTRING then
failed := true; failed := true;
if global_s32bit <> RESULT_S32BIT then if global_s32bit <> RESULT_S32BIT then
failed := true; failed := true;
if global_s64bit <> RESULT_U8BIT then
failed := true;
if failed then if failed then
fail fail
@ -1129,6 +1243,8 @@ if value_ansistring <> RESULT_BIGSTRING then
failed := true; failed := true;
if global_s32bit <> RESULT_S32BIT then if global_s32bit <> RESULT_S32BIT then
failed := true; failed := true;
if global_s64bit <> RESULT_U8BIT then
failed := true;
clear_globals; clear_globals;
clear_values; clear_values;
@ -1141,6 +1257,8 @@ if value_ansistring <> RESULT_BIGSTRING then
failed := true; failed := true;
if global_u16bit <> RESULT_U8BIT then if global_u16bit <> RESULT_U8BIT then
failed := true; failed := true;
if global_s64bit <> RESULT_U8BIT then
failed := true;
if global_s32bit <> RESULT_S32BIT then if global_s32bit <> RESULT_S32BIT then
failed := true; failed := true;
@ -1155,6 +1273,8 @@ if value_ansistring <> RESULT_BIGSTRING then
failed := true; failed := true;
if global_u16bit <> RESULT_U8BIT then if global_u16bit <> RESULT_U8BIT then
failed := true; failed := true;
if global_s64bit <> RESULT_U8BIT then
failed := true;
if global_s32bit <> RESULT_S32BIT then if global_s32bit <> RESULT_S32BIT then
failed := true; failed := true;
@ -1169,6 +1289,8 @@ if value_ansistring <> RESULT_BIGSTRING then
failed := true; failed := true;
if global_u16bit <> RESULT_U8BIT then if global_u16bit <> RESULT_U8BIT then
failed := true; failed := true;
if global_s64bit <> RESULT_U8BIT then
failed := true;
if global_s32bit <> RESULT_S32BIT then if global_s32bit <> RESULT_S32BIT then
failed := true; failed := true;
@ -1193,6 +1315,8 @@ if value_ansistring <> RESULT_BIGSTRING then
failed := true; failed := true;
if global_u16bit <> RESULT_U8BIT then if global_u16bit <> RESULT_U8BIT then
failed := true; failed := true;
if global_s64bit <> RESULT_U8BIT then
failed := true;
if global_s32bit <> RESULT_S32BIT then if global_s32bit <> RESULT_S32BIT then
failed := true; failed := true;
@ -1207,6 +1331,8 @@ if value_ansistring <> RESULT_BIGSTRING then
failed := true; failed := true;
if global_u16bit <> RESULT_U8BIT then if global_u16bit <> RESULT_U8BIT then
failed := true; failed := true;
if global_s64bit <> RESULT_U8BIT then
failed := true;
if global_s32bit <> RESULT_S32BIT then if global_s32bit <> RESULT_S32BIT then
failed := true; failed := true;
@ -1231,6 +1357,8 @@ if value_ansistring <> RESULT_BIGSTRING then
failed := true; failed := true;
if global_u16bit <> RESULT_U8BIT then if global_u16bit <> RESULT_U8BIT then
failed := true; failed := true;
if global_s64bit <> RESULT_U8BIT then
failed := true;
if global_s32bit <> RESULT_S32BIT then if global_s32bit <> RESULT_S32BIT then
failed := true; failed := true;
@ -1254,6 +1382,8 @@ if value_ansistring <> RESULT_BIGSTRING then
failed := true; failed := true;
if global_u16bit <> RESULT_U8BIT then if global_u16bit <> RESULT_U8BIT then
failed := true; failed := true;
if global_s64bit <> RESULT_U8BIT then
failed := true;
if global_s32bit <> RESULT_S32BIT then if global_s32bit <> RESULT_S32BIT then
failed := true; failed := true;
@ -1265,8 +1395,9 @@ end.
{ {
$Log$ $Log$
Revision 1.1 2002-04-11 19:35:49 carl Revision 1.2 2002-04-13 07:48:47 carl
+ function call testing + testing for symtablelevel = lexlevel
Revision 1.1 2002/04/11 19:35:49 carl
+ function call testing
} }