pike.git/
src/
builtin_functions.c
Branch:
Tag:
Non-build tags
All tags
No tags
1997-02-19
1997-02-19 05:06:42 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
3c197bade7fe2e7714bef9e262d47c76f9f39704 (
13
lines) (+
6
/-
7
)
[
Show
|
Annotate
]
Branch:
7.9
mkmapping on different sized arrays fixed
Rev: src/builtin_functions.c:1.27
4:
||| See the files COPYING and DISCLAIMER for more information. \*/ #include "global.h"
-
RCSID("$Id: builtin_functions.c,v 1.
26
1997/
01
/
31
23
:
54
:
34
hubbe Exp $");
+
RCSID("$Id: builtin_functions.c,v 1.
27
1997/
02
/
19
05
:
06
:
42
hubbe Exp $");
#include "interpret.h" #include "svalue.h" #include "macros.h"
1080:
void f_mkmapping(INT32 args) { struct mapping *m;
-
if(args<2)
-
error
("
Too few arguments to
mkmapping
.\n
");
-
if(
sp[
-
args].type
!=
T_ARRAY
)
-
error("
Bad argument 1 to
mkmapping
.\n");
-
if(sp[1-args].type!=T_ARRAY)
-
error(
"
Bad argument 2 to mkmapping.\n"
);
+
struct
array
*a,*b;
+
get_all_args
("mkmapping"
,args,"%a%a",&a,&b
);
+
if(
a
-
>size
!=
b->size
)
+
error("mkmapping
called
on
arrays
of
different
sizes\n
");
m=mkmapping(sp[-args].u.array, sp[1-args].u.array); pop_n_elems(args);