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

* removed asmmode_direct

Browse Source
This commit is contained in:
peter 2004-01-12 16:36:53 +00:00
parent b6515b81be
commit 32173c41fa
2 changed files with 11 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/globals.pas
View File

@ -1294,7 +1294,7 @@ implementation
newmask.b := newmask.b or (1 shl (31-24)); newmask.b := newmask.b or (1 shl (31-24));
{ denormals can not cause exceptions on the PPC } { denormals can not cause exceptions on the PPC }
{ zero divide: bit 27 } { zero divide: bit 27 }
if (exZeroDivide in mask) then if (exZeroDivide in mask) then
newmask.b := newmask.b and not(1 shl (31-27)) newmask.b := newmask.b and not(1 shl (31-27))
@ -1306,13 +1306,13 @@ implementation
newmask.b := newmask.b and not(1 shl (31-25)) newmask.b := newmask.b and not(1 shl (31-25))
else else
newmask.b := newmask.b or (1 shl (31-25)); newmask.b := newmask.b or (1 shl (31-25));
{ underflow: bit 26 } { underflow: bit 26 }
if (exUnderflow in mask) then if (exUnderflow in mask) then
newmask.b := newmask.b and not(1 shl (31-26)) newmask.b := newmask.b and not(1 shl (31-26))
else else
newmask.b := newmask.b or (1 shl (31-26)); newmask.b := newmask.b or (1 shl (31-26));
{ Precision (inexact result): bit 28 } { Precision (inexact result): bit 28 }
if (exUnderflow in mask) then if (exUnderflow in mask) then
newmask.b := newmask.b and not(1 shl (31-28)) newmask.b := newmask.b and not(1 shl (31-28))
@ -1761,7 +1761,6 @@ implementation
{$IFDEF testvarsets} {$IFDEF testvarsets}
initsetalloc:=0; initsetalloc:=0;
{$ENDIF} {$ENDIF}
initasmmode:=asmmode_direct;
{$endif sparc} {$endif sparc}
{$ifdef arm} {$ifdef arm}
initpackenum:=4; initpackenum:=4;
@ -1797,7 +1796,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.119 2004-01-02 16:50:24 jonas Revision 1.120 2004-01-12 16:36:53 peter
* removed asmmode_direct
Revision 1.119 2004/01/02 16:50:24 jonas
+ SetFPUExceptionMask implementation for PPC + SetFPUExceptionMask implementation for PPC
Revision 1.118 2003/12/25 01:07:09 florian Revision 1.118 2003/12/25 01:07:09 florian

16
compiler/pstatmnt.pas
View File

@ -770,17 +770,6 @@ implementation
asmreader : tbaseasmreader; asmreader : tbaseasmreader;
begin begin
Inside_asm_statement:=true; Inside_asm_statement:=true;
if aktasmmode=asmmode_direct then
begin
if not target_asm.allowdirect then
Message(parser_f_direct_assembler_not_allowed);
if (current_procinfo.procdef.proccalloption=pocall_inline) then
Begin
Message1(parser_w_not_supported_for_inline,'direct asm');
Message(parser_w_inlining_disabled);
current_procinfo.procdef.proccalloption:=pocall_default;
End;
end;
if assigned(asmmodeinfos[aktasmmode]) then if assigned(asmmodeinfos[aktasmmode]) then
begin begin
asmreader:=asmmodeinfos[aktasmmode]^.casmreader.create; asmreader:=asmmodeinfos[aktasmmode]^.casmreader.create;
@ -1095,7 +1084,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.124 2003-12-07 16:40:45 jonas Revision 1.125 2004-01-12 16:36:53 peter
* removed asmmode_direct
Revision 1.124 2003/12/07 16:40:45 jonas
* moved count_locals from pstatmnt to symutils * moved count_locals from pstatmnt to symutils
* use count_locals in powerpc/cpupi to check whether we should set the * use count_locals in powerpc/cpupi to check whether we should set the
first temp offset (and as such generate a stackframe) first temp offset (and as such generate a stackframe)