t_id
771
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
-348383077 | 805020 | True | False | Successfully run |
Record count: 1
program BugDemo2; type MyRecordType = record RecordElement1 : word; RecordElement2 : word; end; var MyRecord : MyRecordType; MyPointer1,MyPointer2 : pointer; begin with MyRecord do begin { next statement crashes the compiler } MyPointer1 := addr(RecordElement2); { next statement is OK } MyPointer2 := addr(MyRecord.RecordElement2); end; if MyPointer1<>MyPointer2 then begin Writeln('Error with addr() and with statement'); halt(1); end; end.