pike.git/
src/
opcodes.c
Branch:
Tag:
Non-build tags
All tags
No tags
1999-10-31
1999-10-31 22:41:44 by Henrik Grubbström (Grubba) <grubba@grubba.org>
ceb27fc0d825d1d28dc842d4c3923857e20f88e0 (
9
lines) (+
6
/-
3
)
[
Show
|
Annotate
]
Branch:
7.9
Fixed even more wide-string bugs in sscanf().
Rev: src/opcodes.c:1.62
25:
#include "security.h" #include "bignum.h"
-
RCSID("$Id: opcodes.c,v 1.
61
1999/10/31 22:
32
:
45
grubba Exp $");
+
RCSID("$Id: opcodes.c,v 1.
62
1999/10/31 22:
41
:
44
grubba Exp $");
void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind) {
1107:
case 'f': \ { \ PIKE_CONCAT(p_wchar, INPUT_SHIFT) *t; \
+
PCHARP t2; \
\ if(eye>=input_len) \ { \ chars_matched[0]=eye; \ return matches; \ } \
-
/*
FIXME!
*/
\
-
sval.u.float
_
number=STRTOD(input+eye
,&
t
); \
+
sval.u.float_number=STRTOD_PCHARP(MKPCHARP(input+eye,
\
+
INPUT
_
SHIFT)
,&
t2
);
\
+
t
=
(PIKE_CONCAT(p_wchar,
INPUT_SHIFT)
*)(t2.ptr);
\
if(input + eye == t) \ { \ chars_matched[0]=eye; \