Procházet zdrojové kódy

* minor update of the GetLastOSError support infrastructure

git-svn-id: trunk@29179 -
Tomas Hajny před 10 roky
rodič
revize
1dceddc302
1 změnil soubory, kde provedl 1 přidání a 2 odebrání
  1. 1 2
      rtl/os2/sysutils.pp

+ 1 - 2
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.