t_id
1277
t_adddate
2004/03/17
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
473317117 | 939748 | False | False | Failed to run |
Record count: 1
Runtime error 216 at $00462000 $00462000 Runtime error 216 at $0044584C $0044584C $00443C80 $00443D78 $00443E48 $00444744 $2B2BDBAC $2B2F6000
program testmem; {$mode objfpc} uses cmem; Type PLongint = ^Longint; Var P : PLongint; i : longint; err : boolean; begin P:=GetMem(1000*SizeOf(Longint)); For I:=0 to 999 do P[i]:=i; P:=ReallocMem(P,500*SizeOf(Longint)); For I:=0 to 499 do if P[i]<>i Then begin Writeln ('Oh-oh, ',i,'th index differs.'); err:=true; end; FreeMem(P); if err then halt(1); end. { $Log: testcmem.pp,v $ Revision 1.1 2004/03/15 21:49:11 peter * test for cmem unit Revision 1.3 2002/09/08 15:44:40 michael + fixed log entry }