Big Scary Patch:

	- syntax change
	- register allocation stuff (ask Leo).


git-svn-id: https://svn.parrot.org/parrot/trunk@2204 d31e2699-5ff4-0310-a27c-f18f2fbe73fe

imcc/anyop.c

@@ -1,15 +1,7 @@
-#ifndef _MSC_VER
-#  include <sysexits.h>
-#else
-#  define EX_DATAERR 1
-#  define EX_SOFTWARE 1
-#  define EX_NOINPUT 1
-#  define EX_IOERR 1
-#  define EX_UNAVAILABLE 1
-#endif
 #include <stdarg.h>
 
 #include "anyop.h"
+#include "imc.h"
 #include "../../include/parrot/platform.h"
 
 static void * dl_handles[16] = { NULL }; /* try in main first. */
@@ -35,6 +27,19 @@ op_load_file(const char * file) {
     dl_handles[lastdl_handle++] = handle;
 }
 
+void
+op_close_lib()
+{
+    int i;
+    for (i = 0; i < lastlib; i++) {
+	free(oplibs[i].name);
+    }
+    for (i = 0; i < lastdl_handle; i++) {
+	if (dl_handles[i])
+	    Parrot_dlclose(dl_handles[i]);
+    }
+}
+
 void
 op_load_lib(const char * oplib, int major, int minor, int rev) {
     char name[128];

imcc/anyop.h

@@ -24,5 +24,6 @@ op_t op_find(const char * name, int nargs, ...);
 void op_dump();
 op_info_t * op_info(op_t op);
 void print_op_info(FILE * file, op_info_t * info);
+void op_close_lib(void);
 
 #endif /* _anyop_h */