add tahoe kludge

SCCS-vsn: old/pcc/mip/reader.c 4.5

diff --git a/usr/src/old/pcc/mip/reader.c b/usr/src/old/pcc/mip/reader.c
index c8e3076..c71fcfa 100644 (file)
--- a/usr/src/old/pcc/mip/reader.c
+++ b/usr/src/old/pcc/mip/reader.c
@@ -1,5 +1,5 @@
 #ifndef lint
 #ifndef lint

-static char *sccsid ="@(#)reader.c     4.4 (Berkeley) %G%";
+static char *sccsid ="@(#)reader.c     4.5 (Berkeley) %G%";

 #endif lint
 
 # include "pass2.h"
 #endif lint
 
 # include "pass2.h"


@@ -617,7 +617,11 @@ order(p,cook) NODE *p; {
                        }
 
        case UNARY MINUS:
                        }
 
        case UNARY MINUS:

+#if defined(tahoe)
+               order( p1, INBREG|INAREG|SOREG );
+#else

                order( p1, INBREG|INAREG );
                order( p1, INBREG|INAREG );

+#endif

                goto again;
 
        case NAME:
                goto again;
 
        case NAME: