From 1dceddc302bf16eefe0e13df6177a5354ec52cde Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sat, 29 Nov 2014 01:43:38 +0000
Subject: [PATCH]   * minor update of the GetLastOSError support infrastructure

git-svn-id: trunk@29179 -
---
 rtl/os2/sysutils.pp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/rtl/os2/sysutils.pp b/rtl/os2/sysutils.pp
index b40559b04d..80a94a4119 100644
--- a/rtl/os2/sysutils.pp
+++ b/rtl/os2/sysutils.pp
@@ -977,8 +977,7 @@ Initialization
   InitInternational;    { Initialize internationalization settings }
   OnBeep:=@SysBeep;
   LastOSError := 0;
-  OrigOSErrorWatch := OSErrorWatch;
-  SetOSErrorTracking (@TrackLastOSError);
+  OrigOSErrorWatch := TOSErrorWatch (SetOSErrorTracking (@TrackLastOSError));
 Finalization
   DoneExceptions;
 end.