t_id
1277
t_adddate
2004/03/17
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950704157 | 1015783 | True | False | Successfully run |
Record count: 1
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 }