* Some fixes to the runtime system.
modified: bin/ikarus bin/ikarus-fasl.c bin/ikarus-main.c bin/ikarus-runtime.c src/ikarus.boot
This commit is contained in:
parent
a13ad99195
commit
2d9f5377ae
BIN
bin/ikarus
BIN
bin/ikarus
Binary file not shown.
|
@ -182,7 +182,7 @@ ik_relocate_code(ikp code){
|
||||||
fprintf(stderr, "foreign name is not a bytevector\n");
|
fprintf(stderr, "foreign name is not a bytevector\n");
|
||||||
exit(-1);
|
exit(-1);
|
||||||
}
|
}
|
||||||
dlerror();
|
dlerror();
|
||||||
void* sym = dlsym(RTLD_DEFAULT, name);
|
void* sym = dlsym(RTLD_DEFAULT, name);
|
||||||
char* err = dlerror();
|
char* err = dlerror();
|
||||||
if(err){
|
if(err){
|
||||||
|
|
|
@ -189,8 +189,7 @@ int main(int argc, char** argv){
|
||||||
struct sigaction * restrict oact);
|
struct sigaction * restrict oact);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
//void handler(int signo, struct __siginfo* info, void* uap){
|
void handler(int signo, struct __siginfo* info, void* uap){
|
||||||
void handler(int signo, siginfo_t* info, void* uap){
|
|
||||||
the_pcb->engine_counter = -1;
|
the_pcb->engine_counter = -1;
|
||||||
the_pcb->interrupted = 1;
|
the_pcb->interrupted = 1;
|
||||||
}
|
}
|
||||||
|
@ -200,7 +199,7 @@ register_handlers(){
|
||||||
struct sigaction sa;
|
struct sigaction sa;
|
||||||
sa.sa_sigaction = handler;
|
sa.sa_sigaction = handler;
|
||||||
sa.sa_flags = SA_SIGINFO | SA_ONSTACK;
|
sa.sa_flags = SA_SIGINFO | SA_ONSTACK;
|
||||||
sa.sa_mask = 0;
|
sigemptyset(&sa.sa_mask);
|
||||||
int err = sigaction(SIGINT, &sa, 0);
|
int err = sigaction(SIGINT, &sa, 0);
|
||||||
if(err){
|
if(err){
|
||||||
fprintf(stderr, "Sigaction Failed: %s\n", strerror(errno));
|
fprintf(stderr, "Sigaction Failed: %s\n", strerror(errno));
|
||||||
|
|
|
@ -15,8 +15,6 @@
|
||||||
#include <sys/resource.h>
|
#include <sys/resource.h>
|
||||||
#include <sys/wait.h>
|
#include <sys/wait.h>
|
||||||
|
|
||||||
#include <uuid/uuid.h>
|
|
||||||
|
|
||||||
int total_allocated_pages = 0;
|
int total_allocated_pages = 0;
|
||||||
|
|
||||||
extern char **environ;
|
extern char **environ;
|
||||||
|
|
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
Loading…
Reference in New Issue