suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

unbreak cify build

Browse Source
This commit is contained in:
Matthew Flatt 2018-08-25 08:05:34 -06:00
parent 247fc89f15
commit f5eb600dd7
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
racket/src/cify/inline.rkt
View File

@ -112,6 +112,7 @@
[`(eqv? ,e1 ,e2) (simple "scheme_eqv(~a)" e1 e2)] [`(eqv? ,e1 ,e2) (simple "scheme_eqv(~a)" e1 e2)]
[`(equal? ,e1 ,e2) (simple #:can-gc? #t "scheme_equal(~a)"e1 e2)] [`(equal? ,e1 ,e2) (simple #:can-gc? #t "scheme_equal(~a)"e1 e2)]
[`(char=? ,e1 ,e2) (simple "c_scheme_char_eq(~a)" e1 e2)] [`(char=? ,e1 ,e2) (simple "c_scheme_char_eq(~a)" e1 e2)]
[`(unsafe-char=? ,e1 ,e2) (simple "c_scheme_char_eq(~a)" e1 e2)]
[`(char-whitespace? ,e) (simple "c_scheme_char_whitespacep(~a)" e)] [`(char-whitespace? ,e) (simple "c_scheme_char_whitespacep(~a)" e)]
[`(unsafe-fx< ,e1 ,e2) (simple "c_int_lt(~a)" e1 e2)] [`(unsafe-fx< ,e1 ,e2) (simple "c_int_lt(~a)" e1 e2)]
[`(fx< ,e1 ,e2) (simple "c_int_lt(~a)" e1 e2)] [`(fx< ,e1 ,e2) (simple "c_int_lt(~a)" e1 e2)]

5
racket/src/racket/src/startup-glue.inc
View File

@ -328,6 +328,11 @@ static MZ_INLINE Scheme_Object *c_int_add(Scheme_Object *a, Scheme_Object *b)
return scheme_make_integer(SCHEME_INT_VAL(a) + SCHEME_INT_VAL(b)); return scheme_make_integer(SCHEME_INT_VAL(a) + SCHEME_INT_VAL(b));
} }
static MZ_INLINE Scheme_Object *c_int_mult(Scheme_Object *a, Scheme_Object *b)
{
return scheme_make_integer(SCHEME_INT_VAL(a) * SCHEME_INT_VAL(b));
}
static MZ_INLINE Scheme_Object *c_int_sub(Scheme_Object *a, Scheme_Object *b) static MZ_INLINE Scheme_Object *c_int_sub(Scheme_Object *a, Scheme_Object *b)
{ {
return scheme_make_integer(SCHEME_INT_VAL(a) - SCHEME_INT_VAL(b)); return scheme_make_integer(SCHEME_INT_VAL(a) - SCHEME_INT_VAL(b));