[svn:parrot] r36009 - trunk/languages/ecmascript/src/builtin

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

• [svn:parrot] r36009 - trunk/languages/ecmascript/src/builtin by julianalbo