Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Renamed cyc_sum family of functions

Browse source
This commit is contained in:
Justin Ethier 2015-04-15 13:43:02 -04:00
parent 3193ff1dd9
commit 6cadac2be8
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
cgen.scm
View file

@ -402,7 +402,7 @@
((eq? p 'Cyc-set-cvar!) "Cyc_set_cvar")
((eq? p 'Cyc-cvar?) "Cyc_is_cvar")
((eq? p 'Cyc-has-cycle?) "Cyc_has_cycle")
((eq? p '+) "Cyc_sum_va")
((eq? p '+) "Cyc_sum")
((eq? p '-) "__sub")
((eq? p '*) "__mul")
((eq? p '/) "__div")

10
runtime.h
View file

@ -91,8 +91,8 @@ static object Cyc_is_char(object o);
static object Cyc_is_procedure(object o);
static object Cyc_is_eof_object(object o);
static object Cyc_is_cvar(object o);
static common_type Cyc_sum(object x, object y);
static common_type Cyc_sum_va(int argc, object n, ...);
static common_type Cyc_sum_op(object x, object y);
static common_type Cyc_sum(int argc, object n, ...);
static common_type Cyc_sum_va_list(int argc, object n, va_list ns);
static int equal(object,object);
static list assq(object,list);
@ -806,7 +806,7 @@ static object __halt(object obj) {
#define __sub(c,x,y) integer_type c; c.tag = integer_tag; c.value = (((integer_type *)(x))->value - ((integer_type *)(y))->value);
#define __div(c,x,y) integer_type c; c.tag = integer_tag; c.value = (((integer_type *)(x))->value / ((integer_type *)(y))->value);
static common_type Cyc_sum(object x, object y) {
static common_type Cyc_sum_op(object x, object y) {
common_type s;
int tx = type_of(x), ty = type_of(y);
s.double_t.tag = double_tag;
@ -848,7 +848,7 @@ static common_type Cyc_sum_va_list(int argc, object n, va_list ns) {
}
for (i = 1; i < argc; i++) {
common_type result = Cyc_sum(&sum, va_arg(ns, object));
common_type result = Cyc_sum_op(&sum, va_arg(ns, object));
if (type_of(&result) == integer_tag) {
sum.integer_t.tag = integer_tag;
sum.integer_t.value = ((integer_type *) &result)->value;
@ -864,7 +864,7 @@ static common_type Cyc_sum_va_list(int argc, object n, va_list ns) {
return sum;
}
static common_type Cyc_sum_va(int argc, object n, ...) {
static common_type Cyc_sum(int argc, object n, ...) {
va_list ap;
va_start(ap, n);
common_type result = Cyc_sum_va_list(argc, n, ap);