pike.git/
src/
pike_types.c
Branch:
Tag:
Non-build tags
All tags
No tags
2003-03-29
2003-03-29 13:47:52 by Marcus Comstedt <marcus@mc.pp.se>
301c1c159f45ba1a64b07b222b075cafc878c0e3 (
13
lines) (+
7
/-
6
)
[
Show
|
Annotate
]
Branch:
7.9
Avoid type aliasing.
Rev: src/pike_types.c:1.213
2:
|| This file is part of Pike. For copyright information see COPYRIGHT. || Pike is distributed under GPL, LGPL and MPL. See the file COPYING || for more information.
-
|| $Id: pike_types.c,v 1.
212
2003/03/
15
16
:
18
:
32
grubba
Exp $
+
|| $Id: pike_types.c,v 1.
213
2003/03/
29
13
:
47
:
52
marcus
Exp $
*/ #include "global.h"
-
RCSID("$Id: pike_types.c,v 1.
212
2003/03/
15
16
:
18
:
32
grubba
Exp $");
+
RCSID("$Id: pike_types.c,v 1.
213
2003/03/
29
13
:
47
:
52
marcus
Exp $");
#include <ctype.h> #include "svalue.h" #include "pike_types.h"
1227:
static void internal_parse_typeB(const char **s) {
-
while(ISSPACE(
**
(
(const unsigned char
*
*)
s))) ++*s;
+
while(ISSPACE(
EXTRACT_UCHAR
(*s))) ++*s;
switch(**s) { case '!':
1239:
case '(': ++*s; internal_parse_type(s);
-
while(ISSPACE(
**
(
(const unsigned char
*
*)
s))) ++*s;
+
while(ISSPACE(
EXTRACT_UCHAR
(*s))) ++*s;
if(**s != ')') Pike_error("Expecting ')'.\n"); ++*s; break;
1254:
{ internal_parse_typeB(s);
-
while(ISSPACE(
**
(
(const unsigned char
*
*)
s))) ++*s;
+
while(ISSPACE(
EXTRACT_UCHAR
(*s))) ++*s;
while(**s == '*') { ++*s;
-
while(ISSPACE(
**
(
(const unsigned char
*
*)
s))) ++*s;
+
while(ISSPACE(
EXTRACT_UCHAR
(*s))) ++*s;
push_type(T_ARRAY); } }