Sockeye: Switch default mapping to 0x0 if no base address given
authorDaniel Schwyn <schwyda@student.ethz.ch>
Tue, 18 Jul 2017 12:54:00 +0000 (14:54 +0200)
committerDaniel Schwyn <schwyda@student.ethz.ch>
Tue, 18 Jul 2017 12:54:00 +0000 (14:54 +0200)
Signed-off-by: Daniel Schwyn <schwyda@student.ethz.ch>

tools/sockeye/SockeyeNetBuilder.hs

index c9c7586..95d6b3d 100644 (file)
@@ -335,7 +335,7 @@ instance NetTransformable AST.MapSpec NetAST.MapSpec where
         let
             block = AST.block ast
             destNode = AST.destNode ast
-            destBase = fromMaybe (AST.base block) (AST.destBase ast)
+            destBase = fromMaybe (AST.LiteralAddress 0) (AST.destBase ast)
         netBlock <- transform context block
         netDestNode <- transform context destNode
         netDestBase <- transform context destBase