소스 검색

[java/cs] Expression Unwrap fix

Caue Waneck 12 년 전
부모
커밋
e3852ee4df
1개의 변경된 파일2개의 추가작업 그리고 1개의 파일을 삭제
  1. 2 1
      gencommon.ml

+ 2 - 1
gencommon.ml

@@ -5559,7 +5559,7 @@ struct
   let apply_assign_block assign_fun elist =
     let rec assign acc elist =
       match elist with
-        | [] -> assert false
+        | [] -> acc
         | last :: [] ->
           (assign_fun last) :: acc
         | hd :: tl ->
@@ -5569,6 +5569,7 @@ struct
 
   let mk_get_block assign_fun e =
     match e.eexpr with
+      | TBlock [] -> e
       | TBlock (el) ->
         { e with eexpr = TBlock(apply_assign_block assign_fun el) }
       | _ ->