From 3d60213c01955e54e8e33b88108b4251197fde86 Mon Sep 17 00:00:00 2001 From: Shagun Agrawal Date: Sat, 14 Dec 2024 23:31:06 +0530 Subject: Add code emission for long type Finish chapter 11 Fix several bugs caused due to refactoring Add code emission for longs --- src/cljcc/driver.clj | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'src/cljcc/driver.clj') diff --git a/src/cljcc/driver.clj b/src/cljcc/driver.clj index 7ceb241..2db8c0b 100644 --- a/src/cljcc/driver.clj +++ b/src/cljcc/driver.clj @@ -40,8 +40,10 @@ preprocessed-file-path (make-file-name directory (remove-extension filename) "i") file (io/file preprocessed-file-path) source (slurp file) - assembly-ast (c/assembly source) + assembly-ast (c/assembly-from-src source) + _ (log/info (str "Generated assembly output: " (with-out-str (pp/pprint assembly-ast)))) assembly-output (e/emit assembly-ast) + _ (log/info (str "Generated ASM output: " (with-out-str (pp/pprint assembly-output)))) assembly-out-file-path (make-file-name directory (remove-extension filename) "s") _ (println assembly-output) _ (spit assembly-out-file-path assembly-output) @@ -92,7 +94,7 @@ (let [preprocessed-file-path (make-file-name directory (remove-extension filename) "i") file (io/file preprocessed-file-path) source (slurp file) - assembly-ast (c/assembly source)] + assembly-ast (c/assembly-from-src source)] (log/info (str "Succesfully generated assembly ast.\n" assembly-ast)))) (defn- cleanup-step [directory filename] @@ -134,4 +136,6 @@ (comment - (run "./test-programs/ex1.c" {})) + (run "./test-programs/ex1.c" {}) + + ()) -- cgit v1.2.3