diff options
Diffstat (limited to 'src/cljcc/tacky.clj')
| -rw-r--r-- | src/cljcc/tacky.clj | 23 |
1 files changed, 21 insertions, 2 deletions
diff --git a/src/cljcc/tacky.clj b/src/cljcc/tacky.clj index b88411e..9e1961a 100644 --- a/src/cljcc/tacky.clj +++ b/src/cljcc/tacky.clj @@ -526,8 +526,9 @@ symbols (atom ident->symbol) function-instructions (tacky-function-instructions ast symbols) program (vec (concat variable-instructions function-instructions)) - _ (m/coerce s/TackyProgram program) - _ (m/coerce s/SymbolMap @symbols)] + ;_ (m/coerce s/TackyProgram program) + ;_ (m/coerce s/SymbolMap @symbols) + ] {:program program :ident->symbol @symbols})) @@ -631,6 +632,24 @@ int foo; tacky-generate :program)) + (def x (-> file-path + slurp + p/parse-from-src + a/validate)) + + (pretty/explain + s/SymbolMap + (:ident->symbol (tacky-generate x))) + + (pretty/explain + s/SymbolMap + (-> file-path + slurp + p/parse-from-src + a/validate + tacky-generate + :ident->symbol)) + (-> file-path slurp p/parse-from-src |