From f5eb600dd7933345c97acc8fa6b4604ab2f5fcb7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 25 Aug 2018 08:05:34 -0600 Subject: [PATCH] unbreak cify build --- racket/src/cify/inline.rkt | 1 + racket/src/racket/src/startup-glue.inc | 5 +++++ 2 files changed, 6 insertions(+) diff --git a/racket/src/cify/inline.rkt b/racket/src/cify/inline.rkt index 1fba99cab1..2d6a33dde3 100644 --- a/racket/src/cify/inline.rkt +++ b/racket/src/cify/inline.rkt @@ -112,6 +112,7 @@ [`(eqv? ,e1 ,e2) (simple "scheme_eqv(~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)] + [`(unsafe-char=? ,e1 ,e2) (simple "c_scheme_char_eq(~a)" e1 e2)] [`(char-whitespace? ,e) (simple "c_scheme_char_whitespacep(~a)" e)] [`(unsafe-fx< ,e1 ,e2) (simple "c_int_lt(~a)" e1 e2)] [`(fx< ,e1 ,e2) (simple "c_int_lt(~a)" e1 e2)] diff --git a/racket/src/racket/src/startup-glue.inc b/racket/src/racket/src/startup-glue.inc index 57743e1820..65b5d076e4 100644 --- a/racket/src/racket/src/startup-glue.inc +++ b/racket/src/racket/src/startup-glue.inc @@ -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)); } +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) { return scheme_make_integer(SCHEME_INT_VAL(a) - SCHEME_INT_VAL(b));