Ver código fonte

* removed asmmode_direct

peter 21 anos atrás
pai
commit
32173c41fa
2 arquivos alterados com 11 adições e 17 exclusões
  1. 7 5
      compiler/globals.pas
  2. 4 12
      compiler/pstatmnt.pas

+ 7 - 5
compiler/globals.pas

@@ -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

+ 4 - 12
compiler/pstatmnt.pas

@@ -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)