瀏覽代碼

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
 ****************************************************************************}