From 716b91cbfa5cf72fc9e02456cc2a5d13f1a5b5bb Mon Sep 17 00:00:00 2001 From: ssmith Date: Wed, 24 May 1995 00:19:54 +0000 Subject: [PATCH] Added many rules and fixed bugs. --- v8/src/compiler/machines/i386/rules2.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/v8/src/compiler/machines/i386/rules2.scm b/v8/src/compiler/machines/i386/rules2.scm index 282c85e62..3730ad4c3 100644 --- a/v8/src/compiler/machines/i386/rules2.scm +++ b/v8/src/compiler/machines/i386/rules2.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: rules2.scm,v 1.2 1995/01/20 20:17:17 ssmith Exp $ +$Id: rules2.scm,v 1.3 1995/05/24 00:19:54 ssmith Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -96,14 +96,13 @@ MIT in each case. |# (begin (set-equal-branches!) (LAP (CMP W (R ,(standard-source! source)) - (& ,(make-non-pointer-literal (object-type #f) - (object-datum #f)))))))) + (& ,(make-non-pointer-literal (386-object-type #f) + (386-object-datum #f)))))))) (define-rule predicate (PRED-1-ARG NULL? (REGISTER (? source))) (set-equal-branches!) - (LAP (CMP W (R ,(standard-source! source)) (@RO B ,regnum:regs-pointer - ,register-block/empty-list)))) + (LAP (CMP W (R ,(standard-source! source)) ,(get-regblock-ea register-block/empty-list)))) (define-rule predicate (PRED-2-ARGS WORD-LESS-THAN-UNSIGNED? -- 2.25.1