+ Symbol s;
+
+ t_boolean = maketype("$boolean", 0L, 1L);
+ t_int = maketype("$integer", 0x80000000L, 0x7fffffffL);
+ t_char = maketype("$char", 0L, 255L);
+ t_real = maketype("$real", 8L, 0L);
+ t_nil = maketype("$nil", 0L, 0L);
+ t_addr = insert(identname("$address", true));
+ t_addr->language = primlang;
+ t_addr->level = 0;
+ t_addr->class = TYPE;
+ t_addr->type = newSymbol(nil, 1, PTR, t_int, nil);
+ s = insert(identname("true", true));
+ s->class = CONST;
+ s->type = t_boolean;
+ s->symvalue.constval = build(O_LCON, 1L);
+ s->symvalue.constval->nodetype = t_boolean;
+ s = insert(identname("false", true));
+ s->class = CONST;
+ s->type = t_boolean;
+ s->symvalue.constval = build(O_LCON, 0L);
+ s->symvalue.constval->nodetype = t_boolean;