From 0f15f207c55ce70f46ebbd3be6c3d54763665084 Mon Sep 17 00:00:00 2001
From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Mon, 11 Aug 1997 15:46:29 +0000
Subject: Assorted changes for multi-threading (now works rather more).

p4raw-id: //depot/perl@44
---
 toke.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'toke.c')

diff --git a/toke.c b/toke.c
index 39359b7613..ca8657b3a7 100644
--- a/toke.c
+++ b/toke.c
@@ -226,6 +226,7 @@ void
 lex_start(line)
 SV *line;
 {
+    dTHR;
     char *s;
     STRLEN len;
 
@@ -309,6 +310,7 @@ static void
 incline(s)
 char *s;
 {
+    dTHR;
     char *t;
     char *n;
     char ch;
@@ -459,6 +461,7 @@ expectation x;
 char *s;
 #endif /* CAN_PROTOTYPE */
 {
+    dTHR;
     yylval.ival = f;
     CLINE;
     expect = x;
@@ -651,6 +654,7 @@ sublex_start()
 static I32
 sublex_push()
 {
+    dTHR;
     push_scope();
 
     lex_state = sublex_info.super_state;
-- 
cgit v1.2.1