Remove unnecessary pfree's in geometric operators. At least one of these

is actively dangerous, per bug report from Ewald Geschwinde 14-May-02,
and several of the rest look suspicious to me.  Since there is no longer
any significant value in retail pfree's in these functions, just get
rid of all of them for safety's sake.

diff --git a/src/backend/utils/adt/geo_ops.c b/src/backend/utils/adt/geo_ops.c
index 28a04d0725fda11766781ac3ce47367bd956c6ad..5a3848d35685d601d3ba8471408139db2623a6c3 100644 (file)
--- a/src/backend/utils/adt/geo_ops.c
+++ b/src/backend/utils/adt/geo_ops.c
@@ -8,7 +8,7 @@
  *
  *
  * IDENTIFICATION
- *       $Header: /cvsroot/pgsql/src/backend/utils/adt/geo_ops.c,v 1.60 2001/10/25 05:49:44 momjian Exp $
+ *       $Header: /cvsroot/pgsql/src/backend/utils/adt/geo_ops.c,v 1.60.2.1 2002/05/14 18:16:54 tgl Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -1099,7 +1099,6 @@ line_distance(PG_FUNCTION_ARGS)
                PG_RETURN_FLOAT8(fabs(l1->C - l2->C));
        tmp = point_construct(0.0, l1->C);
        result = dist_pl_internal(tmp, l2);
-       pfree(tmp);
        PG_RETURN_FLOAT8(result);
 }
 
@@ -1843,8 +1842,6 @@ lseg_intersect_internal(LSEG *l1, LSEG *l2)
                retval = true;                  /* interpt on l1 and l2 */
        else
                retval = false;
-       if (interpt != NULL)
-               pfree(interpt);
        return retval;
 }
 
@@ -2061,10 +2058,7 @@ lseg_interpt(PG_FUNCTION_ARGS)
         */
        if (!on_ps_internal(result, l1) ||
                !on_ps_internal(result, l2))
-       {
-               pfree(result);
                PG_RETURN_NULL();
-       }
 
        /*
         * If there is an intersection, then check explicitly for matching
@@ -2152,10 +2146,10 @@ dist_ps_internal(Point *pt, LSEG *lseg)
                   ln->A, ln->B, ln->C, pt->x, pt->y, m);
 #endif
 
-/*
- * Calculate distance to the line segment
- *     or to the endpoints of the segment.
- */
+       /*
+        * Calculate distance to the line segment
+        * or to the endpoints of the segment.
+        */
 
        /* intersection is on the line segment? */
        if ((ip = interpt_sl(lseg, ln)) != NULL)
@@ -2165,7 +2159,6 @@ dist_ps_internal(Point *pt, LSEG *lseg)
                printf("dist_ps- distance is %f to intersection point is (%f,%f)\n",
                           result, ip->x, ip->y);
 #endif
-               pfree(ip);
        }
        else
        {
@@ -2176,8 +2169,6 @@ dist_ps_internal(Point *pt, LSEG *lseg)
                        result = tmpdist;
        }
 
-       pfree(ln);
-
        return result;
 }
 
@@ -2245,13 +2236,12 @@ dist_pb(PG_FUNCTION_ARGS)
        Point      *pt = PG_GETARG_POINT_P(0);
        BOX                *box = PG_GETARG_BOX_P(1);
        float8          result;
-       Point      *tmp;
+       Point      *near;
 
-       tmp = DatumGetPointP(DirectFunctionCall2(close_pb,
-                                                                                        PointPGetDatum(pt),
-                                                                                        BoxPGetDatum(box)));
-       result = point_dt(tmp, pt);
-       pfree(tmp);
+       near = DatumGetPointP(DirectFunctionCall2(close_pb,
+                                                                                         PointPGetDatum(pt),
+                                                                                         BoxPGetDatum(box)));
+       result = point_dt(near, pt);
 
        PG_RETURN_FLOAT8(result);
 }
@@ -2294,7 +2284,6 @@ dist_sb(PG_FUNCTION_ARGS)
        result = DirectFunctionCall2(dist_pb,
                                                                 PointPGetDatum(tmp),
                                                                 BoxPGetDatum(box));
-       pfree(tmp);
 
        PG_RETURN_DATUM(result);
 }
