nuttx-apps/system/ramtest/ramtest.c
2020-11-13 05:51:23 -08:00

595 lines
17 KiB
C

/****************************************************************************
* apps/system/ramtest/ramtest.c
*
* Copyright (C) 2013 Gregory Nutt. All rights reserved.
* Author: Gregory Nutt <gnutt@nuttx.org>
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
*
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in
* the documentation and/or other materials provided with the
* distribution.
* 3. Neither the name NuttX nor the names of its contributors may be
* used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
* COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
* BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
* OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
* AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
* ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*
****************************************************************************/
/****************************************************************************
* Included Files
****************************************************************************/
#include <nuttx/config.h>
#include <sys/types.h>
#include <stdint.h>
#include <stdbool.h>
#include <stdio.h>
#include <stdlib.h>
#include <inttypes.h>
#include <unistd.h>
#include <sched.h>
#include <syslog.h>
#include <errno.h>
#include <nuttx/usb/usbdev_trace.h>
#ifdef CONFIG_SYSTEM_RAMTEST
/****************************************************************************
* Pre-processor Definitions
****************************************************************************/
#define RAMTEST_PREFIX "RAMTest: "
/****************************************************************************
* Private Types
****************************************************************************/
struct ramtest_s
{
uint8_t width;
uintptr_t start;
size_t size;
size_t nxfrs;
uint32_t mask;
};
/****************************************************************************
* Private Data
****************************************************************************/
/****************************************************************************
* Private Functions
****************************************************************************/
/****************************************************************************
* Name: show_usage
****************************************************************************/
static void show_usage(FAR const char *progname, int exitcode)
{
printf("\nUsage: %s [-w|h|b] <hex-address> <decimal-size>\n", progname);
printf("\nWhere:\n");
printf(" <hex-address> starting address of the test.\n");
printf(" <decimal-size> number of memory locations (in bytes).\n");
printf(" -w Sets the width of a memory location to 32-bits.\n");
printf(" -h Sets the width of a memory location to 16-bits (default).\n");
printf(" -b Sets the width of a memory location to 8-bits.\n");
exit(exitcode);
}
/****************************************************************************
* Name: parse_commandline
****************************************************************************/
static void parse_commandline(int argc, char **argv,
FAR struct ramtest_s *info)
{
FAR char *ptr;
int option;
while ((option = getopt(argc, argv, "whb")) != ERROR)
{
if (option == 'w')
{
info->width = 32;
info->mask = 0xffffffff;
}
else if (option == 'h')
{
info->width = 16;
info->mask = 0x0000ffff;
}
else if (option == 'b')
{
info->width = 8;
info->mask = 0x000000ff;
}
else
{
printf(RAMTEST_PREFIX "Unrecognized option: '%c'\n", option);
show_usage(argv[0], EXIT_FAILURE);
}
}
/* There should be two parameters remaining on the command line */
if (optind >= argc)
{
printf(RAMTEST_PREFIX "Missing required arguments\n");
show_usage(argv[0], EXIT_FAILURE);
}
info->start = (uintptr_t)strtoul(argv[optind], &ptr, 16);
if (*ptr != '\0')
{
printf(RAMTEST_PREFIX "Invalid <hex-address>: %s->%" PRIxPTR
" [%02x]\n",
argv[optind], info->start, *ptr);
show_usage(argv[0], EXIT_FAILURE);
}
optind++;
if (optind >= argc)
{
printf(RAMTEST_PREFIX "Missing <decimal-size>\n");
show_usage(argv[0], EXIT_FAILURE);
}
info->size = (size_t)strtoul(argv[optind], &ptr, 10);
if (*ptr != '\0')
{
printf(RAMTEST_PREFIX "Invalid <decimal-size>: %s->%zx [%02x]\n",
argv[optind], info->size, *ptr);
show_usage(argv[0], EXIT_FAILURE);
}
/* Convert the size (in bytes) to the corresponding number of transfers
* of the selected width.
*/
if (info->width == 8)
{
info->nxfrs = info->size;
}
else if (info->width == 32)
{
info->nxfrs = info->size >> 2;
}
else
{
info->width = 16;
info->nxfrs = info->size >> 1;
}
optind++;
if (optind != argc)
{
printf(RAMTEST_PREFIX "Too many arguments\n");
show_usage(argv[0], EXIT_FAILURE);
}
}
/****************************************************************************
* Name: write_memory
****************************************************************************/
static void write_memory(FAR struct ramtest_s *info, uint32_t value)
{
size_t i;
if (info->width == 32)
{
uint32_t *ptr = (uint32_t *)info->start;
for (i = 0; i < info->nxfrs; i++)
{
*ptr++ = value;
}
}
else if (info->width == 16)
{
uint16_t *ptr = (uint16_t *)info->start;
for (i = 0; i < info->nxfrs; i++)
{
*ptr++ = (uint16_t)value;
}
}
else /* if (info->width == 8) */
{
uint8_t *ptr = (uint8_t *)info->start;
for (i = 0; i < info->nxfrs; i++)
{
*ptr++ = (uint8_t)value;
}
}
}
/****************************************************************************
* Name: verify_memory
****************************************************************************/
static void verify_memory(FAR struct ramtest_s *info, uint32_t value)
{
size_t i;
if (info->width == 32)
{
uint32_t *ptr = (uint32_t *)info->start;
for (i = 0; i < info->nxfrs; i++)
{
if (*ptr != value)
{
printf(RAMTEST_PREFIX
"ERROR: Address %p Found: %08" PRIx32
" Expected %08" PRIx32 "\n",
ptr, *ptr, value);
}
ptr++;
}
}
else if (info->width == 16)
{
uint16_t value16 = (uint16_t)(value & 0x0000ffff);
uint16_t *ptr = (uint16_t *)info->start;
for (i = 0; i < info->nxfrs; i++)
{
if (*ptr != value16)
{
printf(RAMTEST_PREFIX
"ERROR: Address %p Found: %04" PRIx16
" Expected %04" PRIx16 "\n",
ptr, *ptr, value16);
}
ptr++;
}
}
else /* if (info->width == 8) */
{
uint8_t value8 = (uint8_t)(value & 0x000000ff);
uint8_t *ptr = (uint8_t *)info->start;
for (i = 0; i < info->nxfrs; i++)
{
if (*ptr != value8)
{
printf(RAMTEST_PREFIX
"ERROR: Address %p Found: %02" PRIx8
" Expected %02" PRIx8 "\n",
ptr, *ptr, value8);
}
ptr++;
}
}
}
/****************************************************************************
* Name: marching_ones
****************************************************************************/
static void marching_ones(FAR struct ramtest_s *info)
{
uint32_t pattern = 0x00000001;
printf(RAMTEST_PREFIX "Marching ones: %08x %d\n",
info->start, info->size);
while (pattern != 0)
{
write_memory(info, pattern);
verify_memory(info, pattern);
pattern <<= 1;
pattern &= info->mask;
}
}
/****************************************************************************
* Name: marching_zeros
****************************************************************************/
static void marching_zeros(FAR struct ramtest_s *info)
{
uint32_t pattern = 0xfffffffe;
printf(RAMTEST_PREFIX "Marching zeroes: %08x %d\n",
info->start, info->size);
while (pattern != 0xffffffff)
{
write_memory(info, pattern);
verify_memory(info, pattern);
pattern <<= 1;
pattern |= 1;
pattern |= ~info->mask;
}
}
/****************************************************************************
* Name: write_memory2
****************************************************************************/
static void write_memory2(FAR struct ramtest_s *info, uint32_t value_1,
uint32_t value_2)
{
size_t even_nxfrs = info->nxfrs & ~1;
size_t i;
if (info->width == 32)
{
uint32_t *ptr = (uint32_t *)info->start;
for (i = 0; i < even_nxfrs; i += 2)
{
*ptr++ = value_1;
*ptr++ = value_2;
}
}
else if (info->width == 16)
{
uint16_t *ptr = (uint16_t *)info->start;
for (i = 0; i < even_nxfrs; i += 2)
{
*ptr++ = (uint16_t)value_1;
*ptr++ = (uint16_t)value_2;
}
}
else /* if (info->width == 8) */
{
uint8_t *ptr = (uint8_t *)info->start;
for (i = 0; i < even_nxfrs; i += 2)
{
*ptr++ = (uint8_t)value_1;
*ptr++ = (uint8_t)value_2;
}
}
}
/****************************************************************************
* Name: verify_memory2
****************************************************************************/
static void verify_memory2(FAR struct ramtest_s *info, uint32_t value_1,
uint32_t value_2)
{
size_t even_nxfrs = info->nxfrs & ~1;
size_t i;
if (info->width == 32)
{
uint32_t *ptr = (uint32_t *)info->start;
for (i = 0; i < even_nxfrs; i += 2)
{
if (ptr[0] != value_1 || ptr[1] != value_2)
{
printf(RAMTEST_PREFIX
"ERROR: Address %p Found: %08" PRIx32
" and %08" PRIx32 "\n",
ptr, ptr[0], ptr[1]);
printf(RAMTEST_PREFIX
" Expected: %08" PRIx32
" and %08" PRIx32 "\n",
value_1, value_2);
}
ptr += 2;
}
}
else if (info->width == 16)
{
uint16_t value16_1 = (uint16_t)(value_1 & 0x0000ffff);
uint16_t value16_2 = (uint16_t)(value_2 & 0x0000ffff);
uint16_t *ptr = (uint16_t *)info->start;
for (i = 0; i < even_nxfrs; i += 2)
{
if (ptr[0] != value16_1 || ptr[1] != value16_2)
{
printf(RAMTEST_PREFIX
"ERROR: Address %p Found: %04" PRIx16
" and %04" PRIx16 "\n",
ptr, ptr[0], ptr[1]);
printf(RAMTEST_PREFIX
" Expected: %04" PRIx16
" and %04" PRIx16 "\n",
value16_1, value16_2);
}
ptr += 2;
}
}
else /* if (info->width == 8) */
{
uint8_t value8_1 = (uint8_t)(value_1 & 0x000000ff);
uint8_t value8_2 = (uint8_t)(value_2 & 0x000000ff);
uint8_t *ptr = (uint8_t *)info->start;
for (i = 0; i < even_nxfrs; i += 2)
{
if (ptr[0] != value8_1 || ptr[1] != value8_2)
{
printf(RAMTEST_PREFIX
"ERROR: Address %p Found: %02" PRIx8
" and %02" PRIx8 "\n",
ptr, ptr[0], ptr[1]);
printf(RAMTEST_PREFIX
" Expected: %02" PRIx8
" and %02" PRIx8 "\n",
value8_1, value8_2);
}
ptr += 2;
}
}
}
/****************************************************************************
* Name: pattern_test
****************************************************************************/
static void pattern_test(FAR struct ramtest_s *info, uint32_t pattern1,
uint32_t pattern2)
{
printf(RAMTEST_PREFIX "Pattern test: %08x %d %08" PRIx32
" %08" PRIx32 "\n",
info->start, info->size, pattern1, pattern2);
write_memory2(info, pattern1, pattern2);
verify_memory2(info, pattern1, pattern2);
}
/****************************************************************************
* Name: write_addrinaddr
****************************************************************************/
static void write_addrinaddr(FAR struct ramtest_s *info)
{
size_t i;
if (info->width == 32)
{
uint32_t *ptr = (uint32_t *)info->start;
for (i = 0; i < info->nxfrs; i++)
{
uint32_t value32 = (uint32_t)((uintptr_t)ptr);
*ptr++ = value32;
}
}
else if (info->width == 16)
{
uint16_t *ptr = (uint16_t *)info->start;
for (i = 0; i < info->nxfrs; i++)
{
uint16_t value16 = (uint16_t)((uintptr_t)ptr & 0x0000ffff);
*ptr++ = value16;
}
}
else /* if (info->width == 8) */
{
uint8_t *ptr = (uint8_t *)info->start;
for (i = 0; i < info->nxfrs; i++)
{
uint8_t value8 = (uint8_t)((uintptr_t)ptr & 0x000000ff);
*ptr++ = value8;
}
}
}
/****************************************************************************
* Name: verify_addrinaddr
****************************************************************************/
static void verify_addrinaddr(FAR struct ramtest_s *info)
{
size_t i;
if (info->width == 32)
{
uint32_t *ptr = (uint32_t *)info->start;
for (i = 0; i < info->nxfrs; i++)
{
uint32_t value32 = (uint32_t)((uintptr_t)ptr);
if (*ptr != value32)
{
printf(RAMTEST_PREFIX
"ERROR: Address %p Found: %08" PRIx32
" Expected %08" PRIx32 "\n",
ptr, *ptr, value32);
}
ptr++;
}
}
else if (info->width == 16)
{
uint16_t *ptr = (uint16_t *)info->start;
for (i = 0; i < info->nxfrs; i++)
{
uint16_t value16 = (uint16_t)((uintptr_t)ptr & 0x0000ffff);
if (*ptr != value16)
{
printf(RAMTEST_PREFIX
"ERROR: Address %p Found: %04" PRIx16
" Expected %04" PRIx16 "\n",
ptr, *ptr, value16);
}
ptr++;
}
}
else /* if (info->width == 8) */
{
uint8_t *ptr = (uint8_t *)info->start;
for (i = 0; i < info->nxfrs; i++)
{
uint16_t value8 = (uint8_t)((uintptr_t)ptr & 0x000000ff);
if (*ptr != value8)
{
printf(RAMTEST_PREFIX
"ERROR: Address %p Found: %02" PRIx8
" Expected %02" PRIx8 "\n",
ptr, *ptr, value8);
}
ptr++;
}
}
}
/****************************************************************************
* Name: addr_in_addr
****************************************************************************/
static void addr_in_addr(FAR struct ramtest_s *info)
{
printf(RAMTEST_PREFIX "Address-in-address test: %08x %d\n",
info->start, info->size);
write_addrinaddr(info);
verify_addrinaddr(info);
}
/****************************************************************************
* Public Functions
****************************************************************************/
int main(int argc, FAR char *argv[])
{
struct ramtest_s info;
/* Setup defaults and parse the command line */
info.width = 16;
info.mask = 0x0000ffff;
parse_commandline(argc, argv, &info);
/* Perform the memory tests */
marching_ones(&info);
marching_zeros(&info);
pattern_test(&info, 0x55555555, 0xaaaaaaaa);
pattern_test(&info, 0x66666666, 0x99999999);
pattern_test(&info, 0x33333333, 0xcccccccc);
addr_in_addr(&info);
return 0;
}
#endif /* CONFIG_SYSTEM_RAMTEST */