diff --git a/include/cyclone/runtime.h b/include/cyclone/runtime.h index b1888bcb..9972c7b3 100644 --- a/include/cyclone/runtime.h +++ b/include/cyclone/runtime.h @@ -189,7 +189,7 @@ object memqp(void *,object,list); void Cyc_start_thread(gc_thread_data *thd); void GC(void *,closure,object*,int); -void Cyc_st_add(char *frame); +void Cyc_st_add(void *data, char *frame); void Cyc_st_add2(void *data, char *frame); void Cyc_st_print(void *data, FILE *out); diff --git a/runtime.c b/runtime.c index e5b1aea9..4b6c0e2f 100644 --- a/runtime.c +++ b/runtime.c @@ -190,8 +190,8 @@ const object quote_void = &Cyc_void_symbol; /* Stack Traces */ static const int MAX_STACK_TRACES = 10; -void Cyc_st_add(char *frame) { } // TODO: a temporary function, merge with below -void Cyc_st_add2(void *data, char *frame) { +void Cyc_st_add2(void *data, char *frame) { } // TODO: a temporary function, merge with below +void Cyc_st_add(void *data, char *frame) { gc_thread_data *thd = (gc_thread_data *)data; // Do not allow recursion to remove older frames if (frame != thd->stack_prev_frame) { diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index 76c4d567..b6bd7f43 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -183,7 +183,7 @@ (null? (cdr trace))) "" (string-append - "Cyc_st_add2(data, \"" + "Cyc_st_add(data, \"" (car trace) ":" ;; TODO: escape backslashes