← Back to branch summary

~ubuntu-branches/debian/sid/chicken/sid

« back to all changes in this revision

Viewing changes to data-structures.import.c

  • Committer: Package Import Robot
  • Author(s): Davide Puricelli (evo)
  • Date: 2013-07-15 11:23:44 UTC
  • mfrom: (1.1.12)
  • Revision ID: package-import@ubuntu.com-20130715112344-r07iyxwn6995f297
Tags: 4.8.0.3-1
* New upstream version, including upstream fixes for:
  - CVE-2012-6122 Use POSIX() poll on systems where available.
  - CVE-2012-6123 Added checks for embedded '\0' characters.
  - CVE-2012-6124 On 64-bit machines the "random" procedure no longer
    truncates result values.
  - CVE-2012-6125 Improved hash table collision resistance.  
* Added fix-untrusted-code.patch to prevent execution of untrusted code,
  see CVE-2013-1874, patch provided by upstream.
* Added fix-command-injection.patch to fix a command injection
  vulnerability, see CVE-2013-2024, patch provided by upstream.

Show diffs side-by-side

added added

removed removed

Lines of Context:
data-structures.import.c
1
1
/* Generated from data-structures.import.scm by the CHICKEN compiler
2
2
   http://www.call-cc.org
3
 
   2012-09-24 17:52
4
 
   Version 4.8.0 (rev 0db1908)
5
 
   linux-unix-gnu-x86-64 [ 64bit manyargs ptables ]
6
 
   compiled 2012-09-24 on debian (Linux)
 
3
   2013-03-12 01:05
 
4
   Version 4.8.0.3 (stability/4.8.0) (rev 091c3d9)
 
5
   macosx-unix-clang-x86-64 [ 64bit manyargs ptables ]
 
6
   compiled 2013-03-12 on aeryn.xorinia.dim (Darwin)
7
7
   command line: data-structures.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file data-structures.import.c
8
8
   used units: library eval
9
9
*/
21
21
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};
22
22
 
23
23
 
 
24
C_noret_decl(f_176)
 
25
static void C_ccall f_176(C_word c,C_word t0,C_word t1) C_noret;
 
26
C_noret_decl(C_toplevel)
 
27
C_externexport void C_ccall C_toplevel(C_word c,C_word t0,C_word t1) C_noret;
24
28
C_noret_decl(f_172)
25
29
static void C_ccall f_172(C_word c,C_word t0,C_word t1) C_noret;
26
30
C_noret_decl(f_174)
27
31
static void C_ccall f_174(C_word c,C_word t0,C_word t1) C_noret;
28
 
C_noret_decl(f_176)
29
 
static void C_ccall f_176(C_word c,C_word t0,C_word t1) C_noret;
30
 
C_noret_decl(C_toplevel)
31
 
C_externexport void C_ccall C_toplevel(C_word c,C_word t0,C_word t1) C_noret;
32
32
 
33
33
C_noret_decl(tr2)
34
34
static void C_fcall tr2(C_proc2 k) C_regparm C_noret;
38
38
C_adjust_stack(-2);
39
39
(k)(2,t0,t1);}
40
40
 
41
 
/* k171 */
42
 
static void C_ccall f_172(C_word c,C_word t0,C_word t1){
43
 
C_word tmp;
44
 
C_word t2;
45
 
C_word t3;
46
 
C_word ab[3],*a=ab;
47
 
C_check_for_interrupt;
48
 
if(!C_stack_probe(&a)){
49
 
C_save_and_reclaim((void*)tr2,(void*)f_172,2,t0,t1);}
50
 
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_174,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
51
 
C_eval_toplevel(2,C_SCHEME_UNDEFINED,t2);}
52
 
 
53
 
/* k173 in k171 */
54
 
static void C_ccall f_174(C_word c,C_word t0,C_word t1){
55
 
C_word tmp;
56
 
C_word t2;
57
 
C_word t3;
58
 
C_word ab[3],*a=ab;
59
 
C_check_for_interrupt;
60
 
if(!C_stack_probe(&a)){
61
 
C_save_and_reclaim((void*)tr2,(void*)f_174,2,t0,t1);}
62
 
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_176,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
63
 
/* data-structures.import.scm:27: ##sys#register-primitive-module */
64
 
((C_proc4)C_fast_retrieve_symbol_proc(lf[0]))(4,*((C_word*)lf[0]+1),t2,lf[1],lf[2]);}
65
 
 
66
41
/* k175 in k173 in k171 */
67
42
static void C_ccall f_176(C_word c,C_word t0,C_word t1){
68
43
C_word tmp;
119
94
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_172,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
120
95
C_library_toplevel(2,C_SCHEME_UNDEFINED,t2);}
121
96
 
 
97
/* k171 */
 
98
static void C_ccall f_172(C_word c,C_word t0,C_word t1){
 
99
C_word tmp;
 
100
C_word t2;
 
101
C_word t3;
 
102
C_word ab[3],*a=ab;
 
103
C_check_for_interrupt;
 
104
if(!C_stack_probe(&a)){
 
105
C_save_and_reclaim((void*)tr2,(void*)f_172,2,t0,t1);}
 
106
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_174,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
 
107
C_eval_toplevel(2,C_SCHEME_UNDEFINED,t2);}
 
108
 
 
109
/* k173 in k171 */
 
110
static void C_ccall f_174(C_word c,C_word t0,C_word t1){
 
111
C_word tmp;
 
112
C_word t2;
 
113
C_word t3;
 
114
C_word ab[3],*a=ab;
 
115
C_check_for_interrupt;
 
116
if(!C_stack_probe(&a)){
 
117
C_save_and_reclaim((void*)tr2,(void*)f_174,2,t0,t1);}
 
118
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_176,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
 
119
/* data-structures.import.scm:27: ##sys#register-primitive-module */
 
120
((C_proc4)C_fast_retrieve_symbol_proc(lf[0]))(4,*((C_word*)lf[0]+1),t2,lf[1],lf[2]);}
 
121
 
122
122
#ifdef C_ENABLE_PTABLES
123
123
static C_PTABLE_ENTRY ptable[5] = {
 
124
{"f_176:data_2dstructures_2eimport_2escm",(void*)f_176},
 
125
{"toplevel:data_2dstructures_2eimport_2escm",(void*)C_toplevel},
124
126
{"f_172:data_2dstructures_2eimport_2escm",(void*)f_172},
125
127
{"f_174:data_2dstructures_2eimport_2escm",(void*)f_174},
126
 
{"f_176:data_2dstructures_2eimport_2escm",(void*)f_176},
127
 
{"toplevel:data_2dstructures_2eimport_2escm",(void*)C_toplevel},
128
128
{NULL,NULL}};
129
129
#endif
130
130