Преглед на файлове

* Fix bug ID #29913

git-svn-id: trunk@33363 -
michael преди 9 години
родител
ревизия
e3aaeae2e7
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  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;
 
 {****************************************************************************