1. arkdro
  2. odn

Commits

arkdro  committed 0165995

remove unused code

  • Participants
  • Parent commits bdf046b
  • Branches master

Comments (0)

Files changed (1)

File ocaml/odn/n1.ml

View file
  • Ignore whitespace
         node
         toPid
         (Eterm.ET_tuple [| ref; res; |])
-    | Eterm.ET_tuple [|toPid; ref; (Eterm.ET_atom "multiply"); Eterm.ET_bignum n1; Eterm.ET_bignum n2;|] ->
-      Trace.dbg "n1 worker" "bignums\n%s\n%s\n%!"
-        (Num.string_of_num n1) (Num.string_of_num n2);
-      let res = Num.mult_num n1 n2 in
-        Enode.send
-            node
-            toPid
-            (Eterm.ET_tuple [| ref; Eterm.ET_bignum res; |])
     | _ ->
       Trace.dbg "n1 main"
         "unknown message\n%!";