From b49b759c37ba097c0876a776b53ee9fb46847331 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
 <grubba@grubba.org>
Date: Tue, 3 Mar 1998 15:21:29 +0100
Subject: [PATCH] Fixed a few 8bit bugs.

Rev: src/modules/Regexp/pike_regexp.c:1.10
---
 src/modules/Regexp/pike_regexp.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/modules/Regexp/pike_regexp.c b/src/modules/Regexp/pike_regexp.c
index 466d3a0c29..b2b2854092 100644
--- a/src/modules/Regexp/pike_regexp.c
+++ b/src/modules/Regexp/pike_regexp.c
@@ -915,14 +915,16 @@ char           *prog;
 	    if (reginput == regbol)
 		break;
 	    if (*reginput == '\0' ||
-	       ISWORDPART( *(reginput-1) ) || !ISWORDPART( *reginput ) )
+	       ISWORDPART( *((unsigned char *)reginput-1) ) ||
+		!ISWORDPART( *((unsigned char *)reginput) ) )
 		return (0);
 	    break;
 	case WORDEND:
 	    if (*reginput == '\0')
 		break;
 	    if ( reginput == regbol ||
-	       !ISWORDPART( *(reginput-1) ) || ISWORDPART( *reginput ) )
+	       !ISWORDPART( *((unsigned char *)reginput-1) ) ||
+		 ISWORDPART( *((unsigned char *)reginput) ) )
 		return (0);
 	    break;
 	case EXACTLY:{
-- 
GitLab