Author: julianalbo
Date: Sun Jan 25 13:08:16 2009
New Revision: 36009
Modified:
trunk/languages/ecmascript/src/builtin/builtins.pir
Log:
[ecmascript] add 'quit' builtin like SpiderMonkey js shell
Modified: trunk/languages/ecmascript/src/builtin/builtins.pir
==============================================================================
--- trunk/languages/ecmascript/src/builtin/builtins.pir (original)
+++ trunk/languages/ecmascript/src/builtin/builtins.pir Sun Jan 25 13:08:16 2009
@@ -1,6 +1,7 @@
# Copyright (C) 2005-2008, The Perl Foundation.
# $Id$
+.include 'except_severity.pasm'
## Not sure what standard built-in library is for ECMAScript, but
## we need some output function for testing. For now this'll do.
@@ -21,6 +22,19 @@
print "\n"
.end
+.sub 'quit'
+ .param pmc args :slurpy
+ .local int nargs, retcode
+ retcode = 0
+ nargs = args
+ unless nargs goto done
+ retcode = args [0]
+done:
+ # Severity doomed used to bypass the catching done
+ # by the default HLL compiler.
+ die .EXCEPT_DOOMED, retcode
+.end
+
.sub 'version'
.param pmc version :optional
.param int has_version :opt_flag
