t_id
177
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 443641053 | 934965 | True | False | Successfully run |
Record count: 1
{****************************************************************}
{ CODE GENERATOR TEST PROGRAM }
{****************************************************************}
{ NODE TESTED : secondderef() }
{****************************************************************}
{ PRE-REQUISITES: secondload() }
{ secondassign() }
{ secondcalln() }
{ secondadd() }
{ secondtypeconv() }
{****************************************************************}
{ DEFINES: }
{****************************************************************}
{ REMARKS: }
{****************************************************************}
program tderef;
type
plongint = ^longint;
ttestarray = array[1..64] of byte;
ptestarray = ^ttestarray;
pbyte = ^byte;
procedure fail;
begin
Writeln('Failed!');
halt(1);
end;
var
pl : plongint;
parray : ptestarray;
passed : boolean;
ptr : pbyte;
b: byte;
Begin
Write('secondderef() test...');
passed := true;
new(pl);
new(parray);
{ left : LOC_REFERENCE }
pl^:= $F0F0;
if pl^ <> $F0F0 then
passed := false;
FillChar(parray^,sizeof(ttestarray),0);
ptr:=pbyte((longint(parray)+32));
ptr^ := $A0;
if parray^[33] <> $A0 then
passed := false;
{ left : LOC_REGISTER }
b:=(pbyte((longint(parray)+32))^);
if b <> $A0 then
passed := false;
dispose(pl);
dispose(parray);
if passed then
WriteLn('Success.')
else
Fail;
end.
{
$Log: tderef.pp,v $
Revision 1.4 2002/09/07 15:40:56 peter
* old logs removed and tabs fixed
Revision 1.3 2002/04/13 21:04:46 carl
* fixed stupid typo
Revision 1.2 2002/03/05 21:56:02 carl
* Adapted for automated testing
}