diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-05-05 21:17:24 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-05-05 21:17:24 -0700 |
commit | b96af395b9af2ff9df94b3e82213171f30827c8d (patch) | |
tree | 17c8c12648ccc25625e2534ec8d74fbe8f1542cc /arc/edit.arc.t | |
parent | 2e3b597fe85b654e82b891c22d50754fa5a26156 (diff) | |
download | mu-b96af395b9af2ff9df94b3e82213171f30827c8d.tar.gz |
1276 - make C++ version the default
I've tried to update the Readme, but there are at least a couple of issues.
Diffstat (limited to 'arc/edit.arc.t')
-rw-r--r-- | arc/edit.arc.t | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/arc/edit.arc.t b/arc/edit.arc.t new file mode 100644 index 00000000..ff039602 --- /dev/null +++ b/arc/edit.arc.t @@ -0,0 +1,33 @@ +(selective-load "mu.arc" section-level) +(set allow-raw-addresses*) + +(section 100 + +(reset) +(new-trace "new-screen") +(add-code:readfile "edit.mu") +(add-code + '((function test-new-screen [ + (1:screen-address/global <- new-screen 5:literal 5:literal) + ]))) +;? (each stmt function*!new-screen +;? (prn stmt)) +(let routine make-routine!test-new-screen + (let before rep.routine!alloc +;? (= dump-trace* (obj blacklist '("sz" "m" "setm" "addr" "cvt0" "cvt1"))) + (run 'test-new-screen) +;? (prn memory*) +;? (prn memory*.2001) + (when (~is (memory* memory*.1) 5) ; number of rows + (prn "F - newly-allocated screen doesn't have the right number of rows: @(memory* memory*!2001)")) + (let row-pointers (let base (+ 1 memory*.1) + (range base (+ base 4))) + ;? (prn row-pointers) + (when (some nil (map memory* row-pointers)) + (prn "F - newly-allocated screen didn't initialize all of its row pointers")) + (when (~all 5 (map memory* (map memory* row-pointers))) + (prn "F - newly-allocated screen didn't initialize all of its row lengths"))))) + +(reset) + +) ; section 100 for all editor code |