1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
/*
C A T C O D E . C
*/
#include "iccomp.h"
static void patchadd ARG((register unsigned,
unsigned **, unsigned *,
unsigned *, unsigned));
static void patchadd(value, dest, dlen, source, slen)
register unsigned
value;
unsigned
*source,
**dest,
slen,
*dlen;
{
register unsigned
index;
if (!*dlen)
*dest = NULL; /* no memory for dest as yet */
for (index = 0; index < slen; index++) /* all elements of source list: */
source[index] += value; /* icrement addresses of targets */
/* expand the dest area */
*dest = xrealloc(*dest, (*dlen + slen) * sizeof(int));
/* append source list */
memcpy(*dest + *dlen, source, slen * sizeof(int));
*dlen += slen; /* increment # element */
}
ESTRUC_ *catcode(lval, rval)
ESTRUC_
*lval,
*rval;
{
register unsigned
l,
r;
r = rval->codelen; /* sizeof rval code */
l = lval->codelen; /* sizeof lval code */
lval->code = xrealloc(lval->code, /* room for new code */
(l + r) * sizeof(INT8));
/* catenate the code */
memcpy(lval->code + l, rval->code, r * sizeof(INT8));
lval->codelen += r; /* new size */
patchadd(l, &lval->truelist, &lval->truelen,
rval->truelist, rval->truelen);
patchadd(l, &lval->falselist, &lval->falselen,
rval->falselist, rval->falselen);
lval->type |= rval->type; /* type of combined code */
/* (is ok with same types) */
discard(rval); /* free memory used by ESTRUC_ */
return (lval); /* return new frame */
}
|
