gcc/testsuite/gcc.c-torture/compile/20051216-1.c

   1 /* PR rtl-optimization/25432 */
   2
   3 void *malloc (__SIZE_TYPE__);
   4 void *realloc (void *, __SIZE_TYPE__);
   5
   6 struct A { double x, y; };
   7 struct B { double x0, y0, x1, y1; };
   8 struct C { int n_points; int dir; struct B bbox; struct A *points; };
   9 struct D { int n_segs; struct C segs[1]; };
  10
  11 void foo (int, int, int *, int, int *, struct A **, int *, int *,
  12           struct D *, int *, struct D **, int *, int **);
  13 int baz (struct A, struct A, struct A, struct A);
  14
  15 static void
  16 bar (struct D *svp, int *n_points_max,
  17      struct A p, int *seg_map, int *active_segs, int i)
  18 {
  19   int asi, n_points;
  20   struct C *seg;
  21
  22   asi = seg_map[active_segs[i]];
  23   seg = &svp->segs[asi];
  24   n_points = seg->n_points;
  25   seg->points = ((struct A *)
  26                 realloc (seg->points, (n_points_max[asi] <<= 1) * sizeof (struct A)));
  27   seg->points[n_points] = p;
  28   seg->bbox.y1 = p.y;
  29   seg->n_points++;
  30 }
  31
  32 struct D *
  33 test (struct D *vp)
  34 {
  35   int *active_segs, n_active_segs, *cursor, seg_idx;
  36   double y, share_x;
  37   int tmp1, tmp2, asi, i, j, *n_ips, *n_ips_max, n_segs_max;
  38   struct A **ips, p_curs, *pts;
  39   struct D *new_vp;
  40   int *n_points_max, *seg_map, first_share;
  41
  42   n_segs_max = 16;
  43   new_vp = (struct D *) malloc (sizeof (struct D) +
  44                                 (n_segs_max - 1) * sizeof (struct C));
  45   new_vp->n_segs = 0;
  46
  47   if (vp->n_segs == 0)
  48     return new_vp;
  49
  50   active_segs = ((int *) malloc ((vp->n_segs) * sizeof (int)));
  51   cursor = ((int *) malloc ((vp->n_segs) * sizeof (int)));
  52
  53   seg_map = ((int *) malloc ((vp->n_segs) * sizeof (int)));
  54   n_ips = ((int *) malloc ((vp->n_segs) * sizeof (int)));
  55   n_ips_max = ((int *) malloc ((vp->n_segs) * sizeof (int)));
  56   ips = ((struct A * *) malloc ((vp->n_segs) * sizeof (struct A *)));
  57
  58   n_points_max = ((int *) malloc ((n_segs_max) * sizeof (int)));
  59
  60   n_active_segs = 0;
  61   seg_idx = 0;
  62   y = vp->segs[0].points[0].y;
  63   while (seg_idx < vp->n_segs || n_active_segs > 0)
  64     {
  65       for (i = 0; i < n_active_segs; i++)
  66         {
  67           asi = active_segs[i];
  68           if (vp->segs[asi].n_points - 1 == cursor[asi] &&
  69               vp->segs[asi].points[cursor[asi]].y == y)
  70             i--;
  71         }
  72
  73       while (seg_idx < vp->n_segs && y == vp->segs[seg_idx].points[0].y)
  74         {
  75           cursor[seg_idx] = 0;
  76           n_ips[seg_idx] = 1;
  77           n_ips_max[seg_idx] = 2;
  78           ips[seg_idx] =
  79             ((struct A *) malloc ((n_ips_max[seg_idx]) * sizeof (struct A)));
  80           ips[seg_idx][0] = vp->segs[seg_idx].points[0];
  81           pts = ((struct A *) malloc ((16) * sizeof (struct A)));
  82           pts[0] = vp->segs[seg_idx].points[0];
  83           tmp1 = seg_idx;
  84           for (j = i; j < n_active_segs; j++)
  85             {
  86               tmp2 = active_segs[j];
  87               active_segs[j] = tmp1;
  88               tmp1 = tmp2;
  89             }
  90           active_segs[n_active_segs] = tmp1;
  91           n_active_segs++;
  92           seg_idx++;
  93         }
  94       first_share = -1;
  95       share_x = 0;
  96
  97       for (i = 0; i < n_active_segs; i++)
  98         {
  99           asi = active_segs[i];
 100           p_curs = ips[asi][1];
 101           if (p_curs.y == y)
 102             {
 103               bar (new_vp, n_points_max,
 104                    p_curs, seg_map, active_segs, i);
 105
 106               n_ips[asi]--;
 107               for (j = 0; j < n_ips[asi]; j++)
 108                 ips[asi][j] = ips[asi][j + 1];
 109
 110               if (first_share < 0 || p_curs.x != share_x)
 111                 {
 112                   foo (first_share, i,
 113                        active_segs, n_active_segs,
 114                        cursor, ips, n_ips, n_ips_max, vp, seg_map,
 115                        &new_vp, &n_segs_max, &n_points_max);
 116                   first_share = i;
 117                   share_x = p_curs.x;
 118                 }
 119             }
 120           else
 121             {
 122               foo (first_share, i,
 123                    active_segs, n_active_segs,
 124                    cursor, ips, n_ips, n_ips_max, vp, seg_map,
 125                    &new_vp, &n_segs_max, &n_points_max);
 126               first_share = -1;
 127             }
 128         }
 129     }
 130   return new_vp;
 131 }