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

Diff of /gcl/cmpnew/gcl_cmplabel.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 1  Line 1 
1                
2  #(#!  #(#!
3  (lisp::in-package (lisp::quote user::compiler))  (lisp::in-package (lisp::quote user::compiler))
4  #((lisp::cons (lisp::incf compiler::*last-label*) lisp::nil) (lisp::cons (lisp::incf compiler::*last-label*) lisp::t) lisp::when lisp::cdr compiler::wt-nl "goto T" lisp::car ";" compiler::wt-nl1 "T" ":;" lisp::progn lisp::rplacd compiler::wt "goto T" ";" compiler::*inline-blocks* compiler::*compiler-output1* compiler::*vs* compiler::*record-call-info* compiler::fun-val compiler::*value-to-go* lisp::return compiler::top compiler::jump-true compiler::jump-false compiler::*unwind-exit* compiler::*exit* compiler::var (lisp::special compiler::global) (compiler::simple-call lisp::inline compiler::inline-cond compiler::inline-fixnum compiler::inline-character compiler::inline-integer compiler::inline-long-float compiler::inline-short-float) compiler::vs compiler::cvar compiler::bds-bind compiler::frame (compiler::simple-call lisp::inline compiler::inline-cond compiler::inline-fixnum compiler::inline-integer compiler::inline-character compiler::inline-long-float compiler::inline-short-float) compiler::*c-gc* compiler::tail-recursion-mark compiler::jump ((compiler::return-fixnum lisp::fixnum . compiler::wt-fixnum-loc) (compiler::return-character lisp::character . compiler::wt-character-loc) (compiler::return-short-float lisp::short-float . compiler::wt-short-float-loc) (compiler::return-long-float lisp::long-float . compiler::wt-long-float-loc) (compiler::return-object lisp::t . compiler::wt-loc)) compiler::*next-cvar* compiler::*reservation-cmacro* "long " "(object)" "" (lisp::return compiler::return-object compiler::return-fixnum compiler::return-character compiler::return-long-float compiler::return-short-float) compiler::wt1 compiler::record-call-info compiler::reset-top compiler::set-jump-true compiler::set-jump-false compiler::baboon compiler::unwind-bds compiler::set-loc compiler::cs-push compiler::vs-push compiler::wfs-error compiler::rep-type (system::%init . #((system::*make-special (lisp::quote compiler::*last-label*)) (lisp::or (lisp::boundp (lisp::quote compiler::*last-label*)) (lisp::setq compiler::*last-label* 0)) (system::*make-special (lisp::quote compiler::*exit*)) (system::*make-special (lisp::quote compiler::*unwind-exit*)) (system::*make-special (lisp::quote compiler::*record-call-info*)) (lisp::or (lisp::boundp (lisp::quote compiler::*record-call-info*)) (lisp::setq compiler::*record-call-info* lisp::nil)) (system::mm (lisp::quote compiler::next-label) 0) (system::mm (lisp::quote compiler::next-label*) 1) (system::mm (lisp::quote compiler::wt-label) 2) (system::mm (lisp::quote compiler::wt-go) 3) (system::*make-special (lisp::quote compiler::*restore-avma*)) (lisp::or (lisp::boundp (lisp::quote compiler::*restore-avma*)) (lisp::setq compiler::*restore-avma* lisp::nil)) (system::mfsfun (lisp::quote compiler::unwind-bds) 4 2) (system::mfvfun (lisp::quote compiler::unwind-exit) 5 769) (system::mfsfun (lisp::quote compiler::unwind-no-exit) 6 1) (system::mfsfun (lisp::quote compiler::tail-recursion-possible) 7 0))))  #((lisp::cons (lisp::incf compiler::*last-label*) lisp::nil) (lisp::cons (lisp::incf compiler::*last-label*) lisp::t) lisp::when lisp::cdr compiler::wt-nl "goto T" lisp::car ";" compiler::wt-nl1 "T" ":;" lisp::progn lisp::rplacd compiler::wt "goto T" ";" compiler::*inline-blocks* compiler::*compiler-output1* compiler::*vs* compiler::*record-call-info* compiler::fun-val compiler::*value-to-go* lisp::return compiler::top compiler::jump-true compiler::jump-false compiler::*unwind-exit* compiler::*exit* compiler::var (lisp::special compiler::global) (compiler::simple-call lisp::inline compiler::inline-cond compiler::inline-fixnum compiler::inline-character compiler::inline-integer compiler::inline-long-float compiler::inline-short-float) compiler::vs compiler::cvar compiler::bds-bind compiler::frame (compiler::simple-call lisp::inline compiler::inline-cond compiler::inline-fixnum compiler::inline-integer compiler::inline-character compiler::inline-long-float compiler::inline-short-float) compiler::*c-gc* compiler::tail-recursion-mark compiler::jump ((compiler::return-fixnum lisp::fixnum . compiler::wt-fixnum-loc) (compiler::return-character lisp::character . compiler::wt-character-loc) (compiler::return-short-float lisp::short-float . compiler::wt-short-float-loc) (compiler::return-long-float lisp::long-float . compiler::wt-long-float-loc) (compiler::return-object lisp::t . compiler::wt-loc)) compiler::*next-cvar* compiler::*reservation-cmacro* "long " "(object)" "" (lisp::return compiler::return-object compiler::return-fixnum compiler::return-character compiler::return-long-float compiler::return-short-float) compiler::wt1 compiler::record-call-info compiler::reset-top compiler::set-jump-true compiler::set-jump-false compiler::baboon compiler::unwind-bds compiler::set-loc compiler::cs-push compiler::vs-push compiler::wfs-error compiler::rep-type (system::%init . #((system::*make-special (lisp::quote compiler::*last-label*)) (lisp::or (lisp::boundp (lisp::quote compiler::*last-label*)) (lisp::setq compiler::*last-label* 0)) (system::*make-special (lisp::quote compiler::*exit*)) (system::*make-special (lisp::quote compiler::*unwind-exit*)) (system::*make-special (lisp::quote compiler::*record-call-info*)) (lisp::or (lisp::boundp (lisp::quote compiler::*record-call-info*)) (lisp::setq compiler::*record-call-info* lisp::nil)) (system::mm (lisp::quote compiler::next-label) 0) (system::mm (lisp::quote compiler::next-label*) 1) (system::mm (lisp::quote compiler::wt-label) 2) (system::mm (lisp::quote compiler::wt-go) 3) (system::*make-special (lisp::quote compiler::*restore-avma*)) (lisp::or (lisp::boundp (lisp::quote compiler::*restore-avma*)) (lisp::setq compiler::*restore-avma* lisp::nil)) (system::mfsfun (lisp::quote compiler::unwind-bds) 4 2) (system::mfvfun (lisp::quote compiler::unwind-exit) 5 769) (system::mfsfun (lisp::quote compiler::unwind-no-exit) 6 1) (system::mfsfun (lisp::quote compiler::tail-recursion-possible) 7 0) (system::debug (lisp::quote compiler::unwind-exit) (lisp::quote (compiler::loc compiler::ue compiler::fname))) (system::debug (lisp::quote compiler::unwind-no-exit) (lisp::quote (compiler::ue))) (system::debug (lisp::quote compiler::tail-recursion-possible) (lisp::quote (compiler::ue))))))
5  )  )

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