Initial check-in for LIAR 4.4...

diff --git a/v7/src/compiler/machines/vax/insutl.scm b/v7/src/compiler/machines/vax/insutl.scm
index 3945650d5b1d436f5ab32cbb996f86bf556cf77c..ebca249939d066a7245a174f067e441eb1337ba3 100644 (file)
--- a/v7/src/compiler/machines/vax/insutl.scm
+++ b/v7/src/compiler/machines/vax/insutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/insutl.scm,v 1.7 1987/08/24 21:22:04 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/insutl.scm,v 4.1 1988/02/23 19:34:34 bal Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -256,6 +256,16 @@ MIT in each case. |#
   (GTR . #x5) (LEQ . #x4) (GEQ . #x9) (LSS . #x8) (GTRU . #xB) (LEQU . #xA)
   (VC . #xD) (VS . #xC) (GEQU . #xF) (CC . #xF) (LSSU . #xE) (CS . #xE))
 
+;(define-symbol-transformer cc
+;  (NEQ #x2) (NEQU #x2) (EQL #x3) (EQLU #x3)
+;  (GTR #x4) (LEQ #x5) (GEQ #x8) (LSS #x9) (GTRU #xA) (LEQU #xB)
+;  (VC #xC) (VS #xD) (GEQU #xE) (CC #xE) (LSSU #xF) (CS #xF))
+
+;(define-symbol-transformer inverse-cc
+;  (NEQ #x3) (NEQU #x3) (EQL #x2) (EQLU #x2)
+;  (GTR #x5) (LEQ #x4) (GEQ #x9) (LSS #x8) (GTRU #xB) (LEQU #xA)
+;  (VC #xD) (VS #xC) (GEQU #xF) (CC #xF) (LSSU #xE) (CS #xE))
+
 (define-transformer displacement
   (lambda (expression)
     (and (pair? expression)
@@ -300,4 +310,4 @@ MIT in each case. |#
 (define-ea-transformer ea-w-o w o)
 (define-ea-transformer ea-w-q w q)
 (define-ea-transformer ea-w-w w w)
-(define-ea-transformer ea-i-? i ?)
\ No newline at end of file
+(define-ea-transformer ea-i-? i ?)