Sockeye: Generate hex addresses for Prolog
authorDaniel Schwyn <schwyda@student.ethz.ch>
Thu, 15 Jun 2017 09:14:52 +0000 (11:14 +0200)
committerDaniel Schwyn <schwyda@student.ethz.ch>
Thu, 15 Jun 2017 09:14:52 +0000 (11:14 +0200)
Signed-off-by: Daniel Schwyn <schwyda@student.ethz.ch>

tools/sockeye/SockeyeBackendProlog.hs

index 32e756c..4d043d1 100644 (file)
@@ -18,6 +18,7 @@ module SockeyeBackendProlog
 
 import Data.List
 import Data.Char
+import Numeric (showHex)
 
 import qualified SockeyeAST as AST
 
@@ -61,7 +62,7 @@ instance PrologGenerator AST.NodeType where
     generate = show 
 
 instance PrologGenerator AST.Addr where
-    generate (AST.Addr addr) = show addr
+    generate (AST.Addr addr) = "16'" ++ showHex addr ""
 
 {- Helper functions -}
 predicate :: String -> [String] -> String