paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-03 09:13:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* release memory of newmodeinfo in graphexitproc

Browse Source
This commit is contained in:
Jonas Maebe 2000-06-18 08:11:53 +00:00
parent 6cb27b64e6
commit 2d01b922b6
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/inc/graph/graph.inc
View File

@ -2329,6 +2329,18 @@ end;
list:=list^.next; list:=list^.next;
dispose(tmp); dispose(tmp);
end; end;
{$ifdef newmodes}
for c := lowNewDriver to highNewDriver do
begin
list := newModeList.modeinfo[c];
while assigned(list) do
begin
tmp := list;
list:=list^.next;
dispose(tmp);
end;
end;
{$endif newmodes}
{$IFDEF DPMI} {$IFDEF DPMI}
{ We had copied the buffer of mode information } { We had copied the buffer of mode information }
{ and allocated it dynamically... now free it } { and allocated it dynamically... now free it }
@ -2391,7 +2403,10 @@ begin
end; end;
{ {
$Log$ $Log$
Revision 1.34 2000-06-18 06:11:20 jonas Revision 1.35 2000-06-18 08:11:53 jonas
* release memory of newmodeinfo in graphexitproc
Revision 1.34 2000/06/18 06:11:20 jonas
+ added missing detectMode stuff for -dnewmodes + added missing detectMode stuff for -dnewmodes
Revision 1.33 2000/06/17 19:09:22 jonas Revision 1.33 2000/06/17 19:09:22 jonas