Browse Source

fixed abstract comparison

Nicolas Cannasse 8 năm trước cách đây
mục cha
commit
70a91b9508
1 tập tin đã thay đổi với 1 bổ sung3 xóa
  1. 1 3
      src/generators/hl2c.ml

+ 1 - 3
src/generators/hl2c.ml

@@ -658,7 +658,7 @@ let generate_function ctx f =
 					sexpr "if( %s != %s && (!%s || !%s || !%s->value || !%s->value || %s->value != %s->value) ) goto %s" (reg a) (reg b) (reg a) (reg b) (reg a) (reg b) (reg a) (reg b) (label d)
 					sexpr "if( %s != %s && (!%s || !%s || !%s->value || !%s->value || %s->value != %s->value) ) goto %s" (reg a) (reg b) (reg a) (reg b) (reg a) (reg b) (reg a) (reg b) (label d)
 				else
 				else
 					assert false
 					assert false
-			| HEnum _, HEnum _ | HDynObj, HDynObj ->
+			| HEnum _, HEnum _ | HDynObj, HDynObj | HFun _, HFun _ | HAbstract _, HAbstract _ ->
 				phys_compare()
 				phys_compare()
 			| HVirtual _, HObj _->
 			| HVirtual _, HObj _->
 				if op = CEq then
 				if op = CEq then
@@ -669,8 +669,6 @@ let generate_function ctx f =
 					assert false
 					assert false
 			| HObj _, HVirtual _ ->
 			| HObj _, HVirtual _ ->
 				compare_op op b a d
 				compare_op op b a d
-			| HFun _, HFun _ ->
-				phys_compare()
 			| ta, tb ->
 			| ta, tb ->
 				failwith ("Don't know how to compare " ^ tstr ta ^ " and " ^ tstr tb ^ " (hlc)")
 				failwith ("Don't know how to compare " ^ tstr ta ^ " and " ^ tstr tb ^ " (hlc)")
 		in
 		in