paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:29:21 +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; function getheapstart:pointer;assembler;
{$undef fpc_getheapstart_ok} {$undef fpc_getheapstart_ok}
{$ifdef i386} {$ifdef cpui386}
{$define fpc_getheapstart_ok} {$define fpc_getheapstart_ok}
asm asm
leal _HEAP,%eax leal _HEAP,%eax
end ['EAX']; end ['EAX'];
{$endif i386} {$endif cpui386}
{$ifdef m68k} {$ifdef cpum68k}
{$define fpc_getheapstart_ok} {$define fpc_getheapstart_ok}
asm asm
lea.l _HEAP,a0 lea.l _HEAP,a0
move.l a0,d0 move.l a0,d0
end['A0','D0']; end['A0','D0'];
{$endif m68k} {$endif cpum68k}
{$ifdef cpupowerpc} {$ifdef cpupowerpc}
{$define fpc_getheapstart_ok} {$define fpc_getheapstart_ok}
asm asm
@ -135,18 +135,18 @@ end;
function getheapsize:longint;assembler; function getheapsize:longint;assembler;
{$undef fpc_getheapsize_ok} {$undef fpc_getheapsize_ok}
{$ifdef i386} {$ifdef cpui386}
{$define fpc_getheapsize_ok} {$define fpc_getheapsize_ok}
asm asm
movl _HEAPSIZE,%eax movl _HEAPSIZE,%eax
end ['EAX']; end ['EAX'];
{$endif i386} {$endif cpui386}
{$ifdef m68k} {$ifdef cpum68k}
{$define fpc_getheapsize_ok} {$define fpc_getheapsize_ok}
asm asm
move.l _HEAPSIZE,d0 move.l _HEAPSIZE,d0
end ['D0']; end ['D0'];
{$endif m68k} {$endif cpum68k}
{$ifdef cpupowerpc} {$ifdef cpupowerpc}
{$define fpc_getheapsize_ok} {$define fpc_getheapsize_ok}
asm asm
@ -212,8 +212,8 @@ begin
Sys_EEXIST, Sys_EEXIST,
Sys_EISDIR, Sys_EISDIR,
Sys_ENOTEMPTY, Sys_ENOTEMPTY,
Sys_EACCES : Inoutres:=5; Sys_EACCES,
Sys_ETXTBSY : Inoutres:=162; Sys_ETXTBSY : Inoutres:=5;
else else
InOutRes := Integer(Errno); InOutRes := Integer(Errno);
end; end;
@ -629,7 +629,7 @@ begin
begin begin
{ this is not allways necessary but I don't know yet { this is not allways necessary but I don't know yet
how to tell if it is or not PM } how to tell if it is or not PM }
{$ifdef I386} {$ifdef cpui386}
fpustate:=0; fpustate:=0;
res:=200; res:=200;
{$ifndef FreeBSD} {$ifndef FreeBSD}
@ -662,7 +662,7 @@ begin
else else
res:=207; {'Coprocessor Error'} res:=207; {'Coprocessor Error'}
end; end;
{$endif I386} {$endif cpui386}
SysResetFPU; SysResetFPU;
end; end;
SIGILL, SIGILL,
@ -673,7 +673,7 @@ begin
{ give runtime error at the position where the signal was raised } { give runtime error at the position where the signal was raised }
if res<>0 then if res<>0 then
begin begin
{$ifdef I386} {$ifdef cpui386}
{$ifdef FreeBSD} {$ifdef FreeBSD}
HandleErrorAddrFrame(res,SigContext.sc_eip,SigContext.sc_ebp); HandleErrorAddrFrame(res,SigContext.sc_eip,SigContext.sc_ebp);
{$else} {$else}
@ -804,7 +804,11 @@ End.
{ {
$Log$ $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 * sbrk error handling corrected
Revision 1.34 2003/09/27 11:52:36 peter Revision 1.34 2003/09/27 11:52:36 peter