DEMOS/NewSym.c at master · urras/DEMOS · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
/*
 * LSI-11 Linker
 * ïÂÎÏ×ÌÅÎÉÅ ÔÁÂÌÉÃÙ ÓÉÍ×ÏÌÏ×
 */
#include <SysStrings>
#include "LinkerDefs"

#define HASHSIZE (MAXSYMS/2+3)

static Symbol *htab[ HASHSIZE ];
static Symbol symtab[ MAXSYMS ];
static int Nsyms;

void ClrSym()
{
    int i;
    for( i = 0; i < HASHSIZE; i++ ) htab[ i ] = NULL;
    Nsyms = 0;
}

Symbol *NewSym( sp )
    Symbol *sp;
{
    Symbol *tp;

    if( !(sp->Stype & EXTERN) ) return NULL;

    /*
     * éÝÅÍ × ÔÁÂÌÉÃÅ É, ÅÓÌÉ ÎÁÄÏ, ÓÏÚÄÁÅÍ ÚÁÐÉÓØ Ï ÓÉÍ×ÏÌÅ
     */
    {
        int hval;
        int i;
        char *askname;

        askname = sp->Sname;
        hval = 0;
        for( i = 0; i < SNLENG; i++ ) hval = (hval<<1) + askname[ i ];
        hval = (hval & 0x7FFF) % HASHSIZE;
        for(; (tp = htab[ hval ]) != NULL; hval = (hval+1) % HASHSIZE){
            if( _cmps( tp->Sname, askname, SNLENG ) == 0 ) break;
        }

        if( tp == NULL ){     /* îÁÄÏ ÓÏÚÄÁ×ÁÔØ ×ÈÏÄ × ÔÁÂÌÉÃÅ */
            if( Nsyms == MAXSYMS ) Error(9);
            tp = & symtab[ Nsyms++ ];
            htab[ hval ] = tp;
            MVS( askname, SNLENG, tp->Sname );
            tp->Stype = EXTERN+UNDEF;
            tp->Sval = 0;
        }
    }

    /*
     * ðÒÏÐÉÓÙ×ÁÅÍ ÚÎÁÞÅÎÉÅ
     */
    {
        char diagbuff[ SNLENG+1 ];

        if( LOCATION( sp->Stype ) != UNDEF ){
            if( LOCATION( tp->Stype ) == UNDEF ){
                tp->Stype = sp->Stype;
                tp->Sval = sp->Sval;
            }else{
                MVS( sp->Sname, SNLENG, diagbuff );
                diagbuff[ SNLENG ] = '\0';
                Diagnose( 3, diagbuff );
            }
        }
    }

    return tp;
}