cvsuser 04/05/26 12:30:21
Modified: imcc parser_util.c
runtime/parrot/library parrotlib.imc
Log:
small parrotlib codepath fix
Revision Changes Path
1.69 +1 -1 parrot/imcc/parser_util.c
Index: parser_util.c
===================================================================
RCS file: /cvs/public/parrot/imcc/parser_util.c,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -w -r1.68 -r1.69
--- parser_util.c 26 May 2004 19:14:21 -0000 1.68
+++ parser_util.c 26 May 2004 19:30:17 -0000 1.69
@@ -526,7 +526,7 @@
#if defined(_PARROTLIB)
STRING *str = string_from_cstring(interp, s, strlen(s));
- STRING *path = Parrot_library_query(interp, "imcc_compile_file_location", str);
+ str = Parrot_library_query(interp, "imcc_compile_file_location", str);
#else
STRING *str = Parrot_library_fallback_locate(interp, s,
Parrot_imcc_include_paths);
#endif
1.5 +2 -2 parrot/runtime/parrot/library/parrotlib.imc
Index: parrotlib.imc
===================================================================
RCS file: /cvs/public/parrot/runtime/parrot/library/parrotlib.imc,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- parrotlib.imc 26 May 2004 12:19:23 -0000 1.4
+++ parrotlib.imc 26 May 2004 19:30:21 -0000 1.5
@@ -61,7 +61,7 @@
# setup the signatures
set_signature( "include_file_location", "SS" )
- set_signature( "bytecode_location", "SS" )
+ set_signature( "imcc_compile_file_location", "SS" )
set_signature( "dynext_location", "SSSP" )
.end
@@ -94,7 +94,7 @@
=cut
-.sub bytecode_location
+.sub imcc_compile_file_location
.param string name
find_global $P0, "_parrotlib", "include_paths"
