diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-09-09 17:00:09 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-09-09 17:00:09 +0100 |
| commit | d24d92034ea278750668daff810147e0aec9dc04 (patch) | |
| tree | b4edce0a3c93b3759e0af61d8077837510dca81a /src/Micro/Asm | |
| parent | bcc469bc7f1d73e66828637b5b518b7cab8e2781 (diff) | |
| download | micro-lang-hs-d24d92034ea278750668daff810147e0aec9dc04.tar.gz micro-lang-hs-d24d92034ea278750668daff810147e0aec9dc04.zip | |
Pass the version
Diffstat (limited to 'src/Micro/Asm')
| -rw-r--r-- | src/Micro/Asm/Sdcc.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Micro/Asm/Sdcc.hs b/src/Micro/Asm/Sdcc.hs index ef655d4..1fb05dd 100644 --- a/src/Micro/Asm/Sdcc.hs +++ b/src/Micro/Asm/Sdcc.hs @@ -31,8 +31,8 @@ onlyData symm = filter (\sym -> symRef sym) $ Map.elems symm -header :: [String] -header = [";", "; File created by $$$ v?.?.? (SDCC)", ";"] +header :: String -> [String] +header version = [";", "; File created by Micro v" ++ version ++ " (SDCC)", ";"] module' :: A.Expr -> [String] module' (A.Module name _) = ["\t.module " ++ name, "\t.optsdcc -mz80"] @@ -62,5 +62,5 @@ initVars symm = code :: [String] code = ["\n\t.area _CODE"] -generate :: SymMap -> [A.Expr] -> String -generate symm ast = unlines $ header ++ module' (head ast) ++ exports symm ++ dataVars symm ++ code ++ initVars symm +generate :: String -> SymMap -> [A.Expr] -> String +generate version symm ast = unlines $ header version ++ module' (head ast) ++ exports symm ++ dataVars symm ++ code ++ initVars symm |