1
2
3
4
5
6
7
8
9
10
11
12
13
|
$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
|
