txr-011 2009-09-25txr-011

1 files changed, 36 insertions, 0 deletions

diff --git a/gc.h b/gc.h
new file mode 100644
index 00000000..aaafbec2
--- /dev/null
+++ b/gc.h
@@ -0,0 +1,36 @@
+/* Copyright 2009
+ * Kaz Kylheku <kkylheku@gmail.com>
+ * Vancouver, Canada
+ * All rights reserved.
+ *
+ * BSD License:
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   1. Redistributions of source code must retain the above copyright
+ *      notice, this list of conditions and the following disclaimer.
+ *   2. Redistributions in binary form must reproduce the above copyright
+ *      notice, this list of conditions and the following disclaimer in
+ *      the documentation and/or other materials provided with the
+ *      distribution.
+ *   3. The name of the author may not be used to endorse or promote
+ *      products derived from this software without specific prior
+ *      written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+ */
+
+extern int opt_gc_debug;
+extern obj_t **gc_stack_top;
+
+obj_t *prot1(obj_t **loc);
+void rel1(obj_t **loc);
+void protect(obj_t **, ...);
+void release(obj_t **, ...);
+obj_t *make_obj(void);
+void gc(void);
+int gc_state(int);