Revision: 52782
http://brlcad.svn.sourceforge.net/brlcad/?rev=52782&view=rev
Author: n_reed
Date: 2012-10-04 17:03:50 +0000 (Thu, 04 Oct 2012)
Log Message:
-----------
free point lists
Modified Paths:
--------------
brlcad/trunk/src/librt/primitives/epa/epa.c
Modified: brlcad/trunk/src/librt/primitives/epa/epa.c
===================================================================
--- brlcad/trunk/src/librt/primitives/epa/epa.c 2012-10-04 16:28:37 UTC (rev
52781)
+++ brlcad/trunk/src/librt/primitives/epa/epa.c 2012-10-04 17:03:50 UTC (rev
52782)
@@ -873,7 +873,7 @@
fastf_t mag_H, z, r1, r2;
int i, num_curve_points, num_ellipse_points;
struct rt_epa_internal *epa;
- struct rt_pt_node *pts_r1, *pts_r2, *node1, *node2;
+ struct rt_pt_node *pts_r1, *pts_r2, *node, *node1, *node2;
num_curve_points = sqrt(primitive_diagonal_samples(ip, info)) / 4.0;
@@ -925,6 +925,19 @@
epa_plot_parabola(info->vhead, epa, pts_r1, Bu, r2);
epa_plot_parabola(info->vhead, epa, pts_r1, Bu, -r2);
+ node1 = pts_r1;
+ node2 = pts_r2;
+ for (i = 0; i < num_curve_points; ++i) {
+ node = node1;
+ bu_free(node, "rt_pt_node");
+
+ node = node2;
+ bu_free(node, "rt_pt_node");
+
+ node1 = node1->next;
+ node2 = node2->next;
+ }
+
return 0;
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Don't let slow site performance ruin your business. Deploy New Relic APM
Deploy New Relic app performance management and know exactly
what is happening inside your Ruby, Python, PHP, Java, and .NET app
Try New Relic at no cost today and get our sweet Data Nerd shirt too!
http://p.sf.net/sfu/newrelic-dev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
