From ec1d8a139f0814d5debfe0eb9f5631fb7a9c2284 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 12 Aug 2006 12:23:19 +0000
Subject: [PATCH]   * fixed for non-Windows and non-OS/2

git-svn-id: trunk@4411 -
---
 rtl/inc/system.inc | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index 8952dbb203..92a89d2691 100644
--- a/rtl/inc/system.inc
+++ b/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;