aboutsummaryrefslogtreecommitdiff
path: root/pkg/tbtables/selector/trsclose.x
diff options
context:
space:
mode:
authorJoseph Hunkeler <jhunkeler@gmail.com>2015-07-08 20:46:52 -0400
committerJoseph Hunkeler <jhunkeler@gmail.com>2015-07-08 20:46:52 -0400
commitfa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 (patch)
treebdda434976bc09c864f2e4fa6f16ba1952b1e555 /pkg/tbtables/selector/trsclose.x
downloadiraf-linux-fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4.tar.gz
Initial commit
Diffstat (limited to 'pkg/tbtables/selector/trsclose.x')
-rw-r--r--pkg/tbtables/selector/trsclose.x25
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
+
+