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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [strlenopt-20.c] - Blame information for rev 699

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

Line No. Rev Author Line
1 689 jeremybenn 
/* { dg-do run } */
2 
/* { dg-options "-O2 -fdump-tree-strlen" } */
3 
 
4 
#include "strlenopt.h"
5 
 
6 
__attribute__((noinline, noclone)) const char *
7 
fn1 (int x, int y)
8 
{
9 
  const char *p;
10 
  switch (x)
11 
    {
12 
    case 0:
13 
      p = "abcd";
14 
      /* Prevent cswitch optimization.  */
15 
      asm volatile ("" : : : "memory");
16 
      break;
17 
    case 1:
18 
      p = "efgh";
19 
      break;
20 
    case 2:
21 
      p = "ijkl";
22 
      break;
23 
    default:
24 
      p = "mnop";
25 
      break;
26 
    }
27 
  if (y)
28 
    /* strchr should be optimized into p + 4 here.  */
29 
    return strchr (p, '\0');
30 
  else
31 
    /* and strlen into 3.  */
32 
    return p + strlen (p + 1);
33 
}
34 
 
35 
__attribute__((noinline, noclone)) size_t
36 
fn2 (char *p, char *q)
37 
{
38 
  size_t l;
39 
  /* Both strcpy calls can be optimized into memcpy, strlen needs to stay.  */
40 
  strcpy (p, "abc");
41 
  p[3] = 'd';
42 
  l = strlen (p);
43 
  strcpy (q, p);
44 
  return l;
45 
}
46 
 
47 
__attribute__((noinline, noclone)) char *
48 
fn3 (char *p)
49 
{
50 
  char *c;
51 
  /* The strcpy call can be optimized into memcpy, strchr needs to stay,
52 
     strcat is optimized into memcpy.  */
53 
  strcpy (p, "abc");
54 
  p[3] = 'd';
55 
  c = strchr (p, '\0');
56 
  strcat (p, "efgh");
57 
  return c;
58 
}
59 
 
60 
int
61 
main ()
62 
{
63 
  int i;
64 
  char buf[64], buf2[64];
65 
  for (i = 0; i < 5; i++)
66 
    {
67 
      const char *p = "abcdefghijklmnop" + (i < 3 ? i : 3) * 4;
68 
      const char *q;
69 
      q = fn1 (i, 1);
70 
      if (memcmp (q - 4, p, 4) != 0 || q[0] != '\0')
71 
        abort ();
72 
      q = fn1 (i, 0);
73 
      if (memcmp (q - 3, p, 4) != 0 || q[1] != '\0')
74 
        abort ();
75 
    }
76 
  memset (buf, '\0', sizeof buf);
77 
  memset (buf + 4, 'z', 2);
78 
  if (fn2 (buf, buf2) != 6
79 
      || memcmp (buf, "abcdzz", 7) != 0
80 
      || memcmp (buf2, "abcdzz", 7) != 0)
81 
    abort ();
82 
  memset (buf, '\0', sizeof buf);
83 
  memset (buf + 4, 'z', 2);
84 
  if (fn3 (buf) != buf + 6 || memcmp (buf, "abcdzzefgh", 11) != 0)
85 
    abort ();
86 
  return 0;
87 
}
88 
 
89 
/* { dg-final { scan-tree-dump-times "strlen \\(" 1 "strlen" } } */
90 
/* { dg-final { scan-tree-dump-times "memcpy \\(" 4 "strlen" } } */
91 
/* { dg-final { scan-tree-dump-times "strcpy \\(" 0 "strlen" } } */
92 
/* { dg-final { scan-tree-dump-times "strcat \\(" 0 "strlen" } } */
93 
/* { dg-final { scan-tree-dump-times "strchr \\(" 1 "strlen" } } */
94 
/* { dg-final { scan-tree-dump-times "stpcpy \\(" 0 "strlen" } } */
95 
/* { dg-final { cleanup-tree-dump "strlen" } } */

powered by: WebSVN 2.1.0

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