paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +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));
{ denormals can not cause exceptions on the PPC }
{ zero divide: bit 27 }
if (exZeroDivide in mask) then
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))
else
newmask.b := newmask.b or (1 shl (31-25));
{ underflow: bit 26 }
if (exUnderflow in mask) then
newmask.b := newmask.b and not(1 shl (31-26))
else
newmask.b := newmask.b or (1 shl (31-26));
{ Precision (inexact result): bit 28 }
if (exUnderflow in mask) then
newmask.b := newmask.b and not(1 shl (31-28))
@ -1761,7 +1761,6 @@ implementation
{$IFDEF testvarsets}
initsetalloc:=0;
{$ENDIF}
initasmmode:=asmmode_direct;
{$endif sparc}
{$ifdef arm}
initpackenum:=4;
@ -1797,7 +1796,10 @@ implementation
end.
{
$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
Revision 1.118 2003/12/25 01:07:09 florian

16
compiler/pstatmnt.pas
View File

@ -770,17 +770,6 @@ implementation
asmreader : tbaseasmreader;
begin
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
begin
asmreader:=asmmodeinfos[aktasmmode]^.casmreader.create;
@ -1095,7 +1084,10 @@ implementation
end.
{
$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
* use count_locals in powerpc/cpupi to check whether we should set the
first temp offset (and as such generate a stackframe)