paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Changed mapping of Sys_ETXTBSY to 5

Browse Source 
* Changed m68k to cpum68k, i386 to cpui386
This commit is contained in:
olle 2003-10-17 20:45:58 +00:00
parent cba0e5a447
commit a956097415
1 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
rtl/unix/sysunix.inc
View File

@ -106,19 +106,19 @@ var
function getheapstart:pointer;assembler;
{$undef fpc_getheapstart_ok}
{$ifdef i386}
{$ifdef cpui386}
{$define fpc_getheapstart_ok}
asm
leal _HEAP,%eax
end ['EAX'];
{$endif i386}
{$ifdef m68k}
{$endif cpui386}
{$ifdef cpum68k}
{$define fpc_getheapstart_ok}
asm
lea.l _HEAP,a0
move.l a0,d0
end['A0','D0'];
{$endif m68k}
{$endif cpum68k}
{$ifdef cpupowerpc}
{$define fpc_getheapstart_ok}
asm
@ -135,18 +135,18 @@ end;
function getheapsize:longint;assembler;
{$undef fpc_getheapsize_ok}
{$ifdef i386}
{$ifdef cpui386}
{$define fpc_getheapsize_ok}
asm
movl _HEAPSIZE,%eax
end ['EAX'];
{$endif i386}
{$ifdef m68k}
{$endif cpui386}
{$ifdef cpum68k}
{$define fpc_getheapsize_ok}
asm
move.l _HEAPSIZE,d0
end ['D0'];
{$endif m68k}
{$endif cpum68k}
{$ifdef cpupowerpc}
{$define fpc_getheapsize_ok}
asm
@ -212,8 +212,8 @@ begin
Sys_EEXIST,
Sys_EISDIR,
Sys_ENOTEMPTY,
Sys_EACCES : Inoutres:=5;
Sys_ETXTBSY : Inoutres:=162;
Sys_EACCES,
Sys_ETXTBSY : Inoutres:=5;
else
InOutRes := Integer(Errno);
end;
@ -629,7 +629,7 @@ begin
begin
{ this is not allways necessary but I don't know yet
how to tell if it is or not PM }
{$ifdef I386}
{$ifdef cpui386}
fpustate:=0;
res:=200;
{$ifndef FreeBSD}
@ -662,7 +662,7 @@ begin
else
res:=207; {'Coprocessor Error'}
end;
{$endif I386}
{$endif cpui386}
SysResetFPU;
end;
SIGILL,
@ -673,7 +673,7 @@ begin
{ give runtime error at the position where the signal was raised }
if res<>0 then
begin
{$ifdef I386}
{$ifdef cpui386}
{$ifdef FreeBSD}
HandleErrorAddrFrame(res,SigContext.sc_eip,SigContext.sc_ebp);
{$else}
@ -804,7 +804,11 @@ End.
{
$Log$
Revision 1.35 2003-10-13 21:24:04 hajny
Revision 1.36 2003-10-17 20:45:58 olle
* Changed mapping of Sys_ETXTBSY to 5
* Changed m68k to cpum68k, i386 to cpui386
Revision 1.35 2003/10/13 21:24:04 hajny
* sbrk error handling corrected
Revision 1.34 2003/09/27 11:52:36 peter