3a_asm: FIX: parser fail bei labels aufloesen

[calu.git] / 3a_asm / Main.hs

diff --git a/3a_asm/Main.hs b/3a_asm/Main.hs
index c0de4f412093ebb19a73224ce78a5db14b19007a..40be8f0f7546a6048c28ee2031aa32e1dd51ec3d 100644 (file)
--- 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]