[imcc] replace .arg by .set_arg, replace .result by .get_result.

+ update tests. git-svn-id: https://svn.parrot.org/parrot/trunk@33346 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
parrot · Nov 29, 2008 · b1df14f · b1df14f
1 parent 0ac43ca
commit b1df14f
Show file tree

Hide file tree

Showing 18 changed files with 4,054 additions and 4,086 deletions.
diff --git a/compilers/imcc/imcc.l b/compilers/imcc/imcc.l
@@ -309,7 +309,6 @@ SP              [ ]
 
 <*>".line"               return TK_LINE;
 <INITIAL,emit>".lex"     return LEXICAL;
-".arg"                   return ARG;
 ".set_arg"               return ARG;
 ".sub"                   return SUB;
 ".end"                   return ESUB;
@@ -340,10 +339,11 @@ SP              [ ]
 ":instanceof"              return SUB_INSTANCE_OF;
 ":subid"                   return SUB_LEXID;
 
-".result"                  return RESULT;
+".get_result"                  return RESULT;
 ".get_results"             return GET_RESULTS;
 ".yield"                   return YIELDT;
 ".return"                  return RETURN;
+".set_return"              return SET_RETURN;
 ".tailcall"                return TAILCALL;
 <emit,INITIAL>".loadlib"   return LOADLIB;
 

diff --git a/compilers/imcc/imcc.y b/compilers/imcc/imcc.y
@@ -698,7 +698,7 @@ do_loadlib(PARROT_INTERP, ARGIN(const char *lib))
 %nonassoc <t> PARAM
 
 %token <t> HLL HLL_MAP TK_LINE
-%token <t> GOTO ARG IF UNLESS PNULL
+%token <t> GOTO ARG IF UNLESS PNULL SET_RETURN
 %token <t> ADV_FLAT ADV_SLURPY ADV_OPTIONAL ADV_OPT_FLAG ADV_NAMED ADV_ARROW
 %token <t> NEW ADV_INVOCANT
 %token <t> NAMESPACE ENDNAMESPACE DOT_METHOD
@@ -1332,7 +1332,7 @@ pcc_returns:
    ;
 
 pcc_return:
-     RETURN var argtype_list   { $$ = $2; $$->type |= $3; }
+     SET_RETURN var argtype_list   { $$ = $2; $$->type |= $3; }
    ;
 
 pcc_return_many: