فهرست منبع

* tMIPSELnotnode.second_boolean: reuse common handle_locjump method.

git-svn-id: trunk@26735 -
sergei 11 سال پیش
والد
کامیت
d29300df13
1فایلهای تغییر یافته به همراه1 افزوده شده و 17 حذف شده
  1. 1 17
      compiler/mips/ncpumat.pas

+ 1 - 17
compiler/mips/ncpumat.pas

@@ -233,25 +233,9 @@ end;
 
 procedure tMIPSELnotnode.second_boolean;
 var
-  hl: tasmlabel;
   tmpreg : TRegister;
 begin
-  { if the location is LOC_JUMP, we do the secondpass after the
-          labels are allocated
-        }
-  if left.expectloc = LOC_JUMP then
-  begin
-    hl := current_procinfo.CurrTrueLabel;
-    current_procinfo.CurrTrueLabel := current_procinfo.CurrFalseLabel;
-    current_procinfo.CurrFalseLabel := hl;
-    secondpass(left);
-    maketojumpbool(current_asmdata.CurrAsmList, left, lr_load_regvars);
-    hl := current_procinfo.CurrTrueLabel;
-    current_procinfo.CurrTrueLabel := current_procinfo.CurrFalseLabel;
-    current_procinfo.CurrFalseLabel := hl;
-    location.loc := LOC_JUMP;
-  end
-  else
+  if not handle_locjump then
   begin
     secondpass(left);
     case left.location.loc of