diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-29 17:53:29 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-29 17:53:29 +0000 |
| commit | 13aab01d2e79671ac648645ff1c32ddf23d7947e (patch) | |
| tree | f81d5a39826bd340991616269a916e00469abd8a /src/interp/nlib.lisp | |
| parent | 9302bb2272f4e90b057548afe7c406f52b773e62 (diff) | |
| download | open-axiom-13aab01d2e79671ac648645ff1c32ddf23d7947e.tar.gz | |
Simplify final backend instruction emission.
Diffstat (limited to 'src/interp/nlib.lisp')
| -rw-r--r-- | src/interp/nlib.lisp | 18 |
1 files changed, 6 insertions, 12 deletions
diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp index 7fdc8a17..6ed9a531 100644 --- a/src/interp/nlib.lisp +++ b/src/interp/nlib.lisp @@ -157,19 +157,13 @@ (setf (cddr entry) value-or-pos))) entry)) -;;(defun rshut (rstream) -;; (when (and (equal rstream (cdr (assoc 'FILE |$compilerOptions|))) -;; (assoc 'compiler-output-stream |$compilerOptions|)) -;; (close (cdr (assoc 'compiler-output-stream |$compilerOptions|))) -;; (setq |$compilerOptions| nil)) -;; (if (eq (|libIOMode| rstream) 'output) -;; (write-indextable (|libIndexTable| rstream) (|libIndexStream| rstream))) -;; (close (|libIndexStream| rstream))) (defun rshut (rstream) - (when (and (equal rstream (cdr (assoc 'FILE |$compilerOptions|))) - (assoc 'compiler-output-stream |$compilerOptions|)) - (close (cdr (assoc 'compiler-output-stream |$compilerOptions|))) - (setq |$compilerOptions| (cddr |$compilerOptions|))) + (when (|libCodeStream| rstream) + (close (|libCodeStream| rstream)) + (setf (|libCodeStream| rstream) nil)) + (when (|libInsnStream| rstream) + (close (|libInsnStream| rstream)) + (setf (|libInsnStream| rstream) nil)) (if (eq (|libIOMode| rstream) 'output) (write-indextable (|libIndexTable| rstream) (|libIndexStream| rstream))) (close (|libIndexStream| rstream))) |