/[gcl]/gcl/o/main.c
ViewVC logotype

Diff of /gcl/o/main.c

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

revision 1.21 by mjthomas, Fri Oct 11 07:53:14 2002 UTC revision 1.22 by camm, Mon Nov 11 03:43:06 2002 UTC
# Line 794  siLinit_system(void) { Line 794  siLinit_system(void) {
794  }  }
795    
796  void  void
797    siLuser_init(void) {
798      check_arg(0);
799      sLApackageA->s.s_dbind = user_package;
800      user_init();
801      vs_base[0] = Cnil;
802    }
803    
804    void
805  siLaddress(void) {  siLaddress(void) {
806    check_arg(1);    check_arg(1);
807    vs_base[0] = make_fixnum((long)vs_base[0]);    vs_base[0] = make_fixnum((long)vs_base[0]);
# Line 899  init_main(void) { Line 907  init_main(void) {
907    make_si_function("CHECK-VS", siLcheck_vs);    make_si_function("CHECK-VS", siLcheck_vs);
908    make_si_function("RESET-STACK-LIMITS", siLreset_stack_limits);    make_si_function("RESET-STACK-LIMITS", siLreset_stack_limits);
909    make_si_function("INIT-SYSTEM", siLinit_system);    make_si_function("INIT-SYSTEM", siLinit_system);
910      make_si_function("USER-INIT", siLuser_init);
911    make_si_function("ADDRESS", siLaddress);    make_si_function("ADDRESS", siLaddress);
912    make_si_function("NANI", siLnani);    make_si_function("NANI", siLnani);
913    make_si_function("INITIALIZATION-FAILURE",    make_si_function("INITIALIZATION-FAILURE",

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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