1. Shawn Hyam
  2. blub

Commits

shawnh  committed 12501d4

Couple of small code cleanups.

  • Participants
  • Parent commits 563a477
  • Branches default

Comments (0)

Files changed (1)

File blub_vm.ml

View file
 		  (argtypes, llvm_code) :: lambda.lam_jitcode
 	      end;
 	      ()
-	    with Not_found ->
-	      printf "Llvm compilation not successful\n%!"
+	    with 
+		Assert_failure (filename, line, _) ->
+		  printf "ASSERT FAILED in LLVM compile: %s:%d\n%!" 
+		    filename line
+	      |	Not_found ->
+		  printf "Llvm compilation not successful\n%!"
 	    in
 	    B_abs (lambda , next)
 
 
 	  (* Gather up the types of the arguments *)
 	  let arg_types = Array.map Blub_typecheck.type_of_sval frame.vals in
-	  let (at, _) :: _ = abs.lam_jitcode in
-	  printf "argtypes %a\n%!" (pp_array pp_type) at;
 
 	  (* Look for some LLVM code to save us *)
 	  try