37 |
FEwrong_type_argument(sLstructure,(x)) |
FEwrong_type_argument(sLstructure,(x)) |
38 |
|
|
39 |
|
|
40 |
bool |
static bool |
41 |
structure_subtypep(object x, object y) |
structure_subtypep(object x, object y) |
42 |
{ if (x==y) return 1; |
{ if (x==y) return 1; |
43 |
if (type_of(x)!= t_structure |
if (type_of(x)!= t_structure |
83 |
}} |
}} |
84 |
|
|
85 |
|
|
86 |
void |
static void |
87 |
siLstructure_ref1(void) |
siLstructure_ref1(void) |
88 |
{object x=vs_base[0]; |
{object x=vs_base[0]; |
89 |
int n=fix(vs_base[1]); |
int n=fix(vs_base[1]); |
137 |
return(v); |
return(v); |
138 |
} |
} |
139 |
|
|
140 |
void |
static void |
141 |
siLstructure_subtype_p(void) |
siLstructure_subtype_p(void) |
142 |
{object x,y; |
{object x,y; |
143 |
check_arg(2); |
check_arg(2); |
235 |
} |
} |
236 |
} |
} |
237 |
|
|
238 |
void |
static void |
239 |
siLcopy_structure(void) |
siLcopy_structure(void) |
240 |
{ |
{ |
241 |
object x, y; |
object x, y; |
346 |
} |
} |
347 |
|
|
348 |
|
|
349 |
void |
static void |
350 |
siLmake_s_data_structure(void) |
siLmake_s_data_structure(void) |
351 |
{object x,y,raw,*base; |
{object x,y,raw,*base; |
352 |
int i; |
int i; |
370 |
vs_top=vs_base+1; |
vs_top=vs_base+1; |
371 |
} |
} |
372 |
|
|
373 |
void |
static void |
374 |
siLstructure_def(void) |
siLstructure_def(void) |
375 |
{check_arg(1); |
{check_arg(1); |
376 |
check_type_structure(vs_base[0]); |
check_type_structure(vs_base[0]); |
394 |
|
|
395 |
|
|
396 |
|
|
397 |
void |
static void |
398 |
siLsize_of(void) |
siLsize_of(void) |
399 |
{ object x= vs_base[0]; |
{ object x= vs_base[0]; |
400 |
int i; |
int i; |
402 |
vs_base[0]=make_fixnum(i); |
vs_base[0]=make_fixnum(i); |
403 |
} |
} |
404 |
|
|
405 |
void |
static void |
406 |
siLaet_type(void) |
siLaet_type(void) |
407 |
{vs_base[0]=fSget_aelttype(vs_base[0]);} |
{vs_base[0]=fSget_aelttype(vs_base[0]);} |
408 |
|
|
411 |
an address which is a multiple of N */ |
an address which is a multiple of N */ |
412 |
|
|
413 |
|
|
414 |
void |
static void |
415 |
siLalignment(void) |
siLalignment(void) |
416 |
{struct {double x; int y; double z; |
{struct {double x; int y; double z; |
417 |
float x1; int y1; float z1;} |
float x1; int y1; float z1;} |