278 |
#ifndef PRIVATE_FASLINK |
#ifndef PRIVATE_FASLINK |
279 |
|
|
280 |
int |
int |
281 |
faslink(faslfile, ldargstring) |
faslink(object faslfile, object ldargstring) |
|
|
|
|
object faslfile, ldargstring; |
|
282 |
{ |
{ |
283 |
#if defined(__linux__) && defined(__ELF__) |
#if defined(__linux__) && defined(__ELF__) |
284 |
FEerror("faslink() not supported for ELF yet",0); |
FEerror("faslink() not supported for ELF yet",0); |
285 |
|
return 0; |
286 |
#else |
#else |
287 |
struct exec header, faslheader; |
struct exec header, faslheader; |
288 |
object memory, data, tempfile; |
object memory, data, tempfile; |
379 |
|
|
380 |
#endif |
#endif |
381 |
|
|
382 |
siLfaslink() |
void |
383 |
|
siLfaslink(void) |
384 |
{ |
{ |
385 |
bds_ptr old_bds_top; |
bds_ptr old_bds_top; |
386 |
int i; |
int i; |
405 |
#endif/* svr4 */ |
#endif/* svr4 */ |
406 |
#endif /* UNIXFASL */ |
#endif /* UNIXFASL */ |
407 |
|
|
408 |
init_unixfasl() |
void |
409 |
|
init_unixfasl(void) |
410 |
{ |
{ |
411 |
#ifdef FASLINK |
#ifdef FASLINK |
412 |
make_si_function("FASLINK", siLfaslink); |
make_si_function("FASLINK", siLfaslink); |