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

* m68k-linux: now actually fixed syscall failure conditions.

Browse Source 
git-svn-id: trunk@28092 -
This commit is contained in:
sergei 2014-06-27 19:41:02 +00:00
parent 5093c573dc
commit 12e0416323
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/linux/m68k/syscall.inc
View File

@ -29,7 +29,7 @@ begin
trap #0
move.l d0, @Result
end ['d0'];
if (result < 0) then
if (ptruint(result) > ptruint(-4096)) then
begin
seterrno(-result);
result:=TSysResult(-1);
@ -45,7 +45,7 @@ begin
trap #0
move.l d0, @Result
end ['d0', 'd1'];
if (result < 0) then
if (ptruint(result) > ptruint(-4096)) then
begin
seterrno(-result);
result:=TSysResult(-1);
@ -62,7 +62,7 @@ begin
trap #0
move.l d0, @Result
end ['d0', 'd1', 'd2'];
if (result < 0) then
if (ptruint(result) > ptruint(-4096)) then
begin
seterrno(-result);
result:=TSysResult(-1);
@ -80,7 +80,7 @@ begin
trap #0
move.l d0, @Result
end ['d0', 'd1', 'd2', 'd3'];
if (result < 0) then
if (ptruint(result) > ptruint(-4096)) then
begin
seterrno(-result);
result:=TSysResult(-1);
@ -98,7 +98,7 @@ begin
trap #0
move.l d0, @Result
end ['d0', 'd1', 'd2', 'd3', 'd4'];
if (result < 0) then
if (ptruint(result) > ptruint(-4096)) then
begin
seterrno(-result);
result:=TSysResult(-1);
@ -118,7 +118,7 @@ begin
trap #0
move.l d0, @Result
end ['d0', 'd1', 'd2', 'd3', 'd4', 'd5'];
if (result < 0) then
if (ptruint(result) > ptruint(-4096)) then
begin
seterrno(-result);
result:=TSysResult(-1);
@ -139,7 +139,7 @@ begin
trap #0
move.l d0, @Result
end ['d0', 'd1', 'd2', 'd3', 'd4', 'd5', 'a0'];
if (result < 0) then
if (ptruint(result) > ptruint(-4096)) then
begin
seterrno(-result);
result:=TSysResult(-1);