From 0350e59b9a3f9839ddafb1a04a993df098e2d2e9 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Wed, 15 Mar 1995 01:08:51 +0000 Subject: [PATCH] Open coding of %compiled-entry-maximum-arity? only needs to take object-address when entries are tagged. --- v8/src/compiler/midend/rtlgen.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm index b88aa294b..a13e9839a 100644 --- a/v8/src/compiler/midend/rtlgen.scm +++ b/v8/src/compiler/midend/rtlgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: rtlgen.scm,v 1.18 1995/03/13 23:36:44 adams Exp $ +$Id: rtlgen.scm,v 1.19 1995/03/15 01:08:51 adams Exp $ Copyright (c) 1994 Massachusetts Institute of Technology @@ -3109,9 +3109,10 @@ MIT in each case. |# open-coder (let* ((arity (rtlgen/->register (first rands))) (obj (rtlgen/->register (second rands))) - (obj* (rtlgen/new-reg)) + (obj* (if (rtlgen/tagged-entry-points?) (rtlgen/new-reg) obj)) (arity* (rtlgen/new-reg))) - (rtlgen/assign! obj* `(OBJECT->ADDRESS ,obj)) + (if (rtlgen/tagged-entry-points?) + (rtlgen/assign! obj* `(OBJECT->ADDRESS ,obj))) (rtlgen/assign! arity* `(BYTE-OFFSET ,obj* (MACHINE-CONSTANT -3))) (rtlgen/branch/likely state `(EQ-TEST ,arity* ,arity))))) -- 2.25.1