cvsuser 04/05/19 14:09:03
Modified: include/parrot interpreter.h packfile.h
ops core.ops
Log:
- changed Parrot_load_bytecode signature to take a STRING* instead of a char*
parameter
- added void Parrot_load_bytecode_direct(struct Parrot_Interp *, char *filename); it
is used to directly load a file, without searching the include directory
Revision Changes Path
1.137 +5 -1 parrot/include/parrot/interpreter.h
Index: interpreter.h
===================================================================
RCS file: /cvs/public/parrot/include/parrot/interpreter.h,v
retrieving revision 1.136
retrieving revision 1.137
diff -u -w -r1.136 -r1.137
--- interpreter.h 1 May 2004 15:50:50 -0000 1.136
+++ interpreter.h 19 May 2004 21:08:59 -0000 1.137
@@ -1,7 +1,7 @@
/* interpreter.h
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: interpreter.h,v 1.136 2004/05/01 15:50:50 leo Exp $
+ * $Id: interpreter.h,v 1.137 2004/05/19 21:08:59 jrieks Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -295,6 +295,7 @@
IGLOBALS_ENV_HASH,
IGLOBALS_INTERPRETER,
IGLOBALS_DYN_LIBS,
+ IGLOBALS_RUNTIME_LIBRARY,
IGLOBALS_SIZE
} iglobals_enum;
@@ -351,6 +352,9 @@
FLOATVAL Parrot_runops_fromc_args_save_retf(Parrot_Interp, PMC *,
const char *, ...);
+void* Parrot_runops_fromc_arglist_save(Parrot_Interp, PMC *,
+ const char *sig, va_list);
+
void Parrot_run_meth_fromc_save(Parrot_Interp, PMC *sub,
PMC* obj, STRING *meth);
void* Parrot_run_meth_fromc_args_save(Parrot_Interp, PMC *sub,
1.61 +3 -2 parrot/include/parrot/packfile.h
Index: packfile.h
===================================================================
RCS file: /cvs/public/parrot/include/parrot/packfile.h,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -w -r1.60 -r1.61
--- packfile.h 22 Apr 2004 08:55:05 -0000 1.60
+++ packfile.h 19 May 2004 21:08:59 -0000 1.61
@@ -1,6 +1,6 @@
/* packfile.h
*
-* $Id: packfile.h,v 1.60 2004/04/22 08:55:05 leo Exp $
+* $Id: packfile.h,v 1.61 2004/05/19 21:08:59 jrieks Exp $
*
* History:
* Rework by Melvin; new bytecode format, make bytecode portable.
@@ -246,7 +246,8 @@
struct PackFile_Segment * PackFile_Segment_new_seg(struct PackFile_Directory *,
UINTVAL type, const char *name, int add);
-void Parrot_load_bytecode(struct Parrot_Interp *, char *filename);
+void Parrot_load_bytecode(struct Parrot_Interp *, STRING *filename);
+void Parrot_load_bytecode_direct(struct Parrot_Interp *, char *filename);
/*
** PackFile_Segment Functions:
*/
1.361 +1 -3 parrot/ops/core.ops
Index: core.ops
===================================================================
RCS file: /cvs/public/parrot/ops/core.ops,v
retrieving revision 1.360
retrieving revision 1.361
diff -u -w -r1.360 -r1.361
--- core.ops 7 May 2004 10:33:35 -0000 1.360
+++ core.ops 19 May 2004 21:09:02 -0000 1.361
@@ -141,9 +141,7 @@
}
inline op load_bytecode(in STR) :load_file {
- char * file = string_to_cstring(interpreter, $1);
- Parrot_load_bytecode(interpreter, file);
- string_cstring_free(file);
+ Parrot_load_bytecode(interpreter, $1);
goto NEXT();
}
