Subversion Repositories raptor64

// ============================================================================
// (C) 2012 Robert Finch
// All Rights Reserved.
// robfinch<remove>@opencores.org
//
// C64 - Raptor64 'C' derived language compiler
//  - 64 bit CPU
//
// This source file is free software: you can redistribute it and/or modify 
// it under the terms of the GNU Lesser General Public License as published 
// by the Free Software Foundation, either version 3 of the License, or     
// (at your option) any later version.                                      
//                                                                          
// This source file is distributed in the hope that it will be useful,      
// but WITHOUT ANY WARRANTY; without even the implied warranty of           
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            
// GNU General Public License for more details.                             
//                                                                          
// You should have received a copy of the GNU General Public License        
// along with this program.  If not, see <http://www.gnu.org/licenses/>.    
//                                                                          
// ============================================================================
//
#include <stdio.h>
#include <string.h>
#include "c.h"
#include "expr.h"
#include "Statement.h"
#include "gen.h"
#include "cglbdec.h"
 
static unsigned __int8 hashadd(char *nm)
{
	unsigned __int8 hsh;
 
	for(hsh=0;*nm;nm++)
		hsh += *nm;
	return hsh;
}
 
SYM *search(char *na,TABLE *tbl)
{
	SYM *thead;
	if (tbl==&gsyms[0])
		thead = gsyms[hashadd(na)].head;
	else
		thead = tbl->head;
	while( thead != NULL) {
		if (thead->name != NULL)
			if(strcmp(thead->name,na) == 0)
				return thead;
        thead = thead->next;
    }
    return NULL;
}
 
SYM *gsearch(char *na)
{
	SYM *sp;
 
	if((sp = search(na,&lsyms)) == NULL)
        sp = search(na,&gsyms[0]);
    return sp;
}
 
void insert(SYM* sp, TABLE *table)
{
	if (table==&gsyms[0])
		table = &gsyms[hashadd(sp->name)];
	if( search(sp->name,table) == NULL) {
        if( table->head == NULL)
            table->head = table->tail = sp;
        else {
            table->tail->next = sp;
            table->tail = sp;
        }
        sp->next = NULL;
    }
    else
        error(ERR_DUPSYM);
}