--- Merging r33362 into '.':

U    rtl/objpas/sysutils/sysutilh.inc
--- Recording mergeinfo for merge of r33362 into '.':
 U   .
--- Merging r33363 into '.':
U    rtl/win/sysutils.pp
--- Recording mergeinfo for merge of r33363 into '.':
 G   .
--- Merging r33377 into '.':
G    rtl/objpas/sysutils/sysutilh.inc
U    rtl/objpas/sysutils/sysutils.inc
--- Recording mergeinfo for merge of r33377 into '.':
 G   .
--- Merging r33378 into '.':
G    rtl/objpas/sysutils/sysutilh.inc
G    rtl/objpas/sysutils/sysutils.inc
--- Recording mergeinfo for merge of r33378 into '.':
 G   .

# revisions: 33362,33363,33377,33378

git-svn-id: branches/fixes_3_0@33823 -

rtl/objpas/sysutils/sysutilh.inc

@@ -216,6 +216,12 @@ type
    EArgumentOutOfRangeException = class(EArgumentException);
    EArgumentNilException = class(EArgumentException);
 
+   EPathTooLongException = class(Exception);
+   ENotSupportedException = class(Exception);
+   EDirectoryNotFoundException = class(Exception);
+   EFileNotFoundException = class(Exception);
+   EPathNotFoundException = class(Exception);
+
    ENoConstructException = class(Exception);
 
    { Exception handling routines }
@@ -312,6 +318,7 @@ Type
   {$i syshelph.inc}
 
   procedure FreeAndNil(var obj);
+  procedure FreeMemAndNil(var p);
 
   { interface handling }
   {$i intfh.inc}

rtl/objpas/sysutils/sysutils.inc

@@ -160,7 +160,16 @@ end;
         temp.free;
       end;
 
-
+    procedure FreeMemAndNil(var p);
+    
+    var
+      temp:Pointer;
+    begin
+      temp := Pointer(p);
+      Pointer(P):=nil;
+      FreeMem(temp);
+    end;
+    
   { Interfaces support }
   {$i sysuintf.inc}
 

rtl/win/sysutils.pp

@@ -990,7 +990,7 @@ begin
                  MaxMsgSize,                           { Maximum message size }
                  nil);
   SysErrorMessage := MsgBuffer;
-  FreeMem(MsgBuffer, MaxMsgSize);
+  FreeMem(MsgBuffer, MaxMsgSize*2);
 end;
 
 {****************************************************************************