From b35b24033ff5a2171d5dc795e027358506aa01ff Mon Sep 17 00:00:00 2001
From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Thu, 10 Apr 1997 20:05:52 +0000
Subject: Tweaks to allow compilation without -DUSE_THREADS and fix missing
 parens (pad allocation) in the tokener.

p4raw-id: //depot/thrperl@5
---
 op.c     | 1 +
 pp_ctl.c | 4 ++++
 toke.c   | 2 +-
 3 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/op.c b/op.c
index ca6d44525b..b86227b112 100644
--- a/op.c
+++ b/op.c
@@ -2508,6 +2508,7 @@ I32 flags;
 OP *left;
 OP *right;
 {
+    dTHR;
     CONDOP *condop;
     OP *flip;
     OP *flop;
diff --git a/pp_ctl.c b/pp_ctl.c
index 806e4d2463..fb64466883 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1952,12 +1952,14 @@ int gimme;
     HV *newstash;
     AV* comppadlist;
 
+#ifdef USE_THREADS
     MUTEX_LOCK(&eval_mutex);
     if (eval_owner && eval_owner != thr)
 	while (eval_owner)
 	    COND_WAIT(&eval_cond, &eval_mutex);
     eval_owner = thr;
     MUTEX_UNLOCK(&eval_mutex);
+#endif /* USE_THREADS */
     in_eval = 1;
 
     /* set up a scratch pad */
@@ -2054,10 +2056,12 @@ int gimme;
 
     /* compiled okay, so do it */
 
+#ifdef USE_THREADS
     MUTEX_LOCK(&eval_mutex);
     eval_owner = 0;
     COND_SIGNAL(&eval_cond);
     MUTEX_UNLOCK(&eval_mutex);
+#endif /* USE_THREADS */
     RETURNOP(eval_start);
 }
 
diff --git a/toke.c b/toke.c
index 270cf456c1..90576e7053 100644
--- a/toke.c
+++ b/toke.c
@@ -2115,7 +2115,7 @@ yylex()
 		    if (*s == '{')
 			tokenbuf[0] = '%';
 		}
-		if (tmp = pad_findmy(tokenbuf) != NOT_IN_PAD) {
+		if ((tmp = pad_findmy(tokenbuf)) != NOT_IN_PAD) {
 		    nextval[nexttoke].opval = newOP(OP_PADANY, 0);
 		    nextval[nexttoke].opval->op_targ = tmp;
 		    force_next(PRIVATEREF);
-- 
cgit v1.2.1