فهرست منبع

* fixed warnings in Z80 rgcpu

git-svn-id: branches/z80@44827 -
nickysn 5 سال پیش
والد
کامیت
85e3ad2193
1فایلهای تغییر یافته به همراه3 افزوده شده و 1 حذف شده
  1. 3 1
      compiler/z80/rgcpu.pas

+ 3 - 1
compiler/z80/rgcpu.pas

@@ -66,6 +66,8 @@ unit rgcpu;
               add_edge(supreg,RS_IY);
               add_edge(supreg,RS_IY);
               add_edge(supreg,RS_SP);
               add_edge(supreg,RS_SP);
             end;
             end;
+          else
+            ;
         end;
         end;
       end;
       end;
 
 
@@ -158,7 +160,7 @@ unit rgcpu;
         b : byte;
         b : byte;
       begin
       begin
         result:=false;
         result:=false;
-        if not(spilltemp.offset in [-128..127]) then
+        if (spilltemp.offset<-128) or (spilltemp.offset>127) then
           exit;
           exit;
 
 
         { Replace 'ld  orgreg,src' with 'ld  spilltemp,src'
         { Replace 'ld  orgreg,src' with 'ld  spilltemp,src'