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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [strcpy-1.c] - Rev 816

Go to most recent revision | Compare with Previous | Blame | View Log

/* Copyright (C) 2002  Free Software Foundation.
 
   Test strcpy with various combinations of pointer alignments and lengths to
   make sure any optimizations in the library are correct.  */
 
#include <string.h>
 
#ifndef MAX_OFFSET
#define MAX_OFFSET (sizeof (long long))
#endif
 
#ifndef MAX_COPY
#define MAX_COPY (10 * sizeof (long long))
#endif
 
#ifndef MAX_EXTRA
#define MAX_EXTRA (sizeof (long long))
#endif
 
#define MAX_LENGTH (MAX_OFFSET + MAX_COPY + 1 + MAX_EXTRA)
 
/* Use a sequence length that is not divisible by two, to make it more
   likely to detect when words are mixed up.  */
#define SEQUENCE_LENGTH 31
 
static union {
  char buf[MAX_LENGTH];
  long long align_int;
  long double align_fp;
} u1, u2;
 
main ()
{
  int off1, off2, len, i;
  char *p, *q, c;
 
  for (off1 = 0; off1 < MAX_OFFSET; off1++)
    for (off2 = 0; off2 < MAX_OFFSET; off2++)
      for (len = 1; len < MAX_COPY; len++)
	{
	  for (i = 0, c = 'A'; i < MAX_LENGTH; i++, c++)
	    {
	      u1.buf[i] = 'a';
	      if (c >= 'A' + SEQUENCE_LENGTH)
		c = 'A';
	      u2.buf[i] = c;
	    }
	  u2.buf[off2 + len] = '\0';
 
	  p = strcpy (u1.buf + off1, u2.buf + off2);
	  if (p != u1.buf + off1)
	    abort ();
 
	  q = u1.buf;
	  for (i = 0; i < off1; i++, q++)
	    if (*q != 'a')
	      abort ();
 
	  for (i = 0, c = 'A' + off2; i < len; i++, q++, c++)
	    {
	      if (c >= 'A' + SEQUENCE_LENGTH)
		c = 'A';
	      if (*q != c)
		abort ();
	    }
 
	  if (*q++ != '\0')
	    abort ();
	  for (i = 0; i < MAX_EXTRA; i++, q++)
	    if (*q != 'a')
	      abort ();
	}
 
  exit (0);
}
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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