1 files changed, 25 insertions, 0 deletions
diff --git a/pkg/tbtables/selector/trsclose.x b/pkg/tbtables/selector/trsclose.x
new file mode 100644
index 00000000..4a6ae000
--- /dev/null
+++ b/pkg/tbtables/selector/trsclose.x
@@ -0,0 +1,25 @@
+include	"trs.h"
+
+#* HISTORY *
+#* B.Simon	04-Nov-94	original
+
+# TRSCLOSE  - Free table row selector code buffer
+
+procedure trsclose (trs)
+
+pointer	trs		# i: Pseudocode structure
+#--
+string	notcode "trsclose: not pointer to code"
+
+begin
+	if (TRS_IDENT(trs) != TRS_MAGIC)
+	    call error (1, notcode)
+
+	call rst_free (TRS_ROWS(trs))
+
+	call mfree (TRS_VALUE(trs), TY_DOUBLE)
+	call mfree (TRS_CODE(trs), TY_INT)
+	call mfree (trs, TY_INT)
+end
+
+