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

Diff of /gcl/cmpnew/gcl_cmpinline.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  #(compiler::info compiler::var compiler::*inline-blocks* compiler::*special-types* compiler::*next-cvar* compiler::*compiler-output1* compiler::cvar compiler::inline-args (lisp::fixnum lisp::long-float lisp::short-float lisp::integer) compiler::*c-gc* (lisp::fixnum lisp::long-float lisp::short-float) (compiler::list-inline compiler::list*-inline) compiler::vs compiler::*value-to-go* compiler::location compiler::*c-vars* :type :kind lisp::object :loc compiler::fixnum-loc compiler::integer-loc compiler::character-loc compiler::long-float-loc compiler::short-float-loc #\@ #\; (compiler::fixnum-loc compiler::integer-loc compiler::character-loc compiler::long-float-loc compiler::short-float-loc) (lisp::inline compiler::inline-cond) (compiler::inline-fixnum compiler::inline-integer compiler::inline-character compiler::inline-long-float compiler::inline-short-float) compiler::get-inline-locs compiler::*inline-types* lisp::inline compiler::*safe-compile* compiler::inline-safe compiler::inline-unsafe compiler::inline-always compiler::*inline-functions* compiler::vfun :initial-element lisp::integer (lisp::*) (lisp::*) (lisp::t lisp::*) compiler::fixnum-float lisp::fixnum lisp::long-float lisp::short-float (lisp::fixnum lisp::long-float lisp::short-float) (lisp::fixnum lisp::long-float lisp::short-float) (lisp::t) compiler::*volatile* compiler::restore-avma #\# #\* #\0 compiler::*space* :dynamic-extent #\, #\) compiler::lfun lisp::* compiler::arg-types lisp::values compiler::return-type compiler::no-sp-change compiler::predicate :volatile :sp-change :referred-vars :changed-vars compiler::lexical lisp::character compiler::replaced compiler::coerce-loc compiler::args-info-changed-vars compiler::wt1 compiler::rep-type compiler::inc-inline-blocks compiler::wt-c-push compiler::wt-var compiler::cs-push compiler::call-global compiler::inline-possible compiler::get-inline-info compiler::save-avma compiler::get-inline-loc compiler::need-to-protect compiler::wt-loc compiler::wt-fixnum-loc compiler::wt-integer-loc compiler::wt-character-loc compiler::wt-long-float-loc compiler::wt-short-float-loc compiler::vs-push compiler::c2expr* compiler::structure-ref compiler::coerce-loc-structure-ref lisp::setq compiler::make-var compiler::baboon compiler::inline-type compiler::fast-link-proclaimed-type-p compiler::add-fast-link compiler::inline-type-matches compiler::fix-opt compiler::type>= compiler::wt-inline-loc compiler::type-filter compiler::function-return-type (system::%init . #((system::define-structure (lisp::quote compiler::info) (lisp::quote compiler::info-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote ((compiler::changed-vars lisp::nil lisp::t lisp::nil 0) (compiler::referred-vars lisp::nil lisp::t lisp::nil 1) (lisp::type lisp::t lisp::t lisp::nil 2) (compiler::sp-change lisp::nil lisp::t lisp::nil 3) (compiler::volatile lisp::nil lisp::t lisp::nil 4))) (lisp::quote compiler::copy-info) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (compiler::make-info)) (lisp::quote 5) (lisp::quote compiler::info-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote compiler::make-info) 0 16384 1) (system::*make-special (lisp::quote compiler::*info*)) (lisp::or (lisp::boundp (lisp::quote compiler::*info*)) (lisp::setq compiler::*info* (compiler::make-info))) (system::mfsfun (lisp::quote compiler::add-info) 2 2) (system::mfsfun (lisp::quote compiler::args-info-changed-vars) 3 2) (system::mfsfun (lisp::quote compiler::args-info-referred-vars) 4 2) (system::*make-special (lisp::quote compiler::*inline-functions*)) (lisp::or (lisp::boundp (lisp::quote compiler::*inline-functions*)) (lisp::setq compiler::*inline-functions* lisp::nil)) (system::*make-special (lisp::quote compiler::*inline-blocks*)) (lisp::or (lisp::boundp (lisp::quote compiler::*inline-blocks*)) (lisp::setq compiler::*inline-blocks* 0)) (system::*make-special (lisp::quote compiler::*special-types*)) (lisp::or (lisp::boundp (lisp::quote compiler::*special-types*)) (lisp::setq compiler::*special-types* (lisp::quote (lisp::fixnum lisp::character lisp::long-float lisp::short-float lisp::integer)))) (system::mf (lisp::quote compiler::inc-inline-blocks) 5) (system::mfvfun (lisp::quote compiler::inline-args) 6 770) (system::mfsfun (lisp::quote compiler::coerce-loc) 7 2) (system::mfsfun (lisp::quote compiler::get-inline-loc) 8 2) (system::*make-special (lisp::quote compiler::*inline-types*)) (lisp::or (lisp::boundp (lisp::quote compiler::*inline-types*)) (lisp::setq compiler::*inline-types* (lisp::quote ((lisp::boolean . compiler::inline-cond) (lisp::fixnum . compiler::inline-fixnum) (lisp::character . compiler::inline-character) (lisp::long-float . compiler::inline-long-float) (lisp::short-float . compiler::inline-short-float) (lisp::integer . compiler::inline-integer) (lisp::t . lisp::inline))))) (system::mfsfun (lisp::quote compiler::inline-type) 9 1) (system::mfsfun (lisp::quote compiler::get-inline-info) 10 3) (system::mfsfun (lisp::quote compiler::inline-type-matches) 11 3) (system::mfsfun (lisp::quote compiler::need-to-protect) 12 2) (system::mfsfun (lisp::quote compiler::wt-c-push) 13 0) (system::mfsfun (lisp::quote compiler::close-inline-blocks) 14 0) (system::putprop (lisp::quote lisp::inline) (lisp::quote compiler::wt-inline) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::inline-cond) (lisp::quote compiler::wt-inline-cond) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::inline-fixnum) (lisp::quote compiler::wt-inline-fixnum) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::inline-integer) (lisp::quote compiler::wt-inline-integer) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::inline-character) (lisp::quote compiler::wt-inline-character) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::inline-long-float) (lisp::quote compiler::wt-inline-long-float) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::inline-short-float) (lisp::quote compiler::wt-inline-short-float) (lisp::quote compiler::wt-loc)) (system::mf (lisp::quote compiler::wt-inline-loc) 15) (system::mf (lisp::quote compiler::wt-inline) 16) (system::mfsfun (lisp::quote compiler::wt-inline-cond) 17 3) (system::mfsfun (lisp::quote compiler::wt-inline-fixnum) 18 3) (system::mf (lisp::quote compiler::wt-inline-integer) 19) (system::mfsfun (lisp::quote compiler::wt-inline-character) 20 3) (system::mfsfun (lisp::quote compiler::wt-inline-long-float) 21 3) (system::mfsfun (lisp::quote compiler::wt-inline-short-float) 22 3) (system::mfsfun (lisp::quote compiler::args-cause-side-effect) 23 1) (system::mfvfun (lisp::quote compiler::list-inline) 24 16384) (system::mfvfun (lisp::quote compiler::list*-inline) 25 16384) (system::mfsfun (lisp::quote compiler::defsysfun) 26 6))))  #(compiler::info compiler::var compiler::*inline-blocks* compiler::*special-types* compiler::*next-cvar* compiler::*compiler-output1* compiler::cvar compiler::inline-args (lisp::fixnum lisp::long-float lisp::short-float lisp::integer) compiler::*c-gc* (lisp::fixnum lisp::long-float lisp::short-float) (compiler::list-inline compiler::list*-inline) compiler::vs compiler::*value-to-go* compiler::location compiler::*c-vars* :type :kind lisp::object :loc compiler::fixnum-loc compiler::integer-loc compiler::character-loc compiler::long-float-loc compiler::short-float-loc #\@ #\; (compiler::fixnum-loc compiler::integer-loc compiler::character-loc compiler::long-float-loc compiler::short-float-loc) (lisp::inline compiler::inline-cond) (compiler::inline-fixnum compiler::inline-integer compiler::inline-character compiler::inline-long-float compiler::inline-short-float) compiler::get-inline-locs compiler::*inline-types* lisp::inline compiler::*safe-compile* compiler::inline-safe compiler::inline-unsafe compiler::inline-always compiler::*inline-functions* compiler::vfun :initial-element lisp::integer (lisp::*) (lisp::*) (lisp::t lisp::*) compiler::fixnum-float lisp::fixnum lisp::long-float lisp::short-float (lisp::fixnum lisp::long-float lisp::short-float) (lisp::fixnum lisp::long-float lisp::short-float) (lisp::t) compiler::*volatile* compiler::restore-avma #\# #\* #\0 compiler::*space* :dynamic-extent #\, #\) compiler::lfun lisp::* compiler::arg-types lisp::values compiler::return-type compiler::no-sp-change compiler::predicate :volatile :sp-change :referred-vars :changed-vars compiler::lexical lisp::character compiler::replaced compiler::coerce-loc compiler::args-info-changed-vars compiler::wt1 compiler::rep-type compiler::inc-inline-blocks compiler::wt-c-push compiler::wt-var compiler::cs-push compiler::call-global compiler::inline-possible compiler::get-inline-info compiler::save-avma compiler::get-inline-loc compiler::need-to-protect compiler::wt-loc compiler::wt-fixnum-loc compiler::wt-integer-loc compiler::wt-character-loc compiler::wt-long-float-loc compiler::wt-short-float-loc compiler::vs-push compiler::c2expr* compiler::structure-ref compiler::coerce-loc-structure-ref lisp::setq compiler::make-var compiler::baboon compiler::inline-type compiler::fast-link-proclaimed-type-p compiler::add-fast-link compiler::inline-type-matches compiler::fix-opt compiler::type>= compiler::wt-inline-loc compiler::type-filter compiler::function-return-type (system::%init . #((system::define-structure (lisp::quote compiler::info) (lisp::quote compiler::info-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote ((compiler::changed-vars lisp::nil lisp::t lisp::nil 0) (compiler::referred-vars lisp::nil lisp::t lisp::nil 1) (lisp::type lisp::t lisp::t lisp::nil 2) (compiler::sp-change lisp::nil lisp::t lisp::nil 3) (compiler::volatile lisp::nil lisp::t lisp::nil 4))) (lisp::quote compiler::copy-info) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (compiler::make-info)) (lisp::quote 5) (lisp::quote compiler::info-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote compiler::make-info) 0 16384 1) (system::*make-special (lisp::quote compiler::*info*)) (lisp::or (lisp::boundp (lisp::quote compiler::*info*)) (lisp::setq compiler::*info* (compiler::make-info))) (system::mfsfun (lisp::quote compiler::add-info) 2 2) (system::mfsfun (lisp::quote compiler::args-info-changed-vars) 3 2) (system::mfsfun (lisp::quote compiler::args-info-referred-vars) 4 2) (system::*make-special (lisp::quote compiler::*inline-functions*)) (lisp::or (lisp::boundp (lisp::quote compiler::*inline-functions*)) (lisp::setq compiler::*inline-functions* lisp::nil)) (system::*make-special (lisp::quote compiler::*inline-blocks*)) (lisp::or (lisp::boundp (lisp::quote compiler::*inline-blocks*)) (lisp::setq compiler::*inline-blocks* 0)) (system::*make-special (lisp::quote compiler::*special-types*)) (lisp::or (lisp::boundp (lisp::quote compiler::*special-types*)) (lisp::setq compiler::*special-types* (lisp::quote (lisp::fixnum lisp::character lisp::long-float lisp::short-float lisp::integer)))) (system::mfsfun (lisp::quote compiler::inc-inline-blocks) 5 0) (system::mfvfun (lisp::quote compiler::inline-args) 6 770) (system::mfsfun (lisp::quote compiler::coerce-loc) 7 2) (system::mfsfun (lisp::quote compiler::get-inline-loc) 8 2) (system::*make-special (lisp::quote compiler::*inline-types*)) (lisp::or (lisp::boundp (lisp::quote compiler::*inline-types*)) (lisp::setq compiler::*inline-types* (lisp::quote ((lisp::boolean . compiler::inline-cond) (lisp::fixnum . compiler::inline-fixnum) (lisp::character . compiler::inline-character) (lisp::long-float . compiler::inline-long-float) (lisp::short-float . compiler::inline-short-float) (lisp::integer . compiler::inline-integer) (lisp::t . lisp::inline))))) (system::mfsfun (lisp::quote compiler::inline-type) 9 1) (system::mfsfun (lisp::quote compiler::get-inline-info) 10 3) (system::mfsfun (lisp::quote compiler::inline-type-matches) 11 3) (system::mfsfun (lisp::quote compiler::need-to-protect) 12 2) (system::mfsfun (lisp::quote compiler::wt-c-push) 13 0) (system::mfsfun (lisp::quote compiler::close-inline-blocks) 14 0) (system::putprop (lisp::quote lisp::inline) (lisp::quote compiler::wt-inline) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::inline-cond) (lisp::quote compiler::wt-inline-cond) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::inline-fixnum) (lisp::quote compiler::wt-inline-fixnum) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::inline-integer) (lisp::quote compiler::wt-inline-integer) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::inline-character) (lisp::quote compiler::wt-inline-character) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::inline-long-float) (lisp::quote compiler::wt-inline-long-float) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::inline-short-float) (lisp::quote compiler::wt-inline-short-float) (lisp::quote compiler::wt-loc)) (system::mf (lisp::quote compiler::wt-inline-loc) 15) (system::mf (lisp::quote compiler::wt-inline) 16) (system::mfsfun (lisp::quote compiler::wt-inline-cond) 17 3) (system::mfsfun (lisp::quote compiler::wt-inline-fixnum) 18 3) (system::mfsfun (lisp::quote compiler::wt-inline-integer) 19 3) (system::mfsfun (lisp::quote compiler::wt-inline-character) 20 3) (system::mfsfun (lisp::quote compiler::wt-inline-long-float) 21 3) (system::mfsfun (lisp::quote compiler::wt-inline-short-float) 22 3) (system::mfsfun (lisp::quote compiler::args-cause-side-effect) 23 1) (system::mfvfun (lisp::quote compiler::list-inline) 24 16384) (system::mfvfun (lisp::quote compiler::list*-inline) 25 16384) (system::mfsfun (lisp::quote compiler::defsysfun) 26 6) (system::debug (lisp::quote compiler::make-info) (lisp::quote (compiler::changed-vars compiler::referred-vars lisp::type compiler::sp-change compiler::volatile))) (system::debug (lisp::quote compiler::args-info-changed-vars) (lisp::quote (compiler::form))) (system::debug (lisp::quote compiler::args-info-referred-vars) (lisp::quote (compiler::form))) (system::debug (lisp::quote compiler::inc-inline-blocks) (lisp::quote (#:g1385))) (system::debug (lisp::quote compiler::inline-args) (lisp::quote (compiler::forms compiler::types compiler::fun))) (system::debug (lisp::quote compiler::get-inline-loc) (lisp::quote (compiler::fun #:g1406 #:g1409))) (system::debug (lisp::quote compiler::get-inline-info) (lisp::quote (compiler::x compiler::y))) (system::debug (lisp::quote compiler::inline-type-matches) (lisp::quote (compiler::arg-type #:g1427))) (system::debug (lisp::quote compiler::wt-inline-loc) (lisp::quote (compiler::fun compiler::locs))) (system::debug (lisp::quote compiler::wt-inline) (lisp::quote (lisp::nil compiler::fun compiler::locs))) (system::debug (lisp::quote compiler::args-cause-side-effect) (lisp::quote (compiler::form))) (system::debug (lisp::quote compiler::list-inline) (lisp::quote (compiler::x compiler::loc))) (system::debug (lisp::quote compiler::list*-inline) (lisp::quote (compiler::x))))))
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