Browse Source

+ support <,<=,> and >= comparisons of address register types in thlcgwasm.a_cmp_stack_stack

git-svn-id: branches/wasm@48040 -
nickysn 4 years ago
parent
commit
68693b2890
1 changed files with 2 additions and 15 deletions
  1. 2 15
      compiler/wasm32/hlcgcpu.pas

+ 2 - 15
compiler/wasm32/hlcgcpu.pas

@@ -839,7 +839,8 @@ implementation
         // (i.e. Exit or break or continue operators)
         // (i.e. Exit or break or continue operators)
 
 
         case def2regtyp(size) of
         case def2regtyp(size) of
-          R_INTREGISTER:
+          R_INTREGISTER,
+          R_ADDRESSREGISTER:
             begin
             begin
               cgsize:=def_cgsize(size);
               cgsize:=def_cgsize(size);
               case cgsize of
               case cgsize of
@@ -863,20 +864,6 @@ implementation
                   internalerror(2010120538);
                   internalerror(2010120538);
               end;
               end;
             end;
             end;
-          R_ADDRESSREGISTER:
-            begin
-              case cmp_op of
-                OC_EQ:
-                  //list.concat(taicpu.op_sym(a_i64_eq,lab));
-                  list.concat(taicpu.op_none(a_i32_eq));
-                OC_NE:
-                  //list.concat(taicpu.op_sym(a_i64_ne,lab));
-                  list.concat(taicpu.op_none(a_i32_ne));
-                else
-                  internalerror(2010120537);
-              end;
-              decstack(list,2);
-            end;
           else
           else
             internalerror(2010120538);
             internalerror(2010120538);
         end;
         end;