فهرست منبع

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

git-svn-id: trunk@4411 -
Jonas Maebe 19 سال پیش
والد
کامیت
ec1d8a139f
1فایلهای تغییر یافته به همراه5 افزوده شده و 0 حذف شده
  1. 5 0
      rtl/inc/system.inc

+ 5 - 0
rtl/inc/system.inc

@@ -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;