/[gcl]/gcl/cmpnew/gcl_cmptag.data
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmptag.data

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.2.1 by camm, Sun Sep 14 02:30:33 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:39:18 2003 UTC
# Line 3  Line 3 
3  (lisp::in-package (lisp::quote user::compiler))#!  (lisp::in-package (lisp::quote user::compiler))#!
4  (lisp::import (lisp::quote system::switch))#!  (lisp::import (lisp::quote system::switch))#!
5  (lisp::import (lisp::quote system::switch-finish))  (lisp::import (lisp::quote system::switch-finish))
6  #(lisp::tag lisp::go compiler::var compiler::*reg-amount* compiler::*tags* :name :ref :ref-ccb :ref-clb compiler::*setjmps* lisp::tagbody lisp::progn compiler::*last-label* compiler::*unwind-exit* compiler::*compiler-output1* compiler::*exit* compiler::*value-to-go* compiler::trash compiler::*vs* compiler::frame compiler::*clink* compiler::*ccb-vs* "The tag name ~s is not a symbol nor an integer." "The tag ~s is undefined." compiler::*info* "case " "" compiler::info lisp::fixnum "default" (compiler::switch-finish-label) system::switch compiler::*inline-blocks* (lisp::fixnum) "switch(#0){" lisp::if lisp::eql (lisp::go lisp::t) (lisp::t) (compiler::switch-finish-label) (lisp::go compiler::switch-finish-label) :switch :var :unwind-exit :label system::structure-subtype-p compiler::jumps-to-p compiler::add-reg1 compiler::make-info compiler::make-tag compiler::c1expr* compiler::add-loop-registers compiler::c1nil compiler::add-object compiler::c2tagbody-ccb compiler::c2tagbody-clb compiler::c2tagbody-local compiler::c2tagbody-body compiler::unwind-exit compiler::wt-switch-case compiler::wt1 compiler::c2expr compiler::vs-push compiler::wt-vs compiler::wt-clink compiler::clink compiler::ccb-vs-push compiler::wt-vs* compiler::too-few-args compiler::too-many-args compiler::cmperr compiler::cb compiler::lb compiler::c2go-ccb compiler::c2go-clb compiler::c2go-local compiler::unwind-no-exit compiler::wt-ccb-vs compiler::c1expr lisp::subtypep compiler::c1tagbody compiler::cmp-macroexpand-1 compiler::inline-args compiler::wt-inline-loc compiler::close-inline-blocks (system::%init . #((system::putprop (lisp::quote lisp::tagbody) (lisp::quote compiler::c1tagbody) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::tagbody) (lisp::quote compiler::c2tagbody) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::go) (lisp::quote compiler::c1go) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::go) (lisp::quote compiler::c2go) (lisp::quote compiler::c2)) (system::define-structure (lisp::quote lisp::tag) (lisp::quote compiler::tag-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote ((compiler::name lisp::nil lisp::t lisp::nil 0) (compiler::ref lisp::nil lisp::t lisp::nil 1) (compiler::ref-clb lisp::nil lisp::t lisp::nil 2) (compiler::ref-ccb lisp::nil lisp::t lisp::nil 3) (compiler::label lisp::nil lisp::t lisp::nil 4) (compiler::unwind-exit lisp::nil lisp::t lisp::nil 5) (compiler::var lisp::nil lisp::t lisp::nil 6) (system::switch lisp::nil lisp::t lisp::nil 7))) (lisp::quote compiler::copy-tag) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (compiler::make-tag)) (lisp::quote 8) (lisp::quote compiler::tag-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote compiler::make-tag) 0 16384 1) (system::*make-special (lisp::quote compiler::*tags*)) (lisp::or (lisp::boundp (lisp::quote compiler::*tags*)) (lisp::setq compiler::*tags* lisp::nil)) (system::mfsfun (lisp::quote compiler::jumps-to-p) 2 2) (system::*make-special (lisp::quote compiler::*reg-amount*)) (lisp::or (lisp::boundp (lisp::quote compiler::*reg-amount*)) (lisp::setq compiler::*reg-amount* 60)) (system::mfsfun (lisp::quote compiler::add-reg1) 3 1) (system::mfsfun (lisp::quote compiler::add-loop-registers) 4 1) (system::mfsfun (lisp::quote compiler::c1tagbody) 5 1) (system::mfsfun (lisp::quote compiler::c2tagbody) 6 3) (system::mfsfun (lisp::quote compiler::c2tagbody-local) 7 1) (system::mfsfun (lisp::quote compiler::c2tagbody-body) 8 1) (system::mfsfun (lisp::quote compiler::c2tagbody-clb) 9 1) (system::mfsfun (lisp::quote compiler::c2tagbody-ccb) 10 1) (system::mfsfun (lisp::quote compiler::c1go) 11 1) (system::mfsfun (lisp::quote compiler::c2go) 12 3) (system::mfsfun (lisp::quote compiler::c2go-local) 13 1) (system::mfsfun (lisp::quote compiler::c2go-clb) 14 1) (system::mfsfun (lisp::quote compiler::c2go-ccb) 15 1) (system::mfsfun (lisp::quote compiler::wt-switch-case) 16 1) (system::mfsfun (lisp::quote compiler::c1switch) 17 1) (system::mfsfun (lisp::quote compiler::c2switch) 18 4) (system::putprop (lisp::quote system::switch) (lisp::quote 1) (lisp::quote system::pretty-print-format)) (system::mm (lisp::quote system::switch) 19) (system::mm (lisp::quote system::switch-finish) 20) (system::putprop (lisp::quote system::switch) (lisp::quote compiler::c1switch) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote system::switch) (lisp::quote compiler::c2switch) (lisp::quote compiler::c2)))))  #(lisp::tag lisp::go compiler::var compiler::*reg-amount* compiler::*tags* :name :ref :ref-ccb :ref-clb compiler::*setjmps* lisp::tagbody lisp::progn compiler::*last-label* compiler::*unwind-exit* compiler::*compiler-output1* compiler::*exit* compiler::*value-to-go* compiler::trash compiler::*vs* compiler::frame compiler::*clink* compiler::*ccb-vs* "The tag name ~s is not a symbol nor an integer." "The tag ~s is undefined." compiler::*info* "case " "" compiler::info lisp::fixnum "default" (compiler::switch-finish-label) system::switch compiler::*inline-blocks* (lisp::fixnum) "switch(#0){" lisp::if lisp::eql (lisp::go lisp::t) (lisp::t) (compiler::switch-finish-label) (lisp::go compiler::switch-finish-label) :switch :var :unwind-exit :label system::structure-subtype-p compiler::jumps-to-p compiler::add-reg1 compiler::make-info compiler::make-tag compiler::c1expr* compiler::add-loop-registers compiler::c1nil compiler::add-object compiler::c2tagbody-ccb compiler::c2tagbody-clb compiler::c2tagbody-local compiler::c2tagbody-body compiler::unwind-exit compiler::wt-switch-case compiler::wt1 compiler::c2expr compiler::vs-push compiler::wt-vs compiler::wt-clink compiler::clink compiler::ccb-vs-push compiler::wt-vs* compiler::too-few-args compiler::too-many-args compiler::cmperr compiler::cb compiler::lb compiler::c2go-ccb compiler::c2go-clb compiler::c2go-local compiler::unwind-no-exit compiler::wt-ccb-vs compiler::c1expr lisp::subtypep compiler::c1tagbody compiler::cmp-macroexpand-1 compiler::inline-args compiler::wt-inline-loc compiler::close-inline-blocks (system::%init . #((system::putprop (lisp::quote lisp::tagbody) (lisp::quote compiler::c1tagbody) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::tagbody) (lisp::quote compiler::c2tagbody) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::go) (lisp::quote compiler::c1go) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::go) (lisp::quote compiler::c2go) (lisp::quote compiler::c2)) (system::define-structure (lisp::quote lisp::tag) (lisp::quote compiler::tag-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote ((compiler::name lisp::nil lisp::t lisp::nil 0) (compiler::ref lisp::nil lisp::t lisp::nil 1) (compiler::ref-clb lisp::nil lisp::t lisp::nil 2) (compiler::ref-ccb lisp::nil lisp::t lisp::nil 3) (compiler::label lisp::nil lisp::t lisp::nil 4) (compiler::unwind-exit lisp::nil lisp::t lisp::nil 5) (compiler::var lisp::nil lisp::t lisp::nil 6) (system::switch lisp::nil lisp::t lisp::nil 7))) (lisp::quote compiler::copy-tag) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (compiler::make-tag)) (lisp::quote 8) (lisp::quote compiler::tag-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote compiler::make-tag) 0 16384 1) (system::*make-special (lisp::quote compiler::*tags*)) (lisp::or (lisp::boundp (lisp::quote compiler::*tags*)) (lisp::setq compiler::*tags* lisp::nil)) (system::mfsfun (lisp::quote compiler::jumps-to-p) 2 2) (system::*make-special (lisp::quote compiler::*reg-amount*)) (lisp::or (lisp::boundp (lisp::quote compiler::*reg-amount*)) (lisp::setq compiler::*reg-amount* 60)) (system::mfsfun (lisp::quote compiler::add-reg1) 3 1) (system::mfsfun (lisp::quote compiler::add-loop-registers) 4 1) (system::mfsfun (lisp::quote compiler::c1tagbody) 5 1) (system::mfsfun (lisp::quote compiler::c2tagbody) 6 3) (system::mfsfun (lisp::quote compiler::c2tagbody-local) 7 1) (system::mfsfun (lisp::quote compiler::c2tagbody-body) 8 1) (system::mfsfun (lisp::quote compiler::c2tagbody-clb) 9 1) (system::mfsfun (lisp::quote compiler::c2tagbody-ccb) 10 1) (system::mfsfun (lisp::quote compiler::c1go) 11 1) (system::mfsfun (lisp::quote compiler::c2go) 12 3) (system::mfsfun (lisp::quote compiler::c2go-local) 13 1) (system::mfsfun (lisp::quote compiler::c2go-clb) 14 1) (system::mfsfun (lisp::quote compiler::c2go-ccb) 15 1) (system::mfsfun (lisp::quote compiler::wt-switch-case) 16 1) (system::mfsfun (lisp::quote compiler::c1switch) 17 1) (system::mfsfun (lisp::quote compiler::c2switch) 18 4) (system::putprop (lisp::quote system::switch) (lisp::quote 1) (lisp::quote system::pretty-print-format)) (system::mm (lisp::quote system::switch) 19) (system::mm (lisp::quote system::switch-finish) 20) (system::putprop (lisp::quote system::switch) (lisp::quote compiler::c1switch) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote system::switch) (lisp::quote compiler::c2switch) (lisp::quote compiler::c2)) (system::debug (lisp::quote compiler::make-tag) (lisp::quote (compiler::name compiler::ref compiler::ref-clb compiler::ref-ccb compiler::label compiler::unwind-exit compiler::var system::switch))) (system::debug (lisp::quote compiler::c1tagbody) (lisp::quote (compiler::*tags* compiler::info #:g1383))) (system::debug (lisp::quote compiler::c2tagbody-local) (lisp::quote (compiler::label compiler::x))) (system::debug (lisp::quote compiler::c2tagbody-body) (lisp::quote (compiler::*exit*))) (system::debug (lisp::quote compiler::c2tagbody-clb) (lisp::quote (compiler::label lisp::nil compiler::*unwind-exit* lisp::tag))) (system::debug (lisp::quote compiler::c2tagbody-ccb) (lisp::quote (compiler::label lisp::nil lisp::nil lisp::nil compiler::*unwind-exit* lisp::tag))) (system::debug (lisp::quote compiler::c1switch) (lisp::quote (lisp::nil compiler::switch-op compiler::body compiler::switch-op-1))))))
7  )  )

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26