Browse Source

* Fix bug ID #29913

git-svn-id: trunk@33363 -
michael 9 years ago
parent
commit
e3aaeae2e7
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/win/sysutils.pp

+ 2 - 2
rtl/win/sysutils.pp

@@ -1,4 +1,4 @@
-         {
+{
 
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Florian Klaempfl
@@ -990,7 +990,7 @@ begin
                  MaxMsgSize,
                  nil);
   SysErrorMessage := MsgBuffer;
-  FreeMem(MsgBuffer, MaxMsgSize);
+  FreeMem(MsgBuffer, MaxMsgSize*2);
 end;
 
 {****************************************************************************