pike.git/
src/
builtin_functions.c
Branch:
Tag:
Non-build tags
All tags
No tags
2004-09-18
2004-09-18 18:14:31 by Henrik Grubbström (Grubba) <grubba@grubba.org>
4da618754f0327e40420f67280027cc2f99484e1 (
10
lines) (+
6
/-
4
)
[
Show
|
Annotate
]
Branch:
7.9
More LP64 fixes.
Rev: src/builtin_functions.c:1.566
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: builtin_functions.c,v 1.
565
2004/09/
17
15
:
02
:
44
nilsson
Exp $
+
|| $Id: builtin_functions.c,v 1.
566
2004/09/
18
18
:
14
:
31
grubba
Exp $
*/ #include "global.h"
-
RCSID("$Id: builtin_functions.c,v 1.
565
2004/09/
17
15
:
02
:
44
nilsson
Exp $");
+
RCSID("$Id: builtin_functions.c,v 1.
566
2004/09/
18
18
:
14
:
31
grubba
Exp $");
#include "interpret.h" #include "svalue.h" #include "pike_macros.h"
3081:
(array_fix_type_field(to) & ~BIT_STRING) ) Pike_error("replace: to array not array(string).\n");
-
if( from->size > (
INT32)(ULONG
_MAX/sizeof(struct tupel)) )
-
Pike_error("Array too large.\n");
+
if( from->size > (
LONG
_MAX/sizeof(struct tupel)) )
+
Pike_error("Array too large
(size %ld exceeds %ld)
.\n"
,
+
(long
)
from->size, (long)(LONG_MAX/sizeof(struct tupel)))
;
ctx.v=(struct tupel *)xalloc(sizeof(struct tupel)*from->size); init_string_builder(&ctx.ret,str->size_shift); SET_ONERROR (uwp, free_replace_many_context, &ctx);