From 3c9a39a67724ac5f9c49032778cd6e95903a692c Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Wed, 9 Jul 1997 15:12:44 +0000 Subject: [PATCH] Added missing open-coders for: SYSTEM-PAIR-SET-CAR! SYSTEM-PAIR-SET-CDR! SYSTEM-HUNK3-SET-CXR0! SYSTEM-HUNK3-SET-CXR1! SYSTEM-HUNK3-SET-CXR2! --- v8/src/compiler/midend/fakeprim.scm | 4 +++- v8/src/compiler/midend/rtlgen.scm | 7 ++++++- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/v8/src/compiler/midend/fakeprim.scm b/v8/src/compiler/midend/fakeprim.scm index 4de06f0c3..a99a653c9 100644 --- a/v8/src/compiler/midend/fakeprim.scm +++ b/v8/src/compiler/midend/fakeprim.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: fakeprim.scm,v 1.28 1996/07/30 19:25:25 adams Exp $ +$Id: fakeprim.scm,v 1.29 1997/07/09 15:12:44 adams Exp $ Copyright (c) 1994-96 Massachusetts Institute of Technology @@ -1137,6 +1137,8 @@ MIT in each case. |# ;;set-car! set-cdr! %record-set! ;;vector-set! ;;string-set! vector-8b-set! flo:vector-set! + system-pair-set-car! system-pair-set-cdr! + system-hunk3-set-cxr0! system-hunk3-set-cxr1! system-hunk3-set-cxr2! (make-primitive-procedure 'PRIMITIVE-INCREMENT-FREE) (make-primitive-procedure 'PRIMITIVE-OBJECT-SET!))) diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm index a408134aa..2c33ac366 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.51 1996/07/30 19:52:55 adams Exp $ +$Id: rtlgen.scm,v 1.52 1997/07/09 15:12:26 adams Exp $ Copyright (c) 1994-96 Massachusetts Institute of Technology @@ -4130,6 +4130,11 @@ MIT in each case. |# ;; Primitives SET-CAR! and SET-CDR! are used to signal errors (define-fixed-mutator %set-car! (machine-tag 'PAIR) 0 2) (define-fixed-mutator %set-cdr! (machine-tag 'PAIR) 1 2) + (define-fixed-mutator 'SYSTEM-PAIR-SET-CAR! false 0 2) + (define-fixed-mutator 'SYSTEM-PAIR-SET-CDR! false 1 2) + (define-fixed-mutator 'SYSTEM-HUNK3-SET-CXR0! false 0 2) + (define-fixed-mutator 'SYSTEM-HUNK3-SET-CXR1! false 1 2) + (define-fixed-mutator 'SYSTEM-HUNK3-SET-CXR2! false 2 2) (define-fixed-mutator 'SET-STRING-LENGTH! (machine-tag 'STRING) 1 2)) (let ((define-indexed-mutator -- 2.25.1