Author: mdiep
Date: Tue Nov 1 11:27:34 2005
New Revision: 9690
Modified:
trunk/languages/tcl/tcl.pir
Log:
tcl: Reuse existing file_error handler instead of adding a new one
Modified: trunk/languages/tcl/tcl.pir
==============================================================================
--- trunk/languages/tcl/tcl.pir (original)
+++ trunk/languages/tcl/tcl.pir Tue Nov 1 11:27:34 2005
@@ -122,7 +122,7 @@ loop:
gotfile:
unless dump_only goto run_file
- push_eh compile_error
+ push_eh file_error
($I0,$S0) = compiler(0,contents)
clear_eh
$S1 = pir_compiler($I0,$S0,1)
@@ -130,7 +130,7 @@ gotfile:
goto done
run_file:
- push_eh compile_error
+ push_eh file_error
($I0,$S1) = compiler(0,contents)
clear_eh
$P2 = pir_compiler($I0,$S1)
@@ -168,12 +168,6 @@ oneliner_dump:
done:
end
-compile_error:
- $S0 = P5["_message"]
- print $S0
- print_newline
- exit 1
-
file_error:
.include "except_severity.pasm"
$I0 = P5[2] # _severity
