[svn:parrot] r44527 - branches/rm_cflags/compilers/imcc

coke at svn.parrot.org coke at svn.parrot.org
Sat Feb 27 01:53:02 UTC 2010


Author: coke
Date: Sat Feb 27 01:53:01 2010
New Revision: 44527
URL: https://trac.parrot.org/parrot/changeset/44527

Log:
rename this parameter back to param - otherwise it breaks the build.

Modified:
   branches/rm_cflags/compilers/imcc/instructions.c

Modified: branches/rm_cflags/compilers/imcc/instructions.c
==============================================================================
--- branches/rm_cflags/compilers/imcc/instructions.c	Sat Feb 27 01:30:14 2010	(r44526)
+++ branches/rm_cflags/compilers/imcc/instructions.c	Sat Feb 27 01:53:01 2010	(r44527)
@@ -794,19 +794,19 @@
 */
 
 static int
-e_file_open(PARROT_INTERP, ARGIN(const char *file))
+e_file_open(PARROT_INTERP, ARGIN(const char *param))
 {
     ASSERT_ARGS(e_file_open)
     DECL_CONST_CAST;
 
-    if (!STREQ(file, "-")) {
-        FILE *newfile = freopen(file, "w", stdout);
+    if (!STREQ(param, "-")) {
+        FILE *newfile = freopen(param, "w", stdout);
         if (!newfile)
             Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_EXTERNAL_ERROR,
                 "Cannot reopen stdout: %s'\n", strerror(errno));
     }
 
-    output = PARROT_const_cast(char *, file);
+    output = PARROT_const_cast(char *, param);
     Parrot_io_printf(interp, "# IMCC does produce b0rken PASM files\n");
     Parrot_io_printf(interp, "# see http://guest@rt.perl.org/rt3/Ticket/Display.html?id=32392\n");
     return 1;
@@ -862,7 +862,7 @@
 
 /*
 
-=item C<int emit_open(PARROT_INTERP, int type, void *param)>
+=item C<int emit_open(PARROT_INTERP, int type, const char *param)>
 
 Opens the emitter function C<open> of the given C<type>. Passes
 the C<param> to the open function.


More information about the parrot-commits mailing list