From 77caa28babdafc77dc8a78b53fd3a8e332a67fae Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 24 Feb 2018 11:12:11 +0000
Subject: [PATCH] * Fix bug #33204

git-svn-id: trunk@38327 -
---
 rtl/objpas/sysutils/osutilsh.inc | 1 +
 rtl/objpas/sysutils/sysutils.inc | 7 +++++++
 2 files changed, 8 insertions(+)

diff --git a/rtl/objpas/sysutils/osutilsh.inc b/rtl/objpas/sysutils/osutilsh.inc
index 7d3f90509a..f7d6bcacca 100644
--- a/rtl/objpas/sysutils/osutilsh.inc
+++ b/rtl/objpas/sysutils/osutilsh.inc
@@ -21,6 +21,7 @@ Function GetLastOSError : Integer;
 {$endif}
 Procedure RaiseLastOSError;overload;
 Procedure RaiseLastOSError(LastError: Integer);overload;
+procedure CheckOSError(LastError: Integer);platform;{$ifdef SYSTEMINLINE}inline;{$endif}
 
 Function GetEnvironmentVariable(Const EnvVar : AnsiString) : AnsiString;
 Function GetEnvironmentVariable(Const EnvVar : UnicodeString) : UnicodeString;
diff --git a/rtl/objpas/sysutils/sysutils.inc b/rtl/objpas/sysutils/sysutils.inc
index 0280110911..7fa812021d 100644
--- a/rtl/objpas/sysutils/sysutils.inc
+++ b/rtl/objpas/sysutils/sysutils.inc
@@ -471,6 +471,13 @@ begin
 end;
 
 {$endif}
+
+procedure CheckOSError(LastError: Integer);
+begin
+  if LastError <> 0 then
+    RaiseLastOSError(LastError);
+end;
+
 Procedure AssertErrorHandler (Const Msg,FN : ShortString;LineNo:longint; TheAddr : pointer);
 Var
   S : String;