basicblock: change order of `TwoTarget'
authorBernhard Urban <lewurm@gmail.com>
Sat, 7 Apr 2012 01:44:21 +0000 (03:44 +0200)
committerBernhard Urban <lewurm@gmail.com>
Sat, 7 Apr 2012 01:44:21 +0000 (03:44 +0200)
Mate/BasicBlocks.hs

index fdb6b22ab02994a1fa43ad03a236258c23796e6e..25a418e4b64077fb55e19ec03d9ea043c1e7ce21 100644 (file)
@@ -160,5 +160,5 @@ calculateInstructionOffset = cio' (0, Nothing)
     where
     notarget = ((off, Just Return), x):next
     onetarget w16 = ((off, Just $ OneTarget $ (off `addW16Signed` w16)), x):next
-    twotargets w16 = ((off, Just $ TwoTarget (off `addW16Signed` w16) (off + 3)), x):next
+    twotargets w16 = ((off, Just $ TwoTarget (off + 3) (off `addW16Signed` w16)), x):next
     next = cio' (newoffset x off) xs