@@ -2308,7 +2297,7 @@ dist_lb(PG_FUNCTION_ARGS)
        BOX                *box = PG_GETARG_BOX_P(1);
 #endif
 
-       /* think about this one for a while */
+       /* need to think about this one for a while */
        elog(ERROR, "dist_lb not implemented");
 
        PG_RETURN_NULL();
@@ -2401,7 +2390,6 @@ interpt_sl(LSEG *lseg, LINE *line)
                }
                else
                {
-                       pfree(p);
                        p = NULL;
                }
        }
@@ -2417,10 +2405,7 @@ has_interpt_sl(LSEG *lseg, LINE *line)
 
        tmp = interpt_sl(lseg, line);
        if (tmp)
-       {
-               pfree(tmp);
                return true;
-       }
        return false;
 }
 
@@ -2624,7 +2609,6 @@ close_lseg(PG_FUNCTION_ARGS)
                                                                                           PointPGetDatum(&l2->p[0]),
                                                                                                        LsegPGetDatum(l1)));
                memcpy(&point, result, sizeof(Point));
-               pfree(result);
                result = DatumGetPointP(DirectFunctionCall2(close_ps,
                                                                                                  PointPGetDatum(&point),
                                                                                                        LsegPGetDatum(l2)));
@@ -2632,14 +2616,10 @@ close_lseg(PG_FUNCTION_ARGS)
 
        if ((d = dist_ps_internal(&l2->p[1], l1)) < dist)
        {
-               if (result != NULL)
-                       pfree(result);
-
                result = DatumGetPointP(DirectFunctionCall2(close_ps,
                                                                                           PointPGetDatum(&l2->p[1]),
                                                                                                        LsegPGetDatum(l1)));
                memcpy(&point, result, sizeof(Point));
-               pfree(result);
                result = DatumGetPointP(DirectFunctionCall2(close_ps,
                                                                                                  PointPGetDatum(&point),
                                                                                                        LsegPGetDatum(l2)));
@@ -3574,9 +3554,6 @@ box_mul(PG_FUNCTION_ARGS)
 
        result = box_construct(high->x, low->x, high->y, low->y);
 
-       pfree(high);
-       pfree(low);
-
        PG_RETURN_BOX_P(result);
 }
 
@@ -3598,9 +3575,6 @@ box_div(PG_FUNCTION_ARGS)
 
        result = box_construct(high->x, low->x, high->y, low->y);
 
-       pfree(high);
-       pfree(low);
-
        PG_RETURN_BOX_P(result);
 }
 
@@ -3700,7 +3674,6 @@ path_mul_pt(PG_FUNCTION_ARGS)
                                                                                           PointPGetDatum(point)));
                path->p[i].x = p->x;
                path->p[i].y = p->y;
-               pfree(p);
        }
 
        PG_RETURN_PATH_P(path);
@@ -3721,7 +3694,6 @@ path_div_pt(PG_FUNCTION_ARGS)
                                                                                           PointPGetDatum(point)));
                path->p[i].x = p->x;
                path->p[i].y = p->y;
-               pfree(p);
        }
 
        PG_RETURN_PATH_P(path);
@@ -3796,7 +3768,6 @@ poly_center(PG_FUNCTION_ARGS)
                                                                                                 PolygonPGetDatum(poly)));
        result = DirectFunctionCall1(circle_center,
                                                                 CirclePGetDatum(circle));
-       pfree(circle);
 
        PG_RETURN_DATUM(result);
 }
@@ -4232,7 +4203,6 @@ circle_mul_pt(PG_FUNCTION_ARGS)
                                                                                   PointPGetDatum(point)));
        result->center.x = p->x;
        result->center.y = p->y;
-       pfree(p);
        result->radius *= HYPOT(point->x, point->y);
 
        PG_RETURN_CIRCLE_P(result);
@@ -4253,7 +4223,6 @@ circle_div_pt(PG_FUNCTION_ARGS)
                                                                                   PointPGetDatum(point)));
        result->center.x = p->x;
        result->center.y = p->y;
-       pfree(p);
        result->radius /= HYPOT(point->x, point->y);
 
        PG_RETURN_CIRCLE_P(result);