From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 math/curfit/cvfree.gx | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 math/curfit/cvfree.gx

(limited to 'math/curfit/cvfree.gx')

diff --git a/math/curfit/cvfree.gx b/math/curfit/cvfree.gx
new file mode 100644
index 00000000..1c18d637
--- /dev/null
+++ b/math/curfit/cvfree.gx
@@ -0,0 +1,45 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+$if (datatype == r)
+include "curfitdef.h"
+$else
+include "dcurfitdef.h"
+$endif
+
+# CVFREE -- Procedure to free the curve descriptor
+
+$if (datatype == r)
+procedure cvfree (cv)
+$else
+procedure dcvfree (cv)
+$endif
+
+pointer	cv	# the curve descriptor
+
+errchk	mfree
+
+begin
+	if (cv == NULL)
+	    return
+
+	if (CV_XBASIS(cv) != NULL)
+	    call mfree (CV_XBASIS(cv), TY_PIXEL)
+	if (CV_VECTOR(cv) != NULL)
+	    call mfree (CV_VECTOR(cv), TY_PIXEL)
+	if (CV_COEFF(cv) != NULL)
+	    call mfree (CV_COEFF(cv), TY_PIXEL)
+
+	if (CV_BASIS(cv) != NULL)
+	    call mfree (CV_BASIS(cv), TY_PIXEL)
+	if (CV_LEFT(cv) != NULL)
+	    call mfree (CV_LEFT(cv), TY_INT)
+	if (CV_WY(cv) != NULL)
+	    call mfree (CV_WY(cv), TY_PIXEL)
+
+	if (CV_MATRIX(cv) != NULL)
+	    call mfree (CV_MATRIX(cv), TY_PIXEL)
+	if (CV_CHOFAC(cv) != NULL)
+	    call mfree (CV_CHOFAC(cv), TY_PIXEL)
+
+	call mfree (cv, TY_STRUCT)
+end
-- 
cgit