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

Delinted somewhat (did not work on 2/2 machines)

Browse Source
This commit is contained in:
ceriel
1991-02-18 11:11:04 +00:00
parent 58f742200b
commit e9412dcf4a
6 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lang/pc/comp/def.c
View File

@@ -20,6 +20,7 @@ struct def *
MkDef(id, scope, kind)
register struct idf *id;
register struct scope *scope;
long kind;
{
/* Create a new definition structure in scope "scope", with
* id "id" and kind "kind".
@@ -44,6 +45,7 @@ struct def *
define(id, scope, kind)
register struct idf *id;
register struct scope *scope;
long kind;
{
/* Declare an identifier in a scope, but first check if it
already has been defined.
@@ -52,7 +54,7 @@ define(id, scope, kind)
*/
register struct def *df;
if( df = lookup(id, scope, 0) ) {
if( df = lookup(id, scope, 0L) ) {
if (df->df_kind == D_INUSE) {
if( kind != D_INUSE ) {
error("\"%s\" already used in this block",