Переглянути джерело

added a dummy implementation of GetLastOSError

git-svn-id: trunk@24652 -
Károly Balogh 12 роки тому
батько
коміт
24e2bd4364
1 змінених файлів з 6 додано та 0 видалено
  1. 6 0
      rtl/morphos/sysutils.pp

+ 6 - 0
rtl/morphos/sysutils.pp

@@ -26,6 +26,7 @@ interface
 {$H+}
 
 {$DEFINE HAS_SLEEP}
+{$DEFINE HAS_OSERROR}
 { Include platform independent interface part }
 {$i sysutilh.inc}
 
@@ -561,6 +562,11 @@ begin
 {  Result:=StrError(ErrorCode);}
 end;
 
+function GetLastOSError: Integer;
+begin
+    result:=-1;
+end;
+
 {****************************************************************************
                               OS utility functions
 ****************************************************************************}