Commits

arkdro committed 9cb852c

remove unused

Comments (0)

Files changed (1)

ocaml/src/odec_port.ml

     mant_str precision len exp new_exp short_mant_str;
   ET_Tuple [ET_Int sign; ET_Bignum (Num.Big_int mant); ET_Int new_exp]
 
-let parse_tuple = function
-  (* | ET_Tuple [ET_Int s1, ET_Bignum m1, ET_Int p1] -> *)
-  (*   true *)
-  | ET_Tuple list ->
-    let s1 = List.nth list 0 in
-    let m1 = List.nth list 1 in
-    let p1 = List.nth list 2 in
-    true
-  | ET_Tuple _ ->
-    false
-  | _ ->
-    false
-
-let t_mult = function
-  (* | ET_Tuple [ET_Tuple [ET_Int s1, ET_Bignum m1, ET_Int p1]; ET_Tuple  [ET_Int s2, ET_Bignum m2, ET_Int p2]] -> *)
-  (* | ET_Tuple [ET_Tuple t1; ET_Tuple t2] -> *)
-  (*   let n1 = parse_tuple t1 in *)
-  (*   let n2 = parse_tuple t2 in *)
-  (*   ET_Tuple [ET_Atom "stub3"] *)
-  | ET_Tuple _ as t1 ->
-    let n1 = parse_tuple t1 in
-    let n2 = parse_tuple t1 in
-    ET_Tuple [ET_Atom "stub3"]
-  | ET_Tuple list ->
-    ET_Tuple [ET_Atom "stub1"]
-  | _ ->
-    ET_Tuple [ET_Atom "stub2"]
-
 let make_tuple = function
   (* | ET_Tuple [ET_Int n1; ET_Int n2; ET_Int n3] -> *)
   (*   Some (n1, Num.num_of_int n2, n3) *)
     Some t, res2
   | ET_Tuple [ET_Atom "mt"; (ET_Tuple _) as t] ->
     Some t, t
-  | ET_Tuple [ET_Atom "mult"; (ET_Tuple items) as t] ->
-    let res = t_mult t in
-    Some t, res
   | ET_Tuple [ET_Atom "mult"; items] ->
     Some items, ET_String "stored after mult"
   | _ -> raise (Failure "Unknown command")