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
69
|
#include "tmp.h"
#include "type.h"
#include <stddef.h>
#include <stdio.h>
#include <stdlib.h>
const struct stentry *tmp_create(struct fn *fn, const struct type *t)
{
static const char fmt[] = "__tmp%zu";
int r = snprintf(NULL, 0, fmt, fn->ntmps);
char *s = NULL, *tname = NULL;
struct tmp *tmp;
if (!(tname = type_name(t)))
goto failure;
else if (r < 0)
{
fprintf(stderr, "%s: snprintf(3) failed\n", __func__);
goto failure;
}
else if (!(s = malloc(r + 1)))
{
perror("malloc(3)");
goto failure;
}
snprintf(s, r + 1, fmt, fn->ntmps++);
if (!(tmp = malloc(sizeof *tmp)))
{
perror("realloc(3)");
goto failure;
}
*tmp = (struct tmp)
{
.tk =
{
.type = ID,
.s = s,
.loc.f = "(temporary)"
},
.e =
{
.tk = &tmp->tk,
.t = t
}
};
if (!fn->tmps)
fn->tmps = tmp;
else
for (struct tmp *t = fn->tmps; t ; t = t->next)
if (!t->next)
{
t->next = tmp;
break;
}
fprintf(stderr, "\tcreating temporary variable %s, type %s\n", s, tname);
free(tname);
return &tmp->e;
failure:
free(s);
free(tname);
return NULL;
}
|
