add fn fname to failwith s

flap/src/x86-64/retrolixToX86_64.ml

@@ -428,52 +428,52 @@ module InstructionSelector : InstructionSelector = struct
 
   let mov ~(dst : dst) ~(src : src) =
     (* TODO *)
-    failwith "Students! This is your job!"
+    failwith "Students! This is your job! (mov)"
   ;;
 
   let bin ins ~dst ~srcl ~srcr =
     (* TODO *)
-    failwith "Students! This is your job!"
+    failwith "Students! This is your job! (bin)"
   ;;
 
   let add ~dst ~srcl ~srcr =
     (* TODO *)
-    failwith "Students! This is your job!"
+    failwith "Students! This is your job! (add)"
   ;;
 
   let sub ~dst ~srcl ~srcr =
     (* TODO *)
-    failwith "Students! This is your job!"
+    failwith "Students! This is your job! (sub)"
   ;;
 
   let mul ~dst ~srcl ~srcr =
     (* TODO *)
-    failwith "Students! This is your job!"
+    failwith "Students! This is your job! (mul)"
   ;;
 
   let div ~dst ~srcl ~srcr =
     (* TODO *)
-    failwith "Students! This is your job!"
+    failwith "Students! This is your job! (div)"
   ;;
 
   let andl ~dst ~srcl ~srcr =
     (* TODO *)
-    failwith "Students! This is your job!"
+    failwith "Students! This is your job! (andl)"
   ;;
 
   let orl ~dst ~srcl ~srcr =
     (* TODO *)
-    failwith "Students! This is your job!"
+    failwith "Students! This is your job! (orl)"
   ;;
 
   let conditional_jump ~cc ~srcl ~srcr ~ll ~lr =
     (* TODO *)
-    failwith "Students! This is your job!"
+    failwith "Students! This is your job! (conditional_jump)"
   ;;
 
   let switch ?default ~discriminant ~cases () =
     (* TODO *)
-    failwith "Students! This is your job!"
+    failwith "Students! This is your job! (switch)"
   ;;
 end
 
@@ -506,7 +506,7 @@ module FrameManager (IS : InstructionSelector) : FrameManager = struct
 
   let location_of fd id =
     (* TODO *)
-    failwith "Students! This is your job!"
+    failwith "Students! This is your job! (location_of)"
   ;;
 
   let function_prologue fd =
@@ -521,7 +521,7 @@ module FrameManager (IS : InstructionSelector) : FrameManager = struct
 
   let call fd ~kind ~f ~args =
     (* TODO *)
-    failwith "Students! This is your job!"
+    failwith "Students! This is your job! (call)"
   ;;
 end