1 /* Generated from debugger-client.scm by the CHICKEN compiler
2 http://www.call-cc.org
3 Version 5.3.0rc4 ((HEAD detached at 5.3.0rc4)) (rev b6cbb1ba)
4 linux-unix-gnu-x86-64 [ 64bit dload ptables ]
5 command line: debugger-client.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file debugger-client.c
6 unit: debugger-client
7 */
8 #include "chicken.h"
9
10 #include "dbg-stub.c"
11
12 static C_PTABLE_ENTRY *create_ptable(void);
13
14 static C_TLS C_word lf[1];
15 static double C_possibly_force_alignment;
16 static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};
17
18
19 C_noret_decl(C_debugger_2dclient_toplevel)
20 C_externexport void C_ccall C_debugger_2dclient_toplevel(C_word c,C_word *av) C_noret;
21
22 /* toplevel */
23 static C_TLS int toplevel_initialized=0;
24
C_debugger_2dclient_toplevel(C_word c,C_word * av)25 void C_ccall C_debugger_2dclient_toplevel(C_word c,C_word *av){
26 C_word tmp;
27 C_word t0=av[0];
28 C_word t1=av[1];
29 C_word t2;
30 C_word t3;
31 C_word t4;
32 C_word *a;
33 if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);}
34 else C_toplevel_entry(C_text("debugger-client"));
35 C_check_nursery_minimum(C_calculate_demand(8,c,1));
36 if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
37 C_save_and_reclaim((void*)C_debugger_2dclient_toplevel,c,av);}
38 toplevel_initialized=1;
39 if(C_unlikely(!C_demand_2(7))){
40 C_save(t1);
41 C_rereclaim2(7*sizeof(C_word),1);
42 t1=C_restore;}
43 a=C_alloc(8);
44 C_initialize_lf(lf,1);
45 lf[0]=C_h_intern(&lf[0],15, C_text("debugger-client"));
46 C_register_lf2(lf,1,create_ptable());{}
47 t2=C_a_i_provide(&a,1,lf[0]);
48 t3=connect_to_debugger();
49 t4=t1;{
50 C_word *av2=av;
51 av2[0]=t4;
52 av2[1]=C_SCHEME_UNDEFINED;
53 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
54
55 #ifdef C_ENABLE_PTABLES
56 static C_PTABLE_ENTRY ptable[2] = {
57 {C_text("toplevel:debugger_2dclient_2escm"),(void*)C_debugger_2dclient_toplevel},
58 {NULL,NULL}};
59 #endif
60
create_ptable(void)61 static C_PTABLE_ENTRY *create_ptable(void){
62 #ifdef C_ENABLE_PTABLES
63 return ptable;
64 #else
65 return NULL;
66 #endif
67 }
68
69 /*
70 */
71 /* end of file */
72