godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added Pascal support

Browse Source
This commit is contained in:
ceriel
1990-12-11 13:53:01 +00:00
parent f997bd0be8
commit 64f8785d20
13 changed files with 566 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
util/grind/db_symtab.g
View File

@@ -50,6 +50,7 @@ debugger_string
{ register p_symbol s;
char *str;
p_type tmp = 0;
int upb = 0;
}
:
name(&str)
@@ -150,6 +151,22 @@ debugger_string
{ s = NewSymbol(str, CurrentScope, LOCVAR, currnam); }
type_name(&(s->sy_type), s)
| /* lower or upper bound of array descriptor */
[ 'A' { upb = LBOUND; }
| 'Z' { upb = UBOUND; }
]
[ ['p' | ] { s = NewSymbol(str, CurrentScope, LOCVAR, currnam);
if (upb == UBOUND) add_param_type('Z', s);
}
| [ 'V' | 'S' ] { s = NewSymbol(str, CurrentScope, VAR, currnam); }
]
type_name(&(s->sy_type), s)
{ p_symbol s1 = new_symbol();
*s1 = *s;
s->sy_class = upb;
s->sy_descr = s1;
}
| /* function result in Pascal; ignore ??? */
{ s = NewSymbol(str, CurrentScope, LOCVAR, currnam); }
'X' type_name(&(s->sy_type), s)
@@ -367,6 +384,7 @@ type(p_type *ptp; int *type_index; p_symbol sy;)
';'
[ 'A' integer_const(&ic2) { A_used |= 2; }
| integer_const(&ic2)
| 'Z' integer_const(&ic2) { A_used |= 0200; }
]
{ if (tp != *ptp) free_type(tp);
tp = subrange_type(A_used,
@@ -516,7 +534,8 @@ param_list(p_type t;)
| 'i' { p->par_kind = 'i'; }
]
type(&(p->par_type), (int *) 0, (p_symbol) 0) ';'
{ t->ty_nbparams +=
{ p->par_off = t->ty_nbparams;
t->ty_nbparams +=
param_size(p->par_type, p->par_kind);
p++;
}