Subversion Repositories openrisc

/* Support */

#include "spr-defs.h"

#include "support.h"

#include "common.h"

#include "int.h"

#include <ctype.h>

volatile unsigned long timestamp = 0;

void int_main(void);

/* return value by making a syscall */

void exit (int i)

{

  asm("l.add r3,r0,%0": : "r" (i));

  asm("l.nop %0": :"K" (NOP_EXIT));

  while (1);

}

/* activate printf support in simulator */

void __printf(const char *fmt, ...)

{

#if 0

  va_list args;

  va_start(args, fmt);

  __asm__ __volatile__ ("  l.addi\tr3,%1,0\n \

                           l.addi\tr4,%2,0\n \

                           l.nop %0": :"K" (NOP_PRINTF), "r" (fmt), "r"  (args) : "r3", "r4");

#endif

}

/* print long */

void report(unsigned long value)

{

  asm("l.addi\tr3,%0,0": :"r" (value));

  asm("l.nop %0": :"K" (NOP_REPORT));

}

/* just to satisfy linker */

void __main(void)

{

}

/* For writing into SPR. */

void mtspr(unsigned long spr, unsigned long value)

{

  asm("l.mtspr\t\t%0,%1,0": : "r" (spr), "r" (value));

}

/* For reading SPR. */

unsigned long mfspr(unsigned long spr)

{

  unsigned long value;

  asm("l.mfspr\t\t%0,%1,0" : "=r" (value) : "r" (spr));

  return value;

}

/* Parses hex or decimal number */

unsigned long strtoul (const char *str, char **endptr, int base)

{

  {

    unsigned long number = 0;

    char *pos = (char *) str;

    char *fail_char = (char *) str;

  while (isspace(*pos)) pos++;  /* skip leading whitespace */

  if ((base == 16) && (*pos == '0')) { /* handle option prefix */

    ++pos;

    fail_char = pos;

    if ((*pos == 'x') || (*pos == 'X')) ++pos;

  }

  if (base == 0) {               /* dynamic base */

    base = 10;          /* default is 10 */

    if (*pos == '0') {

      ++pos;

      base -= 2;                /* now base is 8 (or 16) */

      fail_char = pos;

      if ((*pos == 'x') || (*pos == 'X')) {

        base += 8;      /* base is 16 */

        ++pos;

      }

    }

  }

  /* check for illegal base */

  if ( !((base < 2) || (base > 36)) )

    while (1) {

      int digit = 40;

      if ((*pos >= '0') && (*pos <= '9')) {

          digit = (*pos - '0');

      } else if (*pos >= 'a') {

          digit = (*pos - 'a' + 10);

      } else if (*pos >= 'A') {

          digit = (*pos - 'A' + 10);

      } else break;

      if (digit >= base) break;

      fail_char = ++pos;

      number = number * base + digit;

    }

  if (endptr) *endptr = fail_char; {

    return number;

  }

  }

}

unsigned long get_timer (unsigned long base)

{

  /*

__printf("%s - %s: %d\n", __FILE__, __FUNCTION__, __LINE__);

__printf("   timestamp = %.8lx base = %.8lx\n", timestamp, base);

  */

  return (timestamp - base);

}

void set_timer (unsigned long t)

{

  timestamp = t;

}