From d21d62e2fc51e0a6aecd716c47785155b318f5f4 Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Sun, 29 Feb 2004 23:20:28 +0000
Subject: Various tweaks.

---
 src/cmd/hoc/code.c | 19 +++++++++++++++++--
 src/cmd/hoc/mkfile |  2 +-
 2 files changed, 18 insertions(+), 3 deletions(-)

(limited to 'src/cmd/hoc')

diff --git a/src/cmd/hoc/code.c b/src/cmd/hoc/code.c
index 26762452..7ed3ed1e 100644
--- a/src/cmd/hoc/code.c
+++ b/src/cmd/hoc/code.c
@@ -37,6 +37,11 @@ initcode(void)
 	indef = 0;
 }
 
+void
+nop(void)
+{
+}
+
 void
 push(Datum d)
 {
@@ -557,11 +562,18 @@ diveq(void)
 	push(d2);
 }
 
+void
+ppush(Datum *d)
+{
+	push(*d);
+}
+
 void
 modeq(void)
 {
 	Datum d1, d2;
 	long x;
+
 	d1 = pop();
 	d2 = pop();
 	if (d1.sym->type != VAR && d1.sym->type != UNDEF)
@@ -570,9 +582,12 @@ modeq(void)
 	/* d2.val = d1.sym->u.val %= d2.val; */
 	x = d1.sym->u.val;
 	x %= (long) d2.val;
-	d2.val = d1.sym->u.val = x;
+	d2.val = x;
+	d1.sym->u.val = x;
 	d1.sym->type = VAR;
-	push(d2);
+
+	/* push(d2) generates a compiler error on Linux w. gcc 2.95.4 */
+	ppush(&d2);
 }
 
 void
diff --git a/src/cmd/hoc/mkfile b/src/cmd/hoc/mkfile
index a226a5e8..d3bfd274 100644
--- a/src/cmd/hoc/mkfile
+++ b/src/cmd/hoc/mkfile
@@ -15,6 +15,6 @@ OFILES=\
 
 YFILES=hoc.y\
 
+SHORTLIB=bio 9
 <$PLAN9/src/mkone
 
-LDFLAGS=$LDFLAGS -lbio -l9
-- 
cgit v1.2.3