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

Return -1 for fpIOPL and set errno to ESysENoSys for non-linux systems

Browse Source 
git-svn-id: trunk@20773 -
This commit is contained in:
pierre 2012-04-09 21:55:18 +00:00
parent 55665c6713
commit ae83b5ce92
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/unix/x86.pp
View File

@ -519,6 +519,9 @@ Function fpIoPL(Level : cint) : cint;
begin begin
{$ifdef Linux} {$ifdef Linux}
fpIOPL:=do_Syscall(Syscall_nr_iopl,TSysParam(Level)); fpIOPL:=do_Syscall(Syscall_nr_iopl,TSysParam(Level));
{$else}
fpIOPL:=-1;
FpSetErrNo(ESysENoSys);
{$endif} {$endif}
end; end;