paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 16:30:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed for non-Windows and non-OS/2

Browse Source 
git-svn-id: trunk@4411 -
This commit is contained in:
Jonas Maebe 2006-08-12 12:23:19 +00:00
parent d337c3ca6a
commit ec1d8a139f
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/system.inc
View File

@ -693,11 +693,16 @@ Begin
Flush(ErrOutput);
Flush(StdOut);
Flush(StdErr);
{$if defined(MSWINDOWS) or defined(OS2)}
{ finally release the heap if possible, especially
important for DLLs }
for i:=0 to argc do
sysfreemem(argv[i]);
sysfreemem(argv);
{$endif}
{$if defined(LINUX) or defined(BSD)}
sysfreemem(cmdline);
{$endif}
FinalizeHeap;
End;