# 2.11BSD#431 - /usr/src/ucb/PORT/pascal/pdx/object/maketypes.c

##### Functions

    make_keyword      X
    maketypes         X

       1: /*
       2:  * Copyright (c) 1980 Regents of the University of California.
       3:  * All rights reserved.  The Berkeley software License Agreement
       4:  * specifies the terms and conditions for redistribution.
       5:  */
       6:
       7: #ifndef lint
       8: static char sccsid[] = "@(#)maketypes.c	5.1 (Berkeley) 6/6/85";
       9: #endif not lint
      10:
      11: /*
      12:  * make symbols
      13:  */
      14:
      15: #include "defs.h"
      16: #include "sym.h"
      17: #include "symtab.h"
      18: #include "sym/btypes.h"
      19: #include "sym/classes.h"
      20: #include "sym/sym.rep"
      21:
      22: /*
      23:  * point the basic types in the right direction
      24:  */
      25:
      26: maketypes()
      27: {
      28:     t_int = st_lookup(symtab, "integer")->type;
      29:     t_real = st_lookup(symtab, "real")->type;
      30:     t_char = st_lookup(symtab, "char")->type;
      31:     t_boolean = st_lookup(symtab, "boolean")->type;
      32:     if (t_int==NIL || t_real==NIL || t_char==NIL || t_boolean==NIL) {
      33:         panic("basic types are missing from namelist");
      34:     }
      35: }
      36:
      37: /*
      38:  * enter a keyword in the given table
      39:  */
      40:
      41: make_keyword(table, name, tnum)
      42: SYMTAB *table;
      43: char *name;
      44: int tnum;
      45: {
      46:     register SYM *s;
      47:
      48:     s = st_insert(table, name);
      49:     s->class = BADUSE;
      50:     s->blkno = 0;
      51:     s->symvalue.token.toknum = tnum;
      52: }

#### Defined functions

make_keyword defined in line 41; never used
maketypes defined in line 26; used 1 times

- in /usr/src/ucb/PORT/pascal/pdx/object/readobj.c line 166

#### Defined variables

sccsid defined in line 8; never used

Last modified: 1985-06-06 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 724 |