Subversion Repositories marca

/* This file is part of the assembler "spar" for marca.

   Copyright (C) 2007 Wolfgang Puffitsch

   This program is free software; you can redistribute it and/or modify it

   under the terms of the GNU Library General Public License as published

   by the Free Software Foundation; either version 2, or (at your option)

   any later version.

   This program 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

   Library General Public License for more details.

   You should have received a copy of the GNU Library General Public

   License along with this program; if not, write to the Free Software

   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA */

#include <stdint.h>

#include <stdlib.h>

#include <stdio.h>

#include <string.h>

#include "spar.h"

#include "symtab.h"

static struct sym_info *symtab[SYMTAB_SIZE];

uint32_t hash_string (const char *str)

{

  uint32_t hash;

  const char *ptr = str;

  size_t len = strlen(str);

  for (hash = 0; len; len--, ptr++)

    {

      hash = 31 * hash + *ptr;

    }

  return hash;

}

char *trim_string (char *str)

{

  while ((str[0] == ' ') || (str[0] == '\t'))

    {

      str++;

    }

  while ((str[strlen(str)-1] == ' ')

         || (str[strlen(str)-1] == '\t'))

    {

      str[strlen(str)-1] = '\0';

    }

  return str;

}

char *localize_string (char *str)

{

  if (str[0] == '.')

    {

      char *buf = xmalloc(strlen(str)+10);

      sprintf(buf, "%s@%08lx", str, file_count);

      return buf;

    }

  return str;

}

void init_symtab(void)

{

  int i;

  for (i = 0; i < SYMTAB_SIZE; i++)

    {

      symtab[i] = NULL;

    }

}

void push_sym(const char *symbol, uint8_t type, uint32_t addr)

{

  uint32_t pos;

  struct sym_info *sym;

  pos = hash_string(symbol) % SYMTAB_SIZE;

  sym = xmalloc(sizeof(struct sym_info));

  sym->symbol = symbol;

  sym->type = type;

  sym->addr = addr;

  sym->next = symtab[pos];

  symtab[pos] = sym;

}

struct sym_info *get_sym(const char *symbol)

{

  uint32_t pos;

  struct sym_info *sym;

  pos = hash_string(symbol) % SYMTAB_SIZE;

  sym = symtab[pos];

  while ((sym != NULL) && (strcmp(sym->symbol, symbol) != 0))

    {

      sym = sym->next;

    }

  return sym;

}

void reloc_syms(uint8_t type, uint32_t offset)

{

  uint32_t pos;

  struct sym_info *sym;

  for (pos = 0; pos < SYMTAB_SIZE; pos++)

    {

      for (sym = symtab[pos]; sym != NULL; sym = sym->next)

        {

          if (sym->type == type)

            {

              sym->addr += offset;

            }

        }

    }

}