pike.git/
src/
las.c
Branch:
Tag:
Non-build tags
All tags
No tags
1997-02-11
1997-02-11 07:10:54 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
49e54b2b44af32f0a80d449b0263fe0c6039cb87 (
11
lines) (+
7
/-
4
)
[
Show
|
Annotate
]
Branch:
7.9
MEMSET bugs fixed
Rev: src/las.c:1.20
4:
||| See the files COPYING and DISCLAIMER for more information. \*/ #include "global.h"
-
RCSID("$Id: las.c,v 1.
19
1997/02/11
01
:
52
:
26
hubbe Exp $");
+
RCSID("$Id: las.c,v 1.
20
1997/02/11
07
:
10
:
54
hubbe Exp $");
#include "language.h" #include "interpret.h"
998:
case F_APPLY: if(n->tree_info & OPT_SIDE_EFFECT)
-
MEMSET(p->globals,
MAX
_
GLOBAL
,
VAR
_
USED
);
+
MEMSET(p->globals,
VAR
_
USED
,
MAX
_
GLOBAL
);
break; case F_INDEX:
1049:
if(!a || !b || is_const(a)) return 0; aa.err=0; bb.err=0;
-
for
(
e=0;e<
MAX_LOCAL
;e++
)
aa.locals[e]=
bb.locals
[e]=
VAR_UNUSED;
-
for
(
e=0;e<
MAX_GLOBAL
;e++
)
aa.globals[e]=
bb.globals
[e]=
VAR_UNUSED;
+
MEMSET
(
(char *)aa.locals, VAR_UNUSED,
MAX_LOCAL
)
;
+
MEMSET((char *
)bb.locals
,
VAR_UNUSED
, MAX_LOCAL)
;
+
MEMSET
(
(char *)aa.globals, VAR_UNUSED,
MAX_GLOBAL
)
;
+
MEMSET((char *
)bb.globals
,
VAR_UNUSED
, MAX_GLOBAL)
;
find_used_variables(a,&aa,0,0); find_written_vars(b,&bb,0);