mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-13 10:19:19 +02:00
+ testing for symtablelevel = lexlevel
This commit is contained in:
carl
parent
3994946032
commit
f84fc7c834
@ -385,6 +385,13 @@ function func_array_mixed_nested(b: byte): tsmallarray;
|
||||
global_s32bit := l;
|
||||
end;
|
||||
|
||||
procedure nested_two_proc(l : longint);
|
||||
begin
|
||||
global_s64bit := l;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function nested_one_func(level1_b : byte; s: shortstring): byte;
|
||||
var
|
||||
s1 : shortstring;
|
||||
@ -399,6 +406,7 @@ function func_array_mixed_nested(b: byte): tsmallarray;
|
||||
begin
|
||||
s1:=s;
|
||||
nested_one_func := nested_two_func(level1_b,s1);
|
||||
nested_two_proc(level1_b);
|
||||
end;
|
||||
|
||||
|
||||
@ -423,6 +431,13 @@ function func_largerecord_mixed_nested(b: byte): tlargerecord;
|
||||
global_s32bit := l;
|
||||
end;
|
||||
|
||||
procedure nested_two_proc(l : longint);
|
||||
begin
|
||||
global_s64bit := l;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function nested_one_func(level1_b : byte; s: shortstring): byte;
|
||||
var
|
||||
s1 : shortstring;
|
||||
@ -437,8 +452,10 @@ function func_largerecord_mixed_nested(b: byte): tlargerecord;
|
||||
begin
|
||||
s1:=s;
|
||||
nested_one_func := nested_two_func(level1_b,s1);
|
||||
nested_two_proc(level1_b);
|
||||
end;
|
||||
|
||||
|
||||
var
|
||||
local_b: byte;
|
||||
largerecord : tlargerecord;
|
||||
@ -459,6 +476,13 @@ function func_shortstring_mixed_nested(b: byte): shortstring;
|
||||
global_s32bit := l;
|
||||
end;
|
||||
|
||||
procedure nested_two_proc(l : longint);
|
||||
begin
|
||||
global_s64bit := l;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function nested_one_func(level1_b : byte; s: shortstring): byte;
|
||||
var
|
||||
s1 : shortstring;
|
||||
@ -473,6 +497,7 @@ function func_shortstring_mixed_nested(b: byte): shortstring;
|
||||
begin
|
||||
s1:=s;
|
||||
nested_one_func := nested_two_func(level1_b,s1);
|
||||
nested_two_proc(level1_b);
|
||||
end;
|
||||
|
||||
var
|
||||
@ -491,6 +516,13 @@ function func_largeset_mixed_nested(b: byte) : tlargeset;
|
||||
global_s32bit := l;
|
||||
end;
|
||||
|
||||
procedure nested_two_proc(l : longint);
|
||||
begin
|
||||
global_s64bit := l;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function nested_one_func(level1_b : byte; s: shortstring): byte;
|
||||
var
|
||||
s1 : shortstring;
|
||||
@ -505,8 +537,10 @@ function func_largeset_mixed_nested(b: byte) : tlargeset;
|
||||
begin
|
||||
s1:=s;
|
||||
nested_one_func := nested_two_func(level1_b,s1);
|
||||
nested_two_proc(level1_b);
|
||||
end;
|
||||
|
||||
|
||||
var
|
||||
local_b: byte;
|
||||
largeset : tlargeset;
|
||||
@ -525,6 +559,13 @@ function func_u8bit_mixed_nested(b: byte) : byte;
|
||||
global_s32bit := l;
|
||||
end;
|
||||
|
||||
procedure nested_two_proc(l : longint);
|
||||
begin
|
||||
global_s64bit := l;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function nested_one_func(level1_b : byte; s: shortstring): byte;
|
||||
var
|
||||
s1 : shortstring;
|
||||
@ -539,8 +580,10 @@ function func_u8bit_mixed_nested(b: byte) : byte;
|
||||
begin
|
||||
s1:=s;
|
||||
nested_one_func := nested_two_func(level1_b,s1);
|
||||
nested_two_proc(level1_b);
|
||||
end;
|
||||
|
||||
|
||||
var
|
||||
local_b: byte;
|
||||
begin
|
||||
@ -557,6 +600,13 @@ function func_u16bit_mixed_nested(b: byte) : word;
|
||||
global_s32bit := l;
|
||||
end;
|
||||
|
||||
procedure nested_two_proc(l : longint);
|
||||
begin
|
||||
global_s64bit := l;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function nested_one_func(level1_b : byte; s: shortstring): byte;
|
||||
var
|
||||
s1 : shortstring;
|
||||
@ -571,8 +621,10 @@ function func_u16bit_mixed_nested(b: byte) : word;
|
||||
begin
|
||||
s1:=s;
|
||||
nested_one_func := nested_two_func(level1_b,s1);
|
||||
nested_two_proc(level1_b);
|
||||
end;
|
||||
|
||||
|
||||
var
|
||||
local_b: byte;
|
||||
begin
|
||||
@ -589,6 +641,13 @@ function func_s32bit_mixed_nested(b: byte) : longint;
|
||||
global_s32bit := l;
|
||||
end;
|
||||
|
||||
procedure nested_two_proc(l : longint);
|
||||
begin
|
||||
global_s64bit := l;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function nested_one_func(level1_b : byte; s: shortstring): byte;
|
||||
var
|
||||
s1 : shortstring;
|
||||
@ -603,8 +662,10 @@ function func_s32bit_mixed_nested(b: byte) : longint;
|
||||
begin
|
||||
s1:=s;
|
||||
nested_one_func := nested_two_func(level1_b,s1);
|
||||
nested_two_proc(level1_b);
|
||||
end;
|
||||
|
||||
|
||||
var
|
||||
local_b: byte;
|
||||
begin
|
||||
@ -621,6 +682,13 @@ function func_s64bit_mixed_nested(b: byte) : int64;
|
||||
global_s32bit := l;
|
||||
end;
|
||||
|
||||
procedure nested_two_proc(l : longint);
|
||||
begin
|
||||
global_s64bit := l;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function nested_one_func(level1_b : byte; s: shortstring): byte;
|
||||
var
|
||||
s1 : shortstring;
|
||||
@ -635,8 +703,10 @@ function func_s64bit_mixed_nested(b: byte) : int64;
|
||||
begin
|
||||
s1:=s;
|
||||
nested_one_func := nested_two_func(level1_b,s1);
|
||||
nested_two_proc(level1_b);
|
||||
end;
|
||||
|
||||
|
||||
var
|
||||
local_b: byte;
|
||||
begin
|
||||
@ -653,6 +723,13 @@ function func_s32real_mixed_nested(b: byte) : single;
|
||||
global_s32bit := l;
|
||||
end;
|
||||
|
||||
procedure nested_two_proc(l : longint);
|
||||
begin
|
||||
global_s64bit := l;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function nested_one_func(level1_b : byte; s: shortstring): byte;
|
||||
var
|
||||
s1 : shortstring;
|
||||
@ -667,8 +744,10 @@ function func_s32real_mixed_nested(b: byte) : single;
|
||||
begin
|
||||
s1:=s;
|
||||
nested_one_func := nested_two_func(level1_b,s1);
|
||||
nested_two_proc(level1_b);
|
||||
end;
|
||||
|
||||
|
||||
var
|
||||
local_b: byte;
|
||||
begin
|
||||
@ -685,6 +764,13 @@ function func_s64real_mixed_nested(b: byte) : double;
|
||||
global_s32bit := l;
|
||||
end;
|
||||
|
||||
procedure nested_two_proc(l : longint);
|
||||
begin
|
||||
global_s64bit := l;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function nested_one_func(level1_b : byte; s: shortstring): byte;
|
||||
var
|
||||
s1 : shortstring;
|
||||
@ -699,8 +785,10 @@ function func_s64real_mixed_nested(b: byte) : double;
|
||||
begin
|
||||
s1:=s;
|
||||
nested_one_func := nested_two_func(level1_b,s1);
|
||||
nested_two_proc(level1_b);
|
||||
end;
|
||||
|
||||
|
||||
var
|
||||
local_b: byte;
|
||||
begin
|
||||
@ -717,6 +805,13 @@ function func_ansistring_mixed_nested(b: byte) : ansistring;
|
||||
global_s32bit := l;
|
||||
end;
|
||||
|
||||
procedure nested_two_proc(l : longint);
|
||||
begin
|
||||
global_s64bit := l;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function nested_one_func(level1_b : byte; s: shortstring): byte;
|
||||
var
|
||||
s1 : shortstring;
|
||||
@ -731,8 +826,10 @@ function func_ansistring_mixed_nested(b: byte) : ansistring;
|
||||
begin
|
||||
s1:=s;
|
||||
nested_one_func := nested_two_func(level1_b,s1);
|
||||
nested_two_proc(level1_b);
|
||||
end;
|
||||
|
||||
|
||||
var
|
||||
local_b: byte;
|
||||
begin
|
||||
@ -749,6 +846,13 @@ function func_pchar_mixed_nested(b: byte) : pchar;
|
||||
global_s32bit := l;
|
||||
end;
|
||||
|
||||
procedure nested_two_proc(l : longint);
|
||||
begin
|
||||
global_s64bit := l;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function nested_one_func(level1_b : byte; s: shortstring): byte;
|
||||
var
|
||||
s1 : shortstring;
|
||||
@ -763,8 +867,10 @@ function func_pchar_mixed_nested(b: byte) : pchar;
|
||||
begin
|
||||
s1:=s;
|
||||
nested_one_func := nested_two_func(level1_b,s1);
|
||||
nested_two_proc(level1_b);
|
||||
end;
|
||||
|
||||
|
||||
var
|
||||
local_b: byte;
|
||||
begin
|
||||
@ -1063,6 +1169,8 @@ if value_ansistring <> RESULT_BIGSTRING then
|
||||
failed := true;
|
||||
if global_s32bit <> RESULT_S32BIT then
|
||||
failed := true;
|
||||
if global_s64bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
|
||||
clear_globals;
|
||||
clear_values;
|
||||
@ -1075,6 +1183,8 @@ if value_ansistring <> RESULT_BIGSTRING then
|
||||
failed := true;
|
||||
if global_u16bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s64bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s32bit <> RESULT_S32BIT then
|
||||
failed := true;
|
||||
|
||||
@ -1091,6 +1201,8 @@ if value_ansistring <> RESULT_BIGSTRING then
|
||||
failed := true;
|
||||
if global_s32bit <> RESULT_S32BIT then
|
||||
failed := true;
|
||||
if global_s64bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
|
||||
clear_globals;
|
||||
clear_values;
|
||||
@ -1105,6 +1217,8 @@ if value_ansistring <> RESULT_BIGSTRING then
|
||||
failed := true;
|
||||
if global_s32bit <> RESULT_S32BIT then
|
||||
failed := true;
|
||||
if global_s64bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
|
||||
if failed then
|
||||
fail
|
||||
@ -1129,6 +1243,8 @@ if value_ansistring <> RESULT_BIGSTRING then
|
||||
failed := true;
|
||||
if global_s32bit <> RESULT_S32BIT then
|
||||
failed := true;
|
||||
if global_s64bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
|
||||
clear_globals;
|
||||
clear_values;
|
||||
@ -1141,6 +1257,8 @@ if value_ansistring <> RESULT_BIGSTRING then
|
||||
failed := true;
|
||||
if global_u16bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s64bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s32bit <> RESULT_S32BIT then
|
||||
failed := true;
|
||||
|
||||
@ -1155,6 +1273,8 @@ if value_ansistring <> RESULT_BIGSTRING then
|
||||
failed := true;
|
||||
if global_u16bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s64bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s32bit <> RESULT_S32BIT then
|
||||
failed := true;
|
||||
|
||||
@ -1169,6 +1289,8 @@ if value_ansistring <> RESULT_BIGSTRING then
|
||||
failed := true;
|
||||
if global_u16bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s64bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s32bit <> RESULT_S32BIT then
|
||||
failed := true;
|
||||
|
||||
@ -1193,6 +1315,8 @@ if value_ansistring <> RESULT_BIGSTRING then
|
||||
failed := true;
|
||||
if global_u16bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s64bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s32bit <> RESULT_S32BIT then
|
||||
failed := true;
|
||||
|
||||
@ -1207,6 +1331,8 @@ if value_ansistring <> RESULT_BIGSTRING then
|
||||
failed := true;
|
||||
if global_u16bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s64bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s32bit <> RESULT_S32BIT then
|
||||
failed := true;
|
||||
|
||||
@ -1231,6 +1357,8 @@ if value_ansistring <> RESULT_BIGSTRING then
|
||||
failed := true;
|
||||
if global_u16bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s64bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s32bit <> RESULT_S32BIT then
|
||||
failed := true;
|
||||
|
||||
@ -1254,6 +1382,8 @@ if value_ansistring <> RESULT_BIGSTRING then
|
||||
failed := true;
|
||||
if global_u16bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s64bit <> RESULT_U8BIT then
|
||||
failed := true;
|
||||
if global_s32bit <> RESULT_S32BIT then
|
||||
failed := true;
|
||||
|
||||
@ -1265,8 +1395,9 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2002-04-11 19:35:49 carl
|
||||
Revision 1.2 2002-04-13 07:48:47 carl
|
||||
+ testing for symtablelevel = lexlevel
|
||||
|
||||
Revision 1.1 2002/04/11 19:35:49 carl
|
||||
+ function call testing
|
||||
|
||||
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user