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

* give result for arrays and const arrays separately

Browse Source
This commit is contained in:
pierre 2002-10-08 07:42:19 +00:00
parent 4b47552ecd
commit cb0fdf7a64
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tests/test/cg/tcalcst8.pp
View File

@ -583,6 +583,7 @@ begin
write('Const parameter test (src : LOC_REFERENCE (arraydef)))...'); write('Const parameter test (src : LOC_REFERENCE (arraydef)))...');
clear_globals; clear_globals;
clear_values; clear_values;
failed:=false; failed:=false;
@ -598,9 +599,16 @@ begin
value_smallarray[SMALL_INDEX] := RESULT_U8BIT; value_smallarray[SMALL_INDEX] := RESULT_U8BIT;
proc_const_smallarray_open(value_smallarray); proc_const_smallarray_open(value_smallarray);
if global_u8bit <> RESULT_U8BIT then if global_u8bit <> RESULT_U8BIT then
failed := true; failed := true;
if failed then
fail
else
WriteLn('Passed!');
{$ifndef tp} {$ifndef tp}
write('Const parameter test (src : LOC_REFERENCE (const arraydef)))...');
clear_globals; clear_globals;
clear_values; clear_values;
@ -847,7 +855,10 @@ end.
{ {
$Log$ $Log$
Revision 1.4 2002-09-22 09:08:41 carl Revision 1.5 2002-10-08 07:42:19 pierre
* give result for arrays and const arrays separately
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:50 peter Revision 1.3 2002/09/07 15:40:50 peter