From 533cdf2c34a8c246457999828599d5d957ced734 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Thu, 10 Aug 1995 13:42:50 +0000 Subject: [PATCH] Made *operator-properties* more abstract. --- v8/src/compiler/midend/ea2.scm | 6 ++---- v8/src/compiler/midend/earlyrew.scm | 6 ++---- v8/src/compiler/midend/laterew.scm | 6 ++---- v8/src/compiler/midend/rtlgen.scm | 4 ++-- 4 files changed, 8 insertions(+), 14 deletions(-) diff --git a/v8/src/compiler/midend/ea2.scm b/v8/src/compiler/midend/ea2.scm index 5bb208933..08d5d1bf7 100644 --- a/v8/src/compiler/midend/ea2.scm +++ b/v8/src/compiler/midend/ea2.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: ea2.scm,v 1.3 1995/05/14 01:17:55 adams Exp $ +$Id: ea2.scm,v 1.4 1995/08/10 13:42:50 adams Exp $ Copyright (c) 1995 Massachusetts Institute of Technology @@ -141,9 +141,7 @@ MIT in each case. |# (define (define-rewrite/early operator-name-or-object handler) (hash-table/put! *early-rewritten-operators* - (if (hash-table/get *operator-properties* - operator-name-or-object - false) + (if (know-operator? operator-name-or-object) operator-name-or-object (make-primitive-procedure operator-name-or-object)) handler)) diff --git a/v8/src/compiler/midend/earlyrew.scm b/v8/src/compiler/midend/earlyrew.scm index 5f95c364a..2688b37b1 100644 --- a/v8/src/compiler/midend/earlyrew.scm +++ b/v8/src/compiler/midend/earlyrew.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: earlyrew.scm,v 1.9 1995/05/16 02:43:14 adams Exp $ +$Id: earlyrew.scm,v 1.10 1995/08/10 13:41:57 adams Exp $ Copyright (c) 1994-1995 Massachusetts Institute of Technology @@ -140,9 +140,7 @@ MIT in each case. |# (define (define-rewrite/early operator-name-or-object handler) (hash-table/put! *early-rewritten-operators* - (if (hash-table/get *operator-properties* - operator-name-or-object - false) + (if (known-operator? operator-name-or-object) operator-name-or-object (make-primitive-procedure operator-name-or-object)) handler)) diff --git a/v8/src/compiler/midend/laterew.scm b/v8/src/compiler/midend/laterew.scm index 5ab0482cb..dbc7290b0 100644 --- a/v8/src/compiler/midend/laterew.scm +++ b/v8/src/compiler/midend/laterew.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: laterew.scm,v 1.8 1995/07/06 21:48:58 adams Exp $ +$Id: laterew.scm,v 1.9 1995/08/10 13:41:21 adams Exp $ Copyright (c) 1994 Massachusetts Institute of Technology @@ -242,9 +242,7 @@ MIT in each case. |# (define (define-rewrite/late operator-name-or-object handler) (hash-table/put! *late-rewritten-operators* - (if (hash-table/get *operator-properties* - operator-name-or-object - false) + (if (known-operator? operator-name-or-object) operator-name-or-object (make-primitive-procedure operator-name-or-object)) handler)) diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm index 130b30e6e..4226ac978 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.34 1995/08/07 16:12:35 adams Exp $ +$Id: rtlgen.scm,v 1.35 1995/08/10 13:40:43 adams Exp $ Copyright (c) 1994-1995 Massachusetts Institute of Technology @@ -2832,7 +2832,7 @@ MIT in each case. |# (define (define-open-coder name-or-object nargs vhandler shandler phandler ohandler sphandler) - (let ((rator (if (hash-table/get *operator-properties* name-or-object false) + (let ((rator (if (known-operator? name-or-object) name-or-object (make-primitive-procedure name-or-object nargs)))) (hash-table/put! -- 2.25.1