Author: pmichaud
Date: Sat Jan 3 08:56:20 2009
New Revision: 34891
Modified:
branches/rvar/compilers/pct/src/PAST/Compiler.pir
Log:
[pct]: Make the "Scope not found" error a bit more informative.
Modified: branches/rvar/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- branches/rvar/compilers/pct/src/PAST/Compiler.pir (original)
+++ branches/rvar/compilers/pct/src/PAST/Compiler.pir Sat Jan 3 08:56:20 2009
@@ -1938,7 +1938,17 @@
scope = concat " '", scope
scope = concat scope, "'"
scope_error_1:
- .tailcall self.'panic'("Scope", scope, " not found for PAST::Var '", name,
"'")
+ # Find the nearest named block
+ .local pmc it
+ $P0 = get_global '@?BLOCK'
+ it = iter $P0
+ scope_error_block_loop:
+ unless it goto scope_error_2
+ $P0 = shift it
+ $S0 = $P0.'name'()
+ unless $S0 goto scope_error_block_loop
+ scope_error_2:
+ .tailcall self.'panic'("Scope", scope, " not found for PAST::Var '", name,
"' in ", $S0)
.end
