mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 13:30:42 +02:00
+ updated tests for correct parsing (array of const now allowed with high!)
This commit is contained in:
carl
parent
1c978e95d9
commit
3d65591f76
@ -232,39 +232,6 @@ var
|
|||||||
global_s64bit:= v;
|
global_s64bit:= v;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure proc_const_smallarray_const_1(const arr : array of const);cdecl;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
for i:=0 to high(arr) do
|
|
||||||
begin
|
|
||||||
case arr[i].vtype of
|
|
||||||
vtInteger : global_u8bit := arr[i].vinteger and $ff;
|
|
||||||
vtBoolean : global_boolean := arr[i].vboolean;
|
|
||||||
vtChar : global_char := arr[i].vchar;
|
|
||||||
vtExtended : global_s64real := arr[i].VExtended^;
|
|
||||||
vtString : global_bigstring := arr[i].VString^;
|
|
||||||
vtPointer : ;
|
|
||||||
vtPChar : global_ptr := arr[i].VPchar;
|
|
||||||
vtObject : ;
|
|
||||||
{ vtClass : global_class := (arr[i].VClass) as tclass1;}
|
|
||||||
vtAnsiString : ;
|
|
||||||
vtInt64 : global_s64bit := arr[i].vInt64^;
|
|
||||||
else
|
|
||||||
RunError(255);
|
|
||||||
end;
|
|
||||||
end; {endfor}
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure proc_const_smallarray_const_2(const arr : array of const);cdecl;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
if high(arr)<0 then
|
|
||||||
global_u8bit := RESULT_U8BIT;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{$endif}
|
{$endif}
|
||||||
|
|
||||||
|
|
||||||
@ -351,40 +318,6 @@ var
|
|||||||
value_u8bit := b2;
|
value_u8bit := b2;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure proc_const_smallarray_const_1_mixed(b1 : byte; const arr : array of const; b2: byte);cdecl;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
for i:=0 to high(arr) do
|
|
||||||
begin
|
|
||||||
case arr[i].vtype of
|
|
||||||
vtInteger : global_u8bit := arr[i].vinteger and $ff;
|
|
||||||
vtBoolean : global_boolean := arr[i].vboolean;
|
|
||||||
vtChar : global_char := arr[i].vchar;
|
|
||||||
vtExtended : global_s64real := arr[i].VExtended^;
|
|
||||||
vtString : global_bigstring := arr[i].VString^;
|
|
||||||
vtPointer : ;
|
|
||||||
vtPChar : global_ptr := arr[i].VPchar;
|
|
||||||
vtObject : ;
|
|
||||||
{ vtClass : global_class := (arr[i].VClass) as tclass1;}
|
|
||||||
vtAnsiString : ;
|
|
||||||
vtInt64 : global_s64bit := arr[i].vInt64^;
|
|
||||||
else
|
|
||||||
RunError(255);
|
|
||||||
end;
|
|
||||||
end; {endfor}
|
|
||||||
value_u8bit := b2;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure proc_const_smallarray_const_2_mixed(b1: byte; const arr : array of const; b2: byte);cdecl;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
if high(arr)<0 then
|
|
||||||
global_u8bit := RESULT_U8BIT;
|
|
||||||
value_u8bit := b2;
|
|
||||||
end;
|
|
||||||
{$endif}
|
{$endif}
|
||||||
|
|
||||||
|
|
||||||
@ -600,47 +533,6 @@ begin
|
|||||||
if global_u8bit <> RESULT_U8BIT then
|
if global_u8bit <> RESULT_U8BIT then
|
||||||
failed := true;
|
failed := true;
|
||||||
|
|
||||||
{$ifndef tp}
|
|
||||||
clear_globals;
|
|
||||||
clear_values;
|
|
||||||
|
|
||||||
value_u8bit := RESULT_U8BIT;
|
|
||||||
value_ptr := RESULT_PCHAR;
|
|
||||||
value_s64bit := RESULT_S64BIT;
|
|
||||||
value_smallstring := RESULT_SMALLSTRING;
|
|
||||||
value_class := tclass1.create;
|
|
||||||
value_boolean := RESULT_BOOLEAN;
|
|
||||||
value_char := RESULT_CHAR;
|
|
||||||
value_s64real:=RESULT_S64REAL;
|
|
||||||
proc_const_smallarray_const_1([value_u8bit,value_ptr,value_s64bit,value_char,value_smallstring,value_s64real,
|
|
||||||
value_boolean,value_class]);
|
|
||||||
|
|
||||||
if global_u8bit <> RESULT_U8BIT then
|
|
||||||
failed := true;
|
|
||||||
|
|
||||||
if global_char <> RESULT_CHAR then
|
|
||||||
failed := true;
|
|
||||||
if global_boolean <> RESULT_BOOLEAN then
|
|
||||||
failed:=true;
|
|
||||||
if trunc(global_s64real) <> trunc(RESULT_S64REAL) then
|
|
||||||
failed := true;
|
|
||||||
if global_bigstring <> RESULT_SMALLSTRING then
|
|
||||||
failed := true;
|
|
||||||
if global_ptr <> value_ptr then
|
|
||||||
failed := true;
|
|
||||||
{ if value_class <> global_class then
|
|
||||||
failed := true;!!!!!!!!!!!!!!!!!!!!}
|
|
||||||
if global_s64bit <> RESULT_S64BIT then
|
|
||||||
failed := true;
|
|
||||||
if assigned(value_class) then
|
|
||||||
value_class.destroy;
|
|
||||||
|
|
||||||
global_u8bit := 0;
|
|
||||||
proc_const_smallarray_const_2([]);
|
|
||||||
if global_u8bit <> RESULT_U8BIT then
|
|
||||||
failed := true;
|
|
||||||
{$endif}
|
|
||||||
|
|
||||||
if failed then
|
if failed then
|
||||||
fail
|
fail
|
||||||
else
|
else
|
||||||
@ -794,50 +686,6 @@ begin
|
|||||||
if value_u8bit <> RESULT_U8BIT then
|
if value_u8bit <> RESULT_U8BIT then
|
||||||
failed := true;
|
failed := true;
|
||||||
|
|
||||||
{$ifndef tp}
|
|
||||||
clear_globals;
|
|
||||||
clear_values;
|
|
||||||
|
|
||||||
value_u8bit := RESULT_U8BIT;
|
|
||||||
value_ptr := RESULT_PCHAR;
|
|
||||||
value_s64bit := RESULT_S64BIT;
|
|
||||||
value_smallstring := RESULT_SMALLSTRING;
|
|
||||||
value_class := tclass1.create;
|
|
||||||
value_boolean := RESULT_BOOLEAN;
|
|
||||||
value_char := RESULT_CHAR;
|
|
||||||
value_s64real:=RESULT_S64REAL;
|
|
||||||
proc_const_smallarray_const_1_mixed(RESULT_U8BIT, [value_u8bit,value_ptr,value_s64bit,value_char,value_smallstring,
|
|
||||||
value_s64real,value_boolean,value_class],RESULT_U8BIT);
|
|
||||||
|
|
||||||
if global_u8bit <> RESULT_U8BIT then
|
|
||||||
failed := true;
|
|
||||||
|
|
||||||
if global_char <> RESULT_CHAR then
|
|
||||||
failed := true;
|
|
||||||
if global_boolean <> RESULT_BOOLEAN then
|
|
||||||
failed:=true;
|
|
||||||
if trunc(global_s64real) <> trunc(RESULT_S64REAL) then
|
|
||||||
failed := true;
|
|
||||||
if global_bigstring <> RESULT_SMALLSTRING then
|
|
||||||
failed := true;
|
|
||||||
if global_ptr <> value_ptr then
|
|
||||||
failed := true;
|
|
||||||
{ if value_class <> global_class then
|
|
||||||
failed := true;!!!!!!!!!!!!!!!!!!!!}
|
|
||||||
if global_s64bit <> RESULT_S64BIT then
|
|
||||||
failed := true;
|
|
||||||
if assigned(value_class) then
|
|
||||||
value_class.destroy;
|
|
||||||
if value_u8bit <> RESULT_U8BIT then
|
|
||||||
failed := true;
|
|
||||||
|
|
||||||
global_u8bit := 0;
|
|
||||||
proc_const_smallarray_const_2_mixed(RESULT_U8BIT,[],RESULT_U8BIT);
|
|
||||||
if global_u8bit <> RESULT_U8BIT then
|
|
||||||
failed := true;
|
|
||||||
if value_u8bit <> RESULT_U8BIT then
|
|
||||||
failed := true;
|
|
||||||
{$endif}
|
|
||||||
|
|
||||||
if failed then
|
if failed then
|
||||||
fail
|
fail
|
||||||
@ -847,7 +695,10 @@ end.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.5 2002-09-22 14:16:12 carl
|
Revision 1.6 2002-11-09 21:47:36 carl
|
||||||
|
+ updated tests for correct parsing (array of const now allowed with high!)
|
||||||
|
|
||||||
|
Revision 1.5 2002/09/22 14:16:12 carl
|
||||||
* fix small typo
|
* fix small typo
|
||||||
|
|
||||||
Revision 1.4 2002/09/22 09:08:40 carl
|
Revision 1.4 2002/09/22 09:08:40 carl
|
||||||
|
|||||||
@ -349,39 +349,6 @@ var
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
procedure proc_value_smallarray_const_1(arr : array of const);cdecl;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
for i:=0 to high(arr) do
|
|
||||||
begin
|
|
||||||
case arr[i].vtype of
|
|
||||||
vtInteger : global_u8bit := arr[i].vinteger and $ff;
|
|
||||||
vtBoolean : global_boolean := arr[i].vboolean;
|
|
||||||
vtChar : global_char := arr[i].vchar;
|
|
||||||
vtExtended : global_s64real := arr[i].VExtended^;
|
|
||||||
vtString : global_bigstring := arr[i].VString^;
|
|
||||||
vtPointer : ;
|
|
||||||
vtPChar : global_ptr := arr[i].VPchar;
|
|
||||||
vtObject : ;
|
|
||||||
{ vtClass : global_class := (arr[i].VClass) as tclass1;}
|
|
||||||
vtAnsiString : ;
|
|
||||||
vtInt64 : global_s64bit := arr[i].vInt64^;
|
|
||||||
else
|
|
||||||
RunError(255);
|
|
||||||
end;
|
|
||||||
end; {endfor}
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure proc_value_smallarray_const_2(arr : array of const);cdecl;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
if high(arr)<0 then
|
|
||||||
global_u8bit := RESULT_U8BIT;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure proc_value_s64bit(v: int64);cdecl;
|
procedure proc_value_s64bit(v: int64);cdecl;
|
||||||
begin
|
begin
|
||||||
global_s64bit:= v;
|
global_s64bit:= v;
|
||||||
@ -541,40 +508,6 @@ var
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
procedure proc_value_smallarray_const_1_mixed(b1: byte; arr : array of const; b2: byte);cdecl;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
for i:=0 to high(arr) do
|
|
||||||
begin
|
|
||||||
case arr[i].vtype of
|
|
||||||
vtInteger : global_u8bit := arr[i].vinteger and $ff;
|
|
||||||
vtBoolean : global_boolean := arr[i].vboolean;
|
|
||||||
vtChar : global_char := arr[i].vchar;
|
|
||||||
vtExtended : global_s64real := arr[i].VExtended^;
|
|
||||||
vtString : global_bigstring := arr[i].VString^;
|
|
||||||
vtPointer : ;
|
|
||||||
vtPChar : global_ptr := arr[i].VPchar;
|
|
||||||
vtObject : ;
|
|
||||||
{ vtClass : global_class := (arr[i].VClass) as tclass1;}
|
|
||||||
vtAnsiString : ;
|
|
||||||
vtInt64 : global_s64bit := arr[i].vInt64^;
|
|
||||||
else
|
|
||||||
RunError(255);
|
|
||||||
end;
|
|
||||||
end; {endfor}
|
|
||||||
value_u8bit := b2;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure proc_value_smallarray_const_2_mixed(b1: byte; arr : array of const; b2: byte);cdecl;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
if high(arr)<0 then
|
|
||||||
global_u8bit := RESULT_U8BIT;
|
|
||||||
value_u8bit := b2;
|
|
||||||
end;
|
|
||||||
{$endif}
|
{$endif}
|
||||||
|
|
||||||
|
|
||||||
@ -860,46 +793,6 @@ Begin
|
|||||||
if global_u8bit <> RESULT_U8BIT then
|
if global_u8bit <> RESULT_U8BIT then
|
||||||
failed := true;
|
failed := true;
|
||||||
|
|
||||||
{$ifndef tp}
|
|
||||||
clear_globals;
|
|
||||||
clear_values;
|
|
||||||
|
|
||||||
value_u8bit := RESULT_U8BIT;
|
|
||||||
value_ptr := RESULT_PCHAR;
|
|
||||||
value_s64bit := RESULT_S64BIT;
|
|
||||||
value_smallstring := RESULT_SMALLSTRING;
|
|
||||||
value_class := tclass1.create;
|
|
||||||
value_boolean := RESULT_BOOLEAN;
|
|
||||||
value_char := RESULT_CHAR;
|
|
||||||
value_s64real:=RESULT_S64REAL;
|
|
||||||
proc_value_smallarray_const_1([value_u8bit,value_ptr,value_s64bit,value_char,value_smallstring,value_s64real,
|
|
||||||
value_boolean,value_class]);
|
|
||||||
|
|
||||||
if global_u8bit <> RESULT_U8BIT then
|
|
||||||
failed := true;
|
|
||||||
|
|
||||||
if global_char <> RESULT_CHAR then
|
|
||||||
failed := true;
|
|
||||||
if global_boolean <> RESULT_BOOLEAN then
|
|
||||||
failed:=true;
|
|
||||||
if trunc(global_s64real) <> trunc(RESULT_S64REAL) then
|
|
||||||
failed := true;
|
|
||||||
if global_bigstring <> RESULT_SMALLSTRING then
|
|
||||||
failed := true;
|
|
||||||
if global_ptr <> value_ptr then
|
|
||||||
failed := true;
|
|
||||||
{ if value_class <> global_class then
|
|
||||||
failed := true;!!!!!!!!!!!!!!!!!!!!}
|
|
||||||
if global_s64bit <> RESULT_S64BIT then
|
|
||||||
failed := true;
|
|
||||||
if assigned(value_class) then
|
|
||||||
value_class.destroy;
|
|
||||||
|
|
||||||
global_u8bit := 0;
|
|
||||||
proc_value_smallarray_const_2([]);
|
|
||||||
if global_u8bit <> RESULT_U8BIT then
|
|
||||||
failed := true;
|
|
||||||
{$endif fpc}
|
|
||||||
|
|
||||||
if failed then
|
if failed then
|
||||||
fail
|
fail
|
||||||
@ -1235,51 +1128,6 @@ Begin
|
|||||||
if value_u8bit <> RESULT_U8BIT then
|
if value_u8bit <> RESULT_U8BIT then
|
||||||
failed := true;
|
failed := true;
|
||||||
|
|
||||||
{$ifndef tp}
|
|
||||||
clear_globals;
|
|
||||||
clear_values;
|
|
||||||
|
|
||||||
value_u8bit := RESULT_U8BIT;
|
|
||||||
value_ptr := RESULT_PCHAR;
|
|
||||||
value_s64bit := RESULT_S64BIT;
|
|
||||||
value_smallstring := RESULT_SMALLSTRING;
|
|
||||||
value_class := tclass1.create;
|
|
||||||
value_boolean := RESULT_BOOLEAN;
|
|
||||||
value_char := RESULT_CHAR;
|
|
||||||
value_s64real:=RESULT_S64REAL;
|
|
||||||
proc_value_smallarray_const_1_mixed(byte(NOT RESULT_U8BIT), [value_u8bit,value_ptr,value_s64bit,value_char,
|
|
||||||
value_smallstring,value_s64real,value_boolean,value_class],
|
|
||||||
RESULT_U8BIT);
|
|
||||||
if value_u8bit <> RESULT_U8BIT then
|
|
||||||
failed := true;
|
|
||||||
|
|
||||||
if global_u8bit <> RESULT_U8BIT then
|
|
||||||
failed := true;
|
|
||||||
|
|
||||||
if global_char <> RESULT_CHAR then
|
|
||||||
failed := true;
|
|
||||||
if global_boolean <> RESULT_BOOLEAN then
|
|
||||||
failed:=true;
|
|
||||||
if trunc(global_s64real) <> trunc(RESULT_S64REAL) then
|
|
||||||
failed := true;
|
|
||||||
if global_bigstring <> RESULT_SMALLSTRING then
|
|
||||||
failed := true;
|
|
||||||
if global_ptr <> value_ptr then
|
|
||||||
failed := true;
|
|
||||||
{ if value_class <> global_class then
|
|
||||||
failed := true;!!!!!!!!!!!!!!!!!!!!}
|
|
||||||
if global_s64bit <> RESULT_S64BIT then
|
|
||||||
failed := true;
|
|
||||||
if assigned(value_class) then
|
|
||||||
value_class.destroy;
|
|
||||||
|
|
||||||
global_u8bit := 0;
|
|
||||||
proc_value_smallarray_const_2_mixed(byte(NOT RESULT_U8BIT), [], RESULT_U8BIT);
|
|
||||||
if global_u8bit <> RESULT_U8BIT then
|
|
||||||
failed := true;
|
|
||||||
if value_u8bit <> RESULT_U8BIT then
|
|
||||||
failed := true;
|
|
||||||
{$endif}
|
|
||||||
|
|
||||||
if failed then
|
if failed then
|
||||||
fail
|
fail
|
||||||
@ -1291,7 +1139,10 @@ end.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.4 2002-09-22 09:08:41 carl
|
Revision 1.5 2002-11-09 21:47:37 carl
|
||||||
|
+ updated tests for correct parsing (array of const now allowed with high!)
|
||||||
|
|
||||||
|
Revision 1.4 2002/09/22 09:08:41 carl
|
||||||
* gets64bit was not returning an int64!
|
* gets64bit was not returning an int64!
|
||||||
|
|
||||||
Revision 1.3 2002/09/07 15:40:55 peter
|
Revision 1.3 2002/09/07 15:40:55 peter
|
||||||
|
|||||||
@ -292,29 +292,6 @@ var
|
|||||||
arr[low(arr)] := RESULT_U8BIT;
|
arr[low(arr)] := RESULT_U8BIT;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure proc_var_smallarray_const_1(var arr : array of const);cdecl;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
for i:=0 to high(arr) do
|
|
||||||
begin
|
|
||||||
case arr[i].vtype of
|
|
||||||
vtInteger : arr[i].vinteger := RESULT_U8BIT;
|
|
||||||
vtBoolean : arr[i].vboolean := RESULT_BOOLEAN;
|
|
||||||
else
|
|
||||||
RunError(255);
|
|
||||||
end;
|
|
||||||
end; {endfor}
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure proc_var_smallarray_const_2(var arr : array of const);cdecl;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
if high(arr)<0 then
|
|
||||||
global_u8bit := RESULT_U8BIT;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure proc_var_formaldef_array(var buf);cdecl;
|
procedure proc_var_formaldef_array(var buf);cdecl;
|
||||||
@ -426,32 +403,6 @@ procedure proc_var_formaldef_string(var buf);cdecl;
|
|||||||
value_u8bit := RESULT_U8BIT;
|
value_u8bit := RESULT_U8BIT;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure proc_var_smallarray_const_1_mixed(b1 : byte; var arr : array of const; b2: byte);cdecl;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
for i:=0 to high(arr) do
|
|
||||||
begin
|
|
||||||
case arr[i].vtype of
|
|
||||||
vtInteger : arr[i].vinteger := RESULT_U8BIT;
|
|
||||||
vtBoolean : arr[i].vboolean := RESULT_BOOLEAN;
|
|
||||||
else
|
|
||||||
RunError(255);
|
|
||||||
end;
|
|
||||||
end; {endfor}
|
|
||||||
value_u8bit := RESULT_U8BIT;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure proc_var_smallarray_const_2_mixed(b1 : byte; var arr : array of const; b2: byte);cdecl;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
if high(arr)<0 then
|
|
||||||
global_u8bit := RESULT_U8BIT;
|
|
||||||
value_u8bit := RESULT_U8BIT;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure proc_var_formaldef_array_mixed(b1 : byte; var buf; b2: byte);cdecl;
|
procedure proc_var_formaldef_array_mixed(b1 : byte; var buf; b2: byte);cdecl;
|
||||||
var
|
var
|
||||||
@ -612,44 +563,6 @@ begin
|
|||||||
if (value_smallarray[SMALL_INDEX] <> RESULT_U8BIT) or (value_smallarray[1] <> RESULT_U8BIT) then
|
if (value_smallarray[SMALL_INDEX] <> RESULT_U8BIT) or (value_smallarray[1] <> RESULT_U8BIT) then
|
||||||
failed := true;
|
failed := true;
|
||||||
|
|
||||||
(* HOW CAN ARRAY OF CONST VAR PARAMETERS BE TESTED?
|
|
||||||
clear_globals;
|
|
||||||
clear_values;
|
|
||||||
value_u8bit := RESULT_U8BIT;
|
|
||||||
value_ptr := RESULT_PCHAR;
|
|
||||||
value_s64bit := RESULT_S64BIT;
|
|
||||||
value_smallstring := RESULT_SMALLSTRING;
|
|
||||||
value_class := tclass1.create;
|
|
||||||
value_boolean := RESULT_BOOLEAN;
|
|
||||||
value_char := RESULT_CHAR;
|
|
||||||
value_s64real:=RESULT_S64REAL;
|
|
||||||
proc_var_smallarray_var_1([value_u8bit,value_ptr,value_s64bit,value_char,value_smallstring,value_s64real,value_boolean,value_class]);
|
|
||||||
|
|
||||||
if global_u8bit <> RESULT_U8BIT then
|
|
||||||
failed := true;
|
|
||||||
|
|
||||||
if global_char <> RESULT_CHAR then
|
|
||||||
failed := true;
|
|
||||||
if global_boolean <> RESULT_BOOLEAN then
|
|
||||||
failed:=true;
|
|
||||||
if trunc(global_s64real) <> trunc(RESULT_S64REAL) then
|
|
||||||
failed := true;
|
|
||||||
if global_bigstring <> RESULT_SMALLSTRING then
|
|
||||||
failed := true;
|
|
||||||
if global_ptr <> value_ptr then
|
|
||||||
failed := true;
|
|
||||||
{ if value_class <> global_class then
|
|
||||||
failed := true;!!!!!!!!!!!!!!!!!!!!}
|
|
||||||
if global_s64bit <> RESULT_S64BIT then
|
|
||||||
failed := true;
|
|
||||||
if assigned(value_class) then
|
|
||||||
value_class.destroy;
|
|
||||||
global_u8bit := 0;
|
|
||||||
proc_var_smallarray_const_2([]);
|
|
||||||
if global_u8bit <> RESULT_U8BIT then
|
|
||||||
failed := true;
|
|
||||||
*)
|
|
||||||
|
|
||||||
|
|
||||||
if failed then
|
if failed then
|
||||||
fail
|
fail
|
||||||
@ -824,7 +737,10 @@ end.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.4 2002-09-22 09:08:41 carl
|
Revision 1.5 2002-11-09 21:47:37 carl
|
||||||
|
+ updated tests for correct parsing (array of const now allowed with high!)
|
||||||
|
|
||||||
|
Revision 1.4 2002/09/22 09:08:41 carl
|
||||||
* gets64bit was not returning an int64!
|
* gets64bit was not returning an int64!
|
||||||
|
|
||||||
Revision 1.3 2002/09/07 15:40:55 peter
|
Revision 1.3 2002/09/07 15:40:55 peter
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user