* overloaded version of raiselastoserror that allows custom errorcodes

   to be raised, patch by Cytax, Mantis #21092

git-svn-id: trunk@20084 -

rtl/objpas/sysutils/osutilsh.inc

@@ -19,7 +19,8 @@ Type TExecuteFlags = Set of ( ExecInheritsHandles);
 {$ifdef HAS_OSERROR}
 Function GetLastOSError : Integer;
 {$endif}
-Procedure RaiseLastOSError;
+Procedure RaiseLastOSError;overload;
+Procedure RaiseLastOSError(LastError: Integer);overload;
 Function GetEnvironmentVariable(Const EnvVar : String) : String;
 Function GetEnvironmentVariableCount : Integer;
 Function GetEnvironmentString(Index : Integer) : String;

rtl/objpas/sysutils/sysutils.inc

@@ -408,27 +408,34 @@ begin
 end;
 
 {$IFDEF HAS_OSERROR}
-Procedure RaiseLastOSError;
+Procedure RaiseLastOSError;overload;
+begin
+  RaiseLastOSError(GetLastOSError);
+end;
 
+Procedure RaiseLastOSError(LastError: Integer);overload;
 var
-  ECode: Cardinal;
   E : EOSError;
-
 begin
-  ECode := GetLastOSError;
-  If (ECode<>0) then
-    E:=EOSError.CreateFmt(SOSError, [ECode, SysErrorMessage(ECode)])
+  If (LastError<>0) then
+    E:=EOSError.CreateFmt(SOSError, [LastError, SysErrorMessage(LastError)])
   else
     E:=EOSError.Create(SUnkOSError);
-  E.ErrorCode:=ECode;
+  E.ErrorCode:=LastError;
   Raise E;
 end;
-{$else}
-Procedure RaiseLastOSError;
 
+{$else}
+Procedure RaiseLastOSError;overload;
 begin
   Raise Exception.Create('RaiseLastOSError not implemented on this platform.');
 end;
+
+Procedure RaiseLastOSError(LastError: Integer);overload;
+begin
+  RaiseLastOSError;
+end;
+
 {$endif}
 Procedure AssertErrorHandler (Const Msg,FN : ShortString;LineNo:longint; TheAddr : pointer);
 Var