pike.git/
src/
operators.c
Branch:
Tag:
Non-build tags
All tags
No tags
2000-09-26
2000-09-26 02:49:11 by Henrik Wallin <hedda@lysator.liu.se>
f705cce0adbf496bb4dc5f70e4f18846c39d2d7d (
5
lines) (+
3
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
Corrected comment in `* string * array
Rev: src/operators.c:1.105
6:
/**/ #include "global.h" #include <math.h>
-
RCSID("$Id: operators.c,v 1.
104
2000/09/26 02:
44
:
30
hedda Exp $");
+
RCSID("$Id: operators.c,v 1.
105
2000/09/26 02:
49
:
11
hedda Exp $");
#include "interpret.h" #include "svalue.h" #include "multiset.h"
1703:
len=sp[-2].u.string->len << sp[-2].u.string->size_shift; for(e=0;e<((int)sp[-1].u.float_number);e++,pos+=len) MEMCPY(pos,sp[-2].u.string->str,len);
-
/* copy the last part of the
array
*/
+
/* copy the last part of the
string
*/
if (extra) MEMCPY(pos,sp[-2].u.string->str,extra); pop_n_elems(2);