13 lines
508 B
Text
13 lines
508 B
Text
$NetBSD: patch-bc,v 1.1 2005/03/02 21:07:06 is Exp $
|
|
|
|
--- rts/scan.c.orig 2003-11-21 21:00:01.000000000 +0100
|
|
+++ rts/scan.c
|
|
@@ -7,7 +7,7 @@
|
|
static int scanToken (), scanInteger (), scanReal (), scanPointer ();
|
|
static int scanTokenFromSet ();
|
|
|
|
-#define BACKCH(c,f,S,s) (S ? ((s>DATA (S)) ? (s)-- : 0) : (char*)ungetc (c, f))
|
|
+#define BACKCH(c,f,S,s) (S ? ((s>DATA (S)) ? (s)--,0 : 0) : ungetc (c, f))
|
|
#define NEXTCH(l,f,S,s) (S ? ((*s=='\0') ? EOF : * (Char*)(s)++) : INCH (l, f))
|
|
|
|
#define SCAN_LEN 50
|