t_id
836
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
524141710 | 947969 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 1658 } { Submitted by "Luis Castedo" on 2001-10-28 } { e-mail: castedo@elai.upm.es } program Buggy; uses Objects, Strings; type TMyStream = object(TDosStream) m_fAutoDelete: Boolean; destructor Done; virtual; end; PMyStream = ^TMyStream; destructor TMyStream.Done; var strFName: String; F : File; begin strFName := StrPas(FName); inherited Done; if not m_fAutoDelete then Exit; Assign(F, strFName); Erase(F); end; // Global vars var pTempStream: PMyStream; EntryMem,ExitMem : Cardinal; // Main routine begin EntryMem:=MemAvail; pTempStream := nil; pTempStream := New(PMyStream, Init('tw1658.tmp', stCreate)); if not Assigned(pTempStream) then Halt(1); pTempStream^.m_fAutoDelete := False; Dispose(pTempStream, Done); pTempStream := nil; ExitMem:=MemAvail; If ExitMemLink to SVN view of webtbs/tw1658.pp source.