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

Some new commands and improvements

Browse Source
This commit is contained in:
ceriel
1990-09-20 17:51:14 +00:00
parent e3a247ad23
commit fbcee49b7e
17 changed files with 298 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
util/grind/dbx_string.g
View File

@@ -56,6 +56,7 @@ debugger_string
| /* type name */
{ s = NewSymbol(str, CurrentScope, TYPE, currnam); }
't' type_name(&(s->sy_type))
{ if (! s->sy_type->ty_sym) s->sy_type->ty_sym = s; }
| /* tag name (only C?) */
{ s = NewSymbol(str, CurrentScope, TAG, currnam); }
@@ -76,7 +77,7 @@ debugger_string
}
| /* external procedure */
{ s = NewSymbol(str, PervasiveScope, PROC, currnam); }
{ s = NewSymbol(str, FileScope, PROC, currnam); }
'P' routine(s)
| /* private procedure */
@@ -84,7 +85,7 @@ debugger_string
'Q' routine(s)
| /* external function */
{ s = NewSymbol(str, PervasiveScope, FUNCTION, currnam); }
{ s = NewSymbol(str, FileScope, FUNCTION, currnam); }
'F' function(s)
| /* private function */
@@ -96,10 +97,10 @@ debugger_string
the type information anyway for other
types.
*/
{ s = Lookup(findidf(str), PervasiveScope, VAR);
{ s = Lookup(findidf(str), FileScope, VAR);
if (s) {
tmp = s->sy_type;
} else s = NewSymbol(str, PervasiveScope, VAR, currnam);
} else s = NewSymbol(str, FileScope, VAR, currnam);
}
'G' type(&(s->sy_type), (int *) 0)
{ if (tmp) s->sy_type = tmp; }