[perl #16938] [PATCH] Fix imcc shared library versions.

[via RT]

# New Ticket Created by  Andy Dougherty 
# Please include the string:  [perl #16938]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=16938 >


imcc doesn't work anymore now that the version number has changed from 7
to 8.  This patch replaces the hardwired 0.0.7 by the appropriate defines
determined by Configure.pl.

diff -r -u parrot-orig/languages/imcc/anyop.c parrot-andy/languages/imcc/anyop.c
--- parrot-orig/languages/imcc/anyop.c  Tue Aug 27 02:48:44 2002
+++ parrot-andy/languages/imcc/anyop.c  Mon Sep  2 14:51:51 2002
@@ -195,7 +195,9 @@
     while ((c = getopt(argc, argv, "l:a:")) != -1) {
        switch (c) {
        case 'l':
-           op_load_lib(optarg, 0, 0, 7);
+           op_load_lib(optarg, PARROT_MAJOR_VERSION, 
+                               PARROT_MINOR_VERSION,
+                               PARROT_PATCH_VERSION);
            break;
 
        case 'a':
diff -r -u parrot-orig/languages/imcc/imcc.y parrot-andy/languages/imcc/imcc.y
--- parrot-orig/languages/imcc/imcc.y   Thu Aug 29 16:56:30 2002
+++ parrot-andy/languages/imcc/imcc.y   Mon Sep  2 14:53:28 2002
@@ -733,7 +733,9 @@
     if (IMCC_DEBUG)
        fprintf(stderr, "loading libs...");
     op_load_file("../../blib/lib/libparrot.so");
-    op_load_lib("core", 0, 0, 7);
+    op_load_lib("core", PARROT_MAJOR_VERSION,
+                       PARROT_MINOR_VERSION,
+                       PARROT_PATCH_VERSION);
     if (IMCC_DEBUG)
        fprintf(stderr, "done\n");
 

-- 
    Andy Dougherty              [EMAIL PROTECTED]
    Dept. of Physics
    Lafayette College, Easton PA 18042