t_id
469
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526152231 | 948308 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0279.pp } { crash with ansistring and new(^ansistring) OK 0.99.13 (PFV) } {$H+} Program AnsiTest; Type PS=^String; procedure test; var P:PS; Begin p:=New(PS); P^:=''; P^:=P^+'BLAH'; P^:=P^+' '+P^; Writeln(P^); Dispose(P); New(P); P^:=''; P^:=P^+'BLAH'; P^:=P^+' '+P^; Writeln(P^); Dispose(P); end; var membefore : longint; begin membefore:=memavail; test; if membefore<>memavail then begin Writeln('Memory hole using pointers to ansi strings'); Halt(1); end else Writeln('No memory hole with pointers to ansi strings'); end.