From f488919170ef6209885bac7d646f6d4256ccbf80 Mon Sep 17 00:00:00 2001 From: CSRG Date: Wed, 17 Sep 1986 16:42:01 -0800 Subject: [PATCH] BSD 4_3_Net_2 development Work on file usr/src/usr.bin/lisp/franz/tahoe/fixpbig.e Synthesized-from: CSRG/cd2/net.2 --- usr/src/usr.bin/lisp/franz/tahoe/fixpbig.e | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 usr/src/usr.bin/lisp/franz/tahoe/fixpbig.e 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 index 0000000000..d43d2c1b65 --- /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 -- 2.20.1