Author: bernhard
Date: Mon Oct 24 14:29:22 2005
New Revision: 9548
Modified:
trunk/include/parrot/interpreter.h
trunk/ops/core.ops
trunk/src/exceptions.c
Log:
Remove interp->current_line as the line information is now
held in the debug segment.
Modified: trunk/include/parrot/interpreter.h
==============================================================================
--- trunk/include/parrot/interpreter.h (original)
+++ trunk/include/parrot/interpreter.h Mon Oct 24 14:29:22 2005
@@ -299,9 +299,6 @@ struct parrot_interp_t {
struct _imc_info_t *imc_info; /* imcc data */
- size_t current_line; /* Which line we're executing in
the
- * source */
-
const char* output_file; /* The file into which output is
written */
PDB_t *pdb; /* Debug system */
Modified: trunk/ops/core.ops
==============================================================================
--- trunk/ops/core.ops (original)
+++ trunk/ops/core.ops Mon Oct 24 14:29:22 2005
@@ -932,7 +932,7 @@ Set the line number for which we're curr
=cut
inline op setline(in INT) {
- interpreter->current_line = $1;
+ /* TODO: not implemented yet */
goto NEXT();
}
@@ -943,7 +943,7 @@ Get the current line number.
=cut
inline op getline(out INT) {
- $1 = interpreter->current_line;
+ /* TODO: not implemented yet */
goto NEXT();
}
Modified: trunk/src/exceptions.c
==============================================================================
--- trunk/src/exceptions.c (original)
+++ trunk/src/exceptions.c Mon Oct 24 14:29:22 2005
@@ -95,15 +95,8 @@ do_panic(Interp *interpreter, const char
fprintf(stderr, "C file %s, line %d\n",
file ? file : "(not available)", line);
- if (interpreter) {
- fprintf(stderr, "Parrot file %s, line %d\n",
- "(unknown)",
- (int)interpreter->current_line);
- }
- else {
- fprintf(stderr, "Parrot file (not available), ");
- fprintf(stderr, "line (not available)\n");
- }
+ fprintf(stderr, "Parrot file (not available), ");
+ fprintf(stderr, "line (not available)\n");
fprintf(stderr, "\n\
We highly suggest you notify the Parrot team if you have not been working on\n\
