From 59c04cc8bb79e947fd7df821a3c18313768bdfbb Mon Sep 17 00:00:00 2001 From: Jim Miller Date: Sat, 26 Nov 1994 00:23:03 +0000 Subject: [PATCH] It is now illegal to have a uuo-link with unknown number of arguments. Compat may have rewritten the call to pass arguments on the stack, and there is no simple way for rtlgen to recover this information, hence the calls must come in with the right number. --- v8/src/compiler/midend/rtlgen.scm | 25 ++++++++++--------------- 1 file changed, 10 insertions(+), 15 deletions(-) diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm index 89db7944e..36e23304d 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.5 1994/11/23 23:15:26 gjr Exp $ +$Id: rtlgen.scm,v 1.6 1994/11/26 00:23:03 jmiller Exp $ Copyright (c) 1994 Massachusetts Institute of Technology @@ -1810,20 +1810,15 @@ MIT in each case. |# (internal-error "Unexpected execute cache descriptor" name+arity)) (let ((name+arity* (cadr name+arity))) (let ((name (car name+arity*)) - (nargs* (cadr name+arity*))) - (let ((nargs - (if nargs* - (if (and #F ; SRA - no longer true! - (not (= nargs* (length rands)))) - (internal-error - "RTLGEN/INVOKE-OPERATOR-CACHE: actuals/args mismatch" - nargs* (length rands)) - nargs*) - (length rands)))) - (rtlgen/invoke - state cont rands - (lambda (cont-label) - (rtlgen/emit!/1 `(,kind ,(+ nargs 1) ,cont-label ,name)))))))) + (nargs (cadr name+arity*))) + (if (not nargs) + (internal-error + "RTLGEN/INVOKE-OPERATOR-CACHE: Unknown number of arguments" + name+arity*)) + (rtlgen/invoke + state cont rands + (lambda (cont-label) + (rtlgen/emit!/1 `(,kind ,(+ nargs 1) ,cont-label ,name))))))) (define (rtlgen/invoke-primitive/compatible state nargs prim cont) (rtlgen/invoke/compatible -- 2.25.1