From 3ca84fa3246c8fd45d7712981feb7e5701f9b55a Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Thu, 22 Jan 2009 16:43:05 +0000
Subject: 20090122-1642

---
 libinterp/string.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'libinterp')

diff --git a/libinterp/string.c b/libinterp/string.c
index 4a4eb54e..32320d56 100644
--- a/libinterp/string.c
+++ b/libinterp/string.c
@@ -131,6 +131,8 @@ slicer(ulong start, ulong v, String *ds)
 		l = -ds->len;
 		if(v < start || v > l)
 			error(exBounds);
+		if(nc == 0)
+			return H;
 		ns = newrunes(nc);
 		memmove(ns->Srune, &ds->Srune[start], nc*sizeof(Rune));
 	}
@@ -138,6 +140,8 @@ slicer(ulong start, ulong v, String *ds)
 		l = ds->len;
 		if(v < start || v > l)
 			error(exBounds);
+		if(nc == 0)
+			return H;
 		ns = newstring(nc);
 		memmove(ns->Sascii, &ds->Sascii[start], nc);
 	}
-- 
cgit v1.2.3