pike.git/
src/
opcodes.c
Branch:
Tag:
Non-build tags
All tags
No tags
2000-08-15
2000-08-15 11:41:45 by Henrik Grubbström (Grubba) <grubba@grubba.org>
8c37d137bf49f4c2efd1f80af15a2e153168fa61 (
21
lines) (+
16
/-
5
)
[
Show
|
Annotate
]
Branch:
7.9
Fixed a few warnings.
Rev: src/opcodes.c:1.87
Rev: src/stralloc.c:1.98
Rev: src/stralloc.h:1.55
26:
#include "bignum.h" #include "operators.h"
-
RCSID("$Id: opcodes.c,v 1.
86
2000/08/
14
20
:
31
:
17
grubba Exp $");
+
RCSID("$Id: opcodes.c,v 1.
87
2000/08/
15
11
:
38
:
23
grubba Exp $");
void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind) {
752:
sp[-1].u.integer++; \ }else{ \ check_stack(2); \
-
push_
int
(last);
\
-
push_
int
(last);
\
+
push_
int64
(last); \
+
push_
int64
(last); \
set_size++; \ } \ } \
974:
#endif #endif
+
/* Avoid some warnings about loss of precision */
+
#ifdef __ECL
+
static inline int TO_INT32(ptrdiff_t x)
+
{
+
return DO_NOT_WARN((int)x);
+
}
+
#else /* !__ECL */
+
#define TO_INT32(x) ((int)x)
+
#endif /* __ECL */
+
#define MK_VERY_LOW_SSCANF(INPUT_SHIFT, MATCH_SHIFT) \ static INT32 PIKE_CONCAT4(very_low_sscanf_,INPUT_SHIFT,_,MATCH_SHIFT)( \ PIKE_CONCAT(p_wchar, INPUT_SHIFT) *input, \
1101:
&yes); \ if(yes && tmp) \ { \
-
f_aggregate(sp-save_sp);
\
+
f_aggregate(
TO_INT32(
sp-save_sp)
)
; \
sval.u.array=append_array(sval.u.array,sp-1); \ pop_stack(); \ eye+=tmp; \
1497:
case 'n': \ sval.type=T_INT; \ sval.subtype=NUMBER_NUMBER; \
-
sval.u.integer=eye;
\
+
sval.u.integer=
TO_INT32(
eye
)
; \
break; \ \ default: \