From d73a8e5c4b23b577b5a0c4f06f4e5ce60696e094 Mon Sep 17 00:00:00 2001
From: Mylloon <kennel.anri@tutanota.com>
Date: Sun, 31 Dec 2023 14:32:30 +0100
Subject: [PATCH] add fn fname to failwith s

---
 flap/src/x86-64/retrolixToX86_64.ml | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/flap/src/x86-64/retrolixToX86_64.ml b/flap/src/x86-64/retrolixToX86_64.ml
index 4b30924..18375bf 100644
--- a/flap/src/x86-64/retrolixToX86_64.ml
+++ b/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