Bläddra i källkod

* Define dummy tcgarm.g_stackpointer_alloc to fix abstract warning.
* Suppressed unreachable code warnings.
* Now ARM compiler compiles without warnings and notes.

git-svn-id: trunk@11456 -

yury 17 år sedan
förälder
incheckning
a6eb251cee
2 ändrade filer med 8 tillägg och 1 borttagningar
  1. 6 0
      compiler/arm/cgcpu.pas
  2. 2 1
      compiler/options.pas

+ 6 - 0
compiler/arm/cgcpu.pas

@@ -107,6 +107,7 @@ unit cgcpu;
 
         procedure g_intf_wrapper(list: TAsmList; procdef: tprocdef; const labelname: string; ioffset: longint);override;
         procedure g_adjust_self_value(list:TAsmList;procdef: tprocdef;ioffset: aint); override;
+        procedure g_stackpointer_alloc(list : TAsmList;size : longint);override;
       private
         { clear out potential overflow bits from 8 or 16 bit operations  }
         { the upper 24/16 bits of a register after an operation          }
@@ -1962,6 +1963,11 @@ unit cgcpu;
             end;
       end;
 
+    procedure tcgarm.g_stackpointer_alloc(list: TAsmList; size: longint);
+      begin
+        internalerror(200807237);
+      end;
+
 
     procedure tcgarm.g_intf_wrapper(list: TAsmList; procdef: tprocdef; const labelname: string; ioffset: longint);
 

+ 2 - 1
compiler/options.pas

@@ -2211,9 +2211,10 @@ begin
   def_system_macro('INTERNAL_BACKTRACE');
 {$endif}
   def_system_macro('STR_CONCAT_PROCS');
+{$warnings off}
   if pocall_default = pocall_register then
     def_system_macro('REGCALL');
-
+{$warnings on}
   { don't remove this, it's also for fpdoc necessary (FK) }
   def_system_macro('FPC_HAS_FEATURE_SUPPORT');
 { using a case is pretty useless here (FK) }