Selaa lähdekoodia

Modify code to avoid error when compiling with -CriotR option

git-svn-id: trunk@44145 -
pierre 5 vuotta sitten
vanhempi
commit
40a6059143
1 muutettua tiedostoa jossa 5 lisäystä ja 4 poistoa
  1. 5 4
      compiler/rgobj.pas

+ 5 - 4
compiler/rgobj.pas

@@ -1598,11 +1598,12 @@ unit rgobj;
           {        while compiling the compiler. }
           tmpr:=NR_STACK_POINTER_REG;
           { e.g. AVR does not have a stack pointer register }
-{$push}{$warnings off}
-          if (RS_STACK_POINTER_REG<>RS_INVALID) and
-{$pop}
-            (regtype=getregtype(tmpr)) then
+{$if defined(RS_STACK_POINTER_REG)}
+  {$if (RS_STACK_POINTER_REG<>RS_INVALID)}
+          if (regtype=getregtype(tmpr)) then
             include(adj_colours,RS_STACK_POINTER_REG);
+  {$ifend}
+{$ifend}
           {Assume a spill by default...}
           found:=false;
           {Search for a colour not in this list.}