OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [bootloaders/] [orpmon/] [cmds/] [memory.c] - Diff between revs 246 and 406

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 246 Rev 406
Line 4... Line 4...
#include "spincursor.h"
#include "spincursor.h"
 
 
void show_mem (int start, int stop)
void show_mem (int start, int stop)
{
{
  unsigned long i = start;
  unsigned long i = start;
  if ((i & 0xf) != 0x0) printf ("\n%08lx: ", i);
        if ((i & 0xf) != 0x0)
 
                printf("\n%08lx: ", i);
  for(; i <= stop; i += 4) {
  for(; i <= stop; i += 4) {
    if ((i & 0xf) == 0x0) printf ("\n%08lx: ", i);
                if ((i & 0xf) == 0x0)
 
                        printf("\n%08lx: ", i);
    /* Read one word */
    /* Read one word */
    printf ("%08lx ", REG32(i));
    printf ("%08lx ", REG32(i));
  }
  }
  printf ("\n");
  printf ("\n");
}
}
 
 
void testram (unsigned long start_addr, unsigned long stop_addr, unsigned long testno)
void testram(unsigned long start_addr, unsigned long stop_addr,
 
             unsigned long testno)
{
{
  unsigned long addr;
  unsigned long addr;
  unsigned long err_addr = 0;
  unsigned long err_addr = 0;
  unsigned long err_no = 0;
  unsigned long err_no = 0;
 
 
Line 31... Line 34...
    for (addr = start_addr; addr <= stop_addr; addr += 4)
    for (addr = start_addr; addr <= stop_addr; addr += 4)
      if (REG32(addr) != addr) {
      if (REG32(addr) != addr) {
        err_no++;
        err_no++;
        err_addr = addr;
        err_addr = addr;
      }
      }
    if (err_no) printf ("%04lx times failed. Last at location %08lx", err_no, err_addr);
                if (err_no)
    else printf ("Passed");
                        printf("%04lx times failed. Last at location %08lx",
 
                               err_no, err_addr);
 
                else
 
                        printf("Passed");
    err_no = 0;
    err_no = 0;
  }
  }
 
 
  /* Test 2: Write locations with their inverse address */
  /* Test 2: Write locations with their inverse address */
  if ((testno == 2) || (testno == 0)) {
  if ((testno == 2) || (testno == 0)) {
Line 48... Line 54...
    for (addr = start_addr; addr <= stop_addr; addr += 4)
    for (addr = start_addr; addr <= stop_addr; addr += 4)
      if (REG32(addr) != ~addr) {
      if (REG32(addr) != ~addr) {
        err_no++;
        err_no++;
        err_addr = addr;
        err_addr = addr;
      }
      }
    if (err_no) printf ("%04lx times failed. Last at location %08lx", err_no, err_addr);
                if (err_no)
    else printf ("Passed");
                        printf("%04lx times failed. Last at location %08lx",
 
                               err_no, err_addr);
 
                else
 
                        printf("Passed");
    err_no = 0;
    err_no = 0;
  }
  }
 
 
  /* Test 3: Write locations with walking ones */
  /* Test 3: Write locations with walking ones */
  if ((testno == 3) || (testno == 0)) {
  if ((testno == 3) || (testno == 0)) {
Line 65... Line 74...
    for (addr = start_addr; addr <= stop_addr; addr += 4)
    for (addr = start_addr; addr <= stop_addr; addr += 4)
      if (REG32(addr) != (1 << (addr >> 2))) {
      if (REG32(addr) != (1 << (addr >> 2))) {
        err_no++;
        err_no++;
        err_addr = addr;
        err_addr = addr;
      }
      }
    if (err_no) printf ("%04lx times failed. Last at location %08lx", err_no, err_addr);
                if (err_no)
    else printf ("Passed");
                        printf("%04lx times failed. Last at location %08lx",
 
                               err_no, err_addr);
 
                else
 
                        printf("Passed");
    err_no = 0;
    err_no = 0;
  }
  }
 
 
  /* Test 4: Write locations with walking zeros */
  /* Test 4: Write locations with walking zeros */
  if ((testno == 4) || (testno == 0)) {
  if ((testno == 4) || (testno == 0)) {
Line 82... Line 94...
    for (addr = start_addr; addr <= stop_addr; addr += 4)
    for (addr = start_addr; addr <= stop_addr; addr += 4)
      if (REG32(addr) != ~(1 << (addr >> 2))) {
      if (REG32(addr) != ~(1 << (addr >> 2))) {
        err_no++;
        err_no++;
        err_addr = addr;
        err_addr = addr;
      }
      }
    if (err_no) printf ("%04lx times failed. Last at location %08lx", err_no, err_addr);
                if (err_no)
    else printf ("Passed");
                        printf("%04lx times failed. Last at location %08lx",
 
                               err_no, err_addr);
 
                else
 
                        printf("Passed");
    err_no = 0;
    err_no = 0;
  }
  }
}
}
 
 
 
 
// Do proper walking 0 as byte writes
// Do proper walking 0 as byte writes
void better_ram_test (unsigned long start_addr, unsigned long stop_addr, unsigned test_no )
void better_ram_test(unsigned long start_addr, unsigned long stop_addr,
 
                     unsigned test_no)
{
{
  unsigned long addr;
  unsigned long addr;
  unsigned long err_addr = 0;
  unsigned long err_addr = 0;
  unsigned long err_no = 0;
  unsigned long err_no = 0;
  int b;
  int b;
Line 104... Line 119...
    REG8(addr) = 0xff;
    REG8(addr) = 0xff;
  //disable_spincursor();
  //disable_spincursor();
  printf ("\rVerifying memory contents all set to 1'b1:  ");
  printf ("\rVerifying memory contents all set to 1'b1:  ");
  //enable_spincursor();
  //enable_spincursor();
  /* Verify */
  /* Verify */
  for (addr = start_addr; addr <= stop_addr; addr += 1)
        for (addr = start_addr; addr <= stop_addr; addr += 1) {
    {
 
      if (REG8(addr) != 0xff) {
      if (REG8(addr) != 0xff) {
        err_no++;
        err_no++;
        err_addr = addr;
        err_addr = addr;
        //disable_spincursor();
        //disable_spincursor();
        printf ("\n%04lx times failed. Last at location %08lx  ",
        printf ("\n%04lx times failed. Last at location %08lx  ",
Line 124... Line 138...
    printf ("Finished");
    printf ("Finished");
 
 
  err_no = 0;
  err_no = 0;
 
 
  printf ("\nWalking zero through memory, verify just itself: ");
  printf ("\nWalking zero through memory, verify just itself: ");
  for (addr = start_addr; addr <= stop_addr; addr += 1)
        for (addr = start_addr; addr <= stop_addr; addr += 1) {
    {
                for (b = 0; b < 8; b++) {
      for(b=0;b<8;b++)
 
        {
 
          // Write, verify
          // Write, verify
          REG8(addr) = ~(1<<b);
          REG8(addr) = ~(1<<b);
 
 
          if (REG8(addr) != ~(1<<b))
                        if (REG8(addr) != ~(1 << b)) {
            {
 
              err_no++;
              err_no++;
              err_addr = addr;
              err_addr = addr;
              printf ("\n%04lx times failed. Last at location %08lx", err_no, err_addr);
                                printf
 
                                    ("\n%04lx times failed. Last at location %08lx",
 
                                     err_no, err_addr);
            }
            }
          REG8(addr) = 0xff;
          REG8(addr) = 0xff;
        }
        }
    }
    }
  if (err_no == 0)
  if (err_no == 0)
    printf ("Passed");
    printf ("Passed");
  else
  else
    printf ("Finished");
    printf ("Finished");
  err_no = 0;
  err_no = 0;
 
 
  printf ("\nWriting across rows, row size configured as %d bytes",SDRAM_ROW_SIZE);
        printf("\nWriting across rows, row size configured as %d bytes",
 
               SDRAM_ROW_SIZE);
  unsigned long start_row = start_addr / SDRAM_ROW_SIZE;
  unsigned long start_row = start_addr / SDRAM_ROW_SIZE;
  unsigned long end_row = stop_addr / SDRAM_ROW_SIZE;
  unsigned long end_row = stop_addr / SDRAM_ROW_SIZE;
  for (addr = start_row; addr <= end_row; addr += 1)
        for (addr = start_row; addr <= end_row; addr += 1) {
    {
 
      REG32(addr*SDRAM_ROW_SIZE) = addr;
      REG32(addr*SDRAM_ROW_SIZE) = addr;
    }
    }
 
 
  printf ("\rVerifying row write test: ");
  printf ("\rVerifying row write test: ");
 
 
  for (addr = start_row; addr <= end_row; addr += 1)
        for (addr = start_row; addr <= end_row; addr += 1) {
    {
                if (REG32(addr * SDRAM_ROW_SIZE) != addr) {
      if (REG32(addr*SDRAM_ROW_SIZE) != addr)
 
        {
 
          err_no++;
          err_no++;
          err_addr = addr*SDRAM_ROW_SIZE;
          err_addr = addr*SDRAM_ROW_SIZE;
          printf ("\n%04lx times failed. Last at location %08lx (row %d)", err_no, err_addr, addr);
                        printf
 
                            ("\n%04lx times failed. Last at location %08lx (row %d)",
 
                             err_no, err_addr, addr);
        }
        }
    }
    }
 
 
  if (err_no == 0)
  if (err_no == 0)
    printf ("Passed");
    printf ("Passed");
Line 174... Line 187...
    printf ("Finished");
    printf ("Finished");
  err_no = 0;
  err_no = 0;
 
 
}
}
 
 
 
 
int dm_cmd (int argc, char *argv[])
int dm_cmd (int argc, char *argv[])
{
{
  unsigned long a1,a2;
  unsigned long a1,a2;
  a1 = strtoul(argv[0], 0, 0);
  a1 = strtoul(argv[0], 0, 0);
  switch (argc) {
  switch (argc) {
    case 1: show_mem (a1, a1); return 0;
        case 1:
 
                show_mem(a1, a1);
 
                return 0;
    case 2:
    case 2:
      a2 = strtoul(argv[1], 0, 0);
      a2 = strtoul(argv[1], 0, 0);
      show_mem (a1, a2); return 0;
                show_mem(a1, a2);
    default: return -1;
                return 0;
 
        default:
 
                return -1;
  }
  }
}
}
 
 
int pm_cmd (int argc, char *argv[])
int pm_cmd (int argc, char *argv[])
{
{
Line 202... Line 218...
    } else {
    } else {
      stop_addr = strtoul (argv[1], 0, 0);
      stop_addr = strtoul (argv[1], 0, 0);
      value = strtoul (argv[2], 0, 0);
      value = strtoul (argv[2], 0, 0);
    }
    }
 
 
    for (; addr <= stop_addr; addr += 4) REG32(addr) = value;
                for (; addr <= stop_addr; addr += 4)
 
                        REG32(addr) = value;
 
 
    /*show_mem(strtoul (argv[0], 0, 0), stop_addr);*/
    /*show_mem(strtoul (argv[0], 0, 0), stop_addr);*/
  } else return -1;
        } else
 
                return -1;
  return 0;
  return 0;
}
}
 
 
int ram_test_cmd (int argc, char *argv[])
int ram_test_cmd (int argc, char *argv[])
{
{
  switch (argc) {
  switch (argc) {
    case 2: testram(strtoul (argv[0], 0, 0), strtoul (argv[1], 0, 0), 0); return 0;
        case 2:
    case 3: testram(strtoul (argv[0], 0, 0), strtoul (argv[1], 0, 0), strtoul (argv[2], 0, 0)); return 0;
                testram(strtoul(argv[0], 0, 0), strtoul(argv[1], 0, 0), 0);
    default: return -1;
                return 0;
 
        case 3:
 
                testram(strtoul(argv[0], 0, 0), strtoul(argv[1], 0, 0),
 
                        strtoul(argv[2], 0, 0));
 
                return 0;
 
        default:
 
                return -1;
  }
  }
}
}
 
 
int better_ram_test_cmd (int argc, char *argv[])
int better_ram_test_cmd (int argc, char *argv[])
{
{
Line 227... Line 251...
 
 
  better_ram_test(strtoul (argv[0], 0, 0), strtoul (argv[1], 0, 0), 0);
  better_ram_test(strtoul (argv[0], 0, 0), strtoul (argv[1], 0, 0), 0);
  return 0;
  return 0;
}
}
 
 
unsigned long crc32 (unsigned long crc, const unsigned char *buf, unsigned long len)
unsigned long crc32(unsigned long crc, const unsigned char *buf,
 
                    unsigned long len)
{
{
  /* Create bitwise CRC table first */
  /* Create bitwise CRC table first */
  unsigned long crc_table[256];
  unsigned long crc_table[256];
  int i, k;
  int i, k;
  for (i = 0; i < 256; i++) {
  for (i = 0; i < 256; i++) {
    unsigned long c = (unsigned long)i;
    unsigned long c = (unsigned long)i;
    for (k = 0; k < 8; k++) c = c & 1 ? 0xedb88320 ^ (c >> 1) : c >> 1;
                for (k = 0; k < 8; k++)
 
                        c = c & 1 ? 0xedb88320 ^ (c >> 1) : c >> 1;
    crc_table[i] = c;
    crc_table[i] = c;
  }
  }
 
 
  /* Calculate crc on buf */
  /* Calculate crc on buf */
  crc = crc ^ 0xffffffffL;
  crc = crc ^ 0xffffffffL;
  while (len--) crc = crc_table[((int)crc ^ (*buf++)) & 0xff] ^ (crc >> 8);
        while (len--)
 
                crc = crc_table[((int)crc ^ (*buf++)) & 0xff] ^ (crc >> 8);
  return crc ^ 0xffffffffL;
  return crc ^ 0xffffffffL;
}
}
 
 
int crc_cmd (int argc, char *argv[])
int crc_cmd (int argc, char *argv[])
{
{
  unsigned long addr = global.src_addr;
  unsigned long addr = global.src_addr;
  unsigned long len = global.length;
  unsigned long len = global.length;
  unsigned long init_crc = 0;
  unsigned long init_crc = 0;
 
 
  switch (argc) {
  switch (argc) {
    case 3: init_crc = strtoul (argv[2], 0, 0);
        case 3:
    case 2: len = strtoul (argv[1], 0, 0);
                init_crc = strtoul(argv[2], 0, 0);
    case 1: addr = strtoul (argv[0], 0, 0);
        case 2:
 
                len = strtoul(argv[1], 0, 0);
 
        case 1:
 
                addr = strtoul(argv[0], 0, 0);
    case 0:
    case 0:
      printf ("CRC [%08lx-%08lx] = %08lx\n", addr, addr + len - 1, crc32 (init_crc, (unsigned char *)addr, len));
                printf("CRC [%08lx-%08lx] = %08lx\n", addr, addr + len - 1,
 
                       crc32(init_crc, (unsigned char *)addr, len));
      return 0;
      return 0;
  }
  }
  return -1;
  return -1;
}
}
 
 
void module_memory_init (void)
void module_memory_init (void)
{
{
  register_command ("dm", "<start addr> [<end addr>]", "display 32-bit memory location(s)", dm_cmd);
        register_command("dm", "<start addr> [<end addr>]",
  register_command ("pm", "<addr> [<stop_addr>] <value>", "patch 32-bit memory location(s)", pm_cmd);
                         "display 32-bit memory location(s)", dm_cmd);
  register_command ("ram_test", "<start_addr> <stop_addr> [<test_no>]", "run a simple RAM test", ram_test_cmd);
        register_command("pm", "<addr> [<stop_addr>] <value>",
  register_command ("better_ram_test", "<start_addr> <stop_addr>", "run a better RAM test", better_ram_test_cmd);
                         "patch 32-bit memory location(s)", pm_cmd);
 
        register_command("ram_test", "<start_addr> <stop_addr> [<test_no>]",
  register_command ("crc", "[<src_addr> [<length> [<init_crc>]]]", "Calculates a 32-bit CRC on specified memory region", crc_cmd);
                         "run a simple RAM test", ram_test_cmd);
 
        register_command("better_ram_test", "<start_addr> <stop_addr>",
 
                         "run a better RAM test", better_ram_test_cmd);
 
 
 
        register_command("crc", "[<src_addr> [<length> [<init_crc>]]]",
 
                         "Calculates a 32-bit CRC on specified memory region",
 
                         crc_cmd);
}
}
 
 
 No newline at end of file
 No newline at end of file

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.