paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

dummy GetLastOSerror to make fcl-whatever build, and header cleanup/fixes

Browse Source 
git-svn-id: trunk@25146 -
This commit is contained in:
Károly Balogh 2013-07-19 22:55:44 +00:00
parent 4f041157c4
commit 4df92ddc08
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/amiga/sysutils.pp
View File

@ -1,10 +1,10 @@
{ {
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 2004-2006 by Karoly Balogh Copyright (c) 2004-2013 by Karoly Balogh
Sysutils unit for MorphOS Sysutils unit for AmigaOS & clones
Based on Amiga version by Carl Eric Codere, and other Based on Amiga 1.x version by Carl Eric Codere, and other
parts of the RTL parts of the RTL
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
@ -26,6 +26,7 @@ interface
{$H+} {$H+}
{$DEFINE HAS_SLEEP} {$DEFINE HAS_SLEEP}
{$DEFINE HAS_OSERROR}
{ Include platform independent interface part } { Include platform independent interface part }
{$i sysutilh.inc} {$i sysutilh.inc}
@ -569,6 +570,11 @@ begin
{ Result:=StrError(ErrorCode);} { Result:=StrError(ErrorCode);}
end; end;
function GetLastOSError: Integer;
begin
result:=-1;
end;
{**************************************************************************** {****************************************************************************
OS utility functions OS utility functions
****************************************************************************} ****************************************************************************}