Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 11:46:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Phasing-out Cyc_st_add2

Browse source
This commit is contained in:
Justin Ethier 2015-12-14 23:16:28 -05:00
parent ead5bcb100
commit ddf54ec5c7
3 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/cyclone/runtime.h
View file

@ -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);

4
runtime.c
View file

@ -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) {

2
scheme/cyclone/cgen.sld
View file

@ -183,7 +183,7 @@
(null? (cdr trace)))
""
(string-append
"Cyc_st_add2(data, \""
"Cyc_st_add(data, \""
(car trace)
":"
;; TODO: escape backslashes