| /original-bsd/usr.bin/pascal/pdx/sym/ |
| H A D | tree.c | 88 p->nodetype = p1->nodetype;
97 p->nodetype = t_real;
107 return p->nodetype;
116 s = p->left->nodetype;
133 s = p->left->nodetype;
236 np->nodetype = s;
261 s = rtype(tree->nodetype);
308 p->nodetype = field->type;
328 t = rtype(a->nodetype);
342 esub->nodetype = atype;
[all …]
|
| /original-bsd/old/dbx/ |
| H A D | symbols.c | 1201 p->nodetype = rtype(p1->nodetype)->type;
1210 p->nodetype = p1->nodetype;
1212 if (p1->nodetype->class == PROC or p->nodetype->class == FUNC) {
1215 p->nodetype = p1->nodetype;
1220 p->nodetype = p1->nodetype;
1239 p->nodetype = p->value.arg[0]->nodetype;
1245 p->nodetype = rtype(p1->nodetype)->type;
1249 p->nodetype = p->value.arg[1]->nodetype;
1269 p->nodetype = s;
1361 p->nodetype = t;
[all …]
|
| H A D | tree.c | 45 Symbol nodetype; member
98 p->nodetype = nil;
216 p->nodetype = exp->nodetype;
233 t->nodetype = newSymbol(nil, 0, PTR, t->nodetype, nil);
251 r->nodetype = t_addr;
257 r->nodetype = newSymbol(nil, 0, PTR, r->nodetype, nil);
258 r->nodetype->language = p->nodetype->language;
267 r->nodetype = t_addr;
273 r->nodetype = t_addr;
297 findtype(p->nodetype);
[all …]
|
| H A D | eval.c | 165 pushsmall(p->nodetype, r0);
173 len = size(p->nodetype);
179 s = p->value.arg[0]->nodetype;
180 p->value.arg[0]->nodetype = t_addr;
182 p->value.arg[0]->nodetype = s;
206 len = size(p->nodetype);
211 loophole(size(p->value.arg[0]->nodetype), size(p->nodetype));
393 psym(p->value.arg[0]->nodetype);
1152 varsize = size(var->nodetype);
1153 expsize = size(exp->nodetype);
[all …]
|
| H A D | check.c | 51 if (size(p1->nodetype) != size(p2->nodetype)) {
54 } else if (not compatible(p1->nodetype, p2->nodetype)) {
116 if (not isroutine(p->value.arg[0]->nodetype)) {
|
| H A D | asm.c | 136 t = rtype(a->nodetype);
141 r->nodetype = eltype;
|
| H A D | fortran.c | 464 as = rtype(tree->nodetype); /* node->sym.type->array*/
466 (tree->nodetype->class == VAR or tree->nodetype->class == REF)
478 etype = rtype(esub->nodetype);
488 tree->nodetype = as->type;
|
| H A D | c.c | 626 t = rtype(a->nodetype);
630 if (not compatible(p->nodetype, t_int)) {
637 r->nodetype = eltype;
650 etype = rtype(esub->nodetype);
660 r->nodetype = eltype;
|
| H A D | events.c | 768 n = size(p->nodetype);
779 printval(p->nodetype);
788 printval(p->nodetype);
808 n = size(p->nodetype);
821 printval(p->nodetype);
|
| H A D | runtime.vax.c | 852 } else if (not compatible(formal->type, actual->nodetype)) {
861 actual->op == O_RVAL or actual->nodetype == t_addr or
866 actual->value.arg[0]->nodetype == t_addr
908 } else if (passaddr(formal, actual->nodetype)) {
1016 tmp->nodetype = f->type;
|
| H A D | runtime.c | 836 } else if (not compatible(formal->type, actual->nodetype)) {
845 actual->op == O_RVAL or actual->nodetype == t_addr or
850 actual->value.arg[0]->nodetype == t_addr
892 } else if (passaddr(formal, actual->nodetype)) {
1000 tmp->nodetype = f->type;
|
| H A D | runtime.tahoe.c | 831 } else if (not compatible(formal->type, actual->nodetype)) {
840 actual->op == O_RVAL or actual->nodetype == t_addr or
845 actual->value.arg[0]->nodetype == t_addr
887 } else if (passaddr(formal, actual->nodetype)) {
993 tmp->nodetype = f->type;
|
| H A D | runtime.iris.c | 1028 } else if (not compatible(formal->type, actual->nodetype)) {
1037 actual->op == O_RVAL or actual->nodetype == t_addr or
1042 actual->value.arg[0]->nodetype == t_addr
1084 } else if (passaddr(formal, actual->nodetype)) {
1192 tmp->nodetype = f->type;
|
| H A D | runtime.sun.c | 1028 } else if (not compatible(formal->type, actual->nodetype)) {
1037 actual->op == O_RVAL or actual->nodetype == t_addr or
1042 actual->value.arg[0]->nodetype == t_addr
1084 } else if (passaddr(formal, actual->nodetype)) {
1192 tmp->nodetype = f->type;
|
| H A D | modula-2.c | 948 if (not compatible(p->value.arg[0]->nodetype, t_int)) {
960 r->nodetype = rtype(t->type);
977 t = rtype(a->nodetype);
992 if (not compatible(rtype(t), rtype(esub->nodetype))) {
996 r->nodetype = eltype;
|
| H A D | pascal.c | 766 t = rtype(a->nodetype);
779 etype = rtype(esub->nodetype);
789 r->nodetype = eltype;
|
| /original-bsd/usr.bin/pascal/pdx/tree/ |
| H A D | assign.c | 34 if (!compatible(var->nodetype, exp->nodetype)) {
39 varsize = size(var->nodetype);
|
| H A D | eval.c | 55 r1 = popsmall(p->right->nodetype);
63 r0 = popsmall(p->left->nodetype);
88 switch (size(p->nodetype)) {
102 panic("bad size %d for LCON", size(p->nodetype));
113 len = size(p->nodetype);
128 i = evalindex(p->left->nodetype, p->right);
129 push(long, n + i*size(p->nodetype));
157 len = size(p->nodetype);
361 printval(o->left->nodetype);
377 printdecl(p->left->nodetype);
|
| H A D | tfree.c | 49 unmkstring(p->nodetype);
50 free(p->nodetype);
|
| H A D | prtree.c | 60 printval(p->nodetype);
102 if (!isvarparam(p->left->nodetype)) {
|
| H A D | tree.rep | 21 SYM *nodetype;
|
| H A D | build.c | 150 p->nodetype = treetype(p, (ARGLIST) &args);
|
| /original-bsd/usr.bin/pascal/pdx/breakpoint/ |
| H A D | trinfo.c | 140 n = size(p->nodetype); in prvarnews()
156 printval(p->nodetype); in prvarnews()
171 printval(p->nodetype); in prvarnews()
|
| H A D | bpact.c | 256 printval(p->bpnode->nodetype);
|
| /original-bsd/usr.bin/pascal/pdx/runtime/ |
| H A D | callproc.c | 165 if (!compatible(arg->type, exp->nodetype)) {
|