BSD 4_3_Net_2 development

Work on file usr/src/usr.bin/lisp/franz/tahoe/fixpbig.e

Synthesized-from: CSRG/cd2/net.2

diff --git a/usr/src/usr.bin/lisp/franz/tahoe/fixpbig.e b/usr/src/usr.bin/lisp/franz/tahoe/fixpbig.e
new file mode 100644 (file)
index 0000000..d43d2c1
--- /dev/null
+++ b/usr/src/usr.bin/lisp/franz/tahoe/fixpbig.e
@@ -0,0 +1,15 @@
+/callf $[0-9]*,_stack/d
+/callf $4,_unstack/s//movl     (sp)+,r0/
+/callf $4,_sp/s//moval (sp),r0/
+/callf $4,_nargs/s//movl       -2(fp),r0\
+       cvtwl   r0,r0\
+       subl2   $4,r0\
+       shrl    $2,r0,r0/
+/\*_np\([      , ]\)/s//(r6)\1/g
+/\*_lbot\([    , ]\)/s//(r7)\1/g
+/_np\([        , ]\)/s//r6\1/g
+/_lbot\([      , ]\)/s//r7\1/g
+/\*_np$/s//(r6)/g
+/\*_lbot$/s//(r7)/g
+/_np$/s//r6/g
+/_lbot$/s//r7/g