소스 검색

add HArray,HArray case to compare function

Simon Krajewski 1 년 전
부모
커밋
4736821ee4
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      src/generators/hl2c.ml

+ 2 - 0
src/generators/hl2c.ml

@@ -744,6 +744,8 @@ let generate_function ctx f =
 			match rtype a, rtype b with
 			match rtype a, rtype b with
 			| (HUI8 | HUI16 | HI32 | HF32 | HF64 | HBool | HI64), (HUI8 | HUI16 | HI32 | HF32 | HF64 | HBool | HI64) ->
 			| (HUI8 | HUI16 | HI32 | HF32 | HF64 | HBool | HI64), (HUI8 | HUI16 | HI32 | HF32 | HF64 | HBool | HI64) ->
 				phys_compare()
 				phys_compare()
+			| HArray,HArray ->
+				phys_compare()
 			| HType, HType ->
 			| HType, HType ->
 				sexpr "if( hl_same_type(%s,%s) %s 0 ) {} else goto %s" (reg a) (reg b) (s_comp op) (label d)
 				sexpr "if( hl_same_type(%s,%s) %s 0 ) {} else goto %s" (reg a) (reg b) (s_comp op) (label d)
 			| HNull t, HNull _ ->
 			| HNull t, HNull _ ->