From c148fe943397f2ec0ea1f9b6784a217213ff54c1 Mon Sep 17 00:00:00 2001
From: Joshua Wise <jwise@andrew.cmu.edu>
Date: Sat, 10 Jul 2010 02:41:06 -0400
Subject: [PATCH] Remember to emit _l5_ functions.

---
 codegen/stringifier.sml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/codegen/stringifier.sml b/codegen/stringifier.sml
index 6124a55..b01beba 100644
--- a/codegen/stringifier.sml
+++ b/codegen/stringifier.sml
@@ -18,8 +18,8 @@ struct
   (* val stringify : asm -> string
    * turns a x86 instruction list into a string of assembly code for these instructions *)
 
-  fun (*stringify' rn (X.CALL (l, n)) = X.print (X.CALL ((Symbol.symbol (rn (Symbol.name l))), n))
-    | *)stringify' rn x = X.print x
+  fun stringify' rn (X.INSN (pred, X.MOVSYM (r, n))) = X.print (X.INSN (pred, X.MOVSYM (r, (Symbol.symbol (rn (Symbol.name n))))))
+    | stringify' rn x = X.print x
 
   (* val stringify : asm -> string *)
   fun stringify realname l = String.concat (List.map (stringify' realname) l)
-- 
2.39.2