From: Ceriel Jacobs <c.j.h.jacobs@vu.nl>
Date: Wed, 15 Jun 2011 09:13:48 +0000 (+0200)
Subject: Added atol() that ignores overflow, so that unsigned long constants are dealt with... 
X-Git-Tag: release-6-0-pre-5~45
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=1072a8797e838032a449dc475317250f328e8e81;p=ack.git

Added atol() that ignores overflow, so that unsigned long constants are dealt with properly
---

diff --git a/util/ass/assci.c b/util/ass/assci.c
index 52a6484e5..d3d0b9692 100644
--- a/util/ass/assci.c
+++ b/util/ass/assci.c
@@ -849,8 +849,28 @@ extxcon(header) {
 	return ;
 }
 
+/* Added atol() that ignores overflow. --Ceriel */
+long atol(s)
+    register char *s;
+{
+    register long total = 0;
+    register unsigned digit;
+    int minus = 0;
+
+    while (*s == ' ' || *s == '\t') s++;
+    if (*s == '+') s++;
+    else if (*s == '-') {
+        s++;
+        minus = 1;
+    }
+    while ((digit = *s++ - '0') < 10) {
+        total *= 10;
+        total += digit;
+    }
+    return(minus ? -total : total);
+}
+
 extvcon(header) {
-	extern long atol() ;
 	/*
 	 * generate data for a constant initialized by a string.
 	 */