Просмотр исходного кода

* fixed bug in thlcgwasm.a_cmp_const_ref_label

git-svn-id: branches/wasm@47179 -
nickysn 4 лет назад
Родитель
Сommit
3c3a8ce111
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      compiler/wasm32/hlcgcpu.pas

+ 1 - 1
compiler/wasm32/hlcgcpu.pas

@@ -1363,7 +1363,7 @@ implementation
     begin
     begin
       tmpref:=ref;
       tmpref:=ref;
       if tmpref.base<>NR_EVAL_STACK_BASE then
       if tmpref.base<>NR_EVAL_STACK_BASE then
-        a_load_ref_stack(list,size,ref,prepare_stack_for_ref(list,tmpref,false));
+        a_load_ref_stack(list,size,tmpref,prepare_stack_for_ref(list,tmpref,false));
       maybe_adjust_cmp_stackval(list,size,cmp_op);
       maybe_adjust_cmp_stackval(list,size,cmp_op);
       a_load_const_stack(list,size,maybe_adjust_cmp_constval(size,cmp_op,a),def2regtyp(size));
       a_load_const_stack(list,size,maybe_adjust_cmp_constval(size,cmp_op,a),def2regtyp(size));
       a_cmp_stack_label(list,size,cmp_op,l);
       a_cmp_stack_label(list,size,cmp_op,l);