X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=calu.git;a=blobdiff_plain;f=3a_asm%2FMain.hs;h=40be8f0f7546a6048c28ee2031aa32e1dd51ec3d;hp=c0de4f412093ebb19a73224ce78a5db14b19007a;hb=b3f109c2f4edf52bc4071f9f8d71d868fb117c00;hpb=c45536d352d3a45f6bbc7627c8bd5d0163ba054e

diff --git a/3a_asm/Main.hs b/3a_asm/Main.hs
index c0de4f4..40be8f0 100644
--- a/3a_asm/Main.hs
+++ b/3a_asm/Main.hs
@@ -37,7 +37,7 @@ main = do
 		else do
 			printf ""
 	let base = if "-b" `elem` args then 2 else 16
-	let parsed = parseInstr dict formatedsrc
+	let parsed = parseInstr (reverse $ sort dict) formatedsrc
 	sequence_ [printf "%s" (showsDTFBase x base "") | x <- parsed]