[svn:parrot] r40213 - in branches/bsr_jsr_ret: . compilers/imcc examples/subs

whiteknight at svn.parrot.org whiteknight at svn.parrot.org
Wed Jul 22 01:13:23 UTC 2009


Author: whiteknight
Date: Wed Jul 22 01:13:23 2009
New Revision: 40213
URL: https://trac.parrot.org/parrot/changeset/40213

Log:
[bsr_jsr_ret] remove more references to jsr

Deleted:
   branches/bsr_jsr_ret/examples/subs/jsr_ret.pasm
Modified:
   branches/bsr_jsr_ret/MANIFEST
   branches/bsr_jsr_ret/compilers/imcc/parser_util.c

Modified: branches/bsr_jsr_ret/MANIFEST
==============================================================================
--- branches/bsr_jsr_ret/MANIFEST	Wed Jul 22 01:10:18 2009	(r40212)
+++ branches/bsr_jsr_ret/MANIFEST	Wed Jul 22 01:13:23 2009	(r40213)
@@ -864,7 +864,6 @@
 examples/streams/Writer.pir                                 [examples]
 examples/subs/bsr_ret.pasm                                  [examples]
 examples/subs/coroutine.pasm                                [examples]
-examples/subs/jsr_ret.pasm                                  [examples]
 examples/subs/multi_retvals.pir                             [examples]
 examples/subs/no_retval.pir                                 [examples]
 examples/subs/pasm_sub1.pasm                                [examples]

Modified: branches/bsr_jsr_ret/compilers/imcc/parser_util.c
==============================================================================
--- branches/bsr_jsr_ret/compilers/imcc/parser_util.c	Wed Jul 22 01:10:18 2009	(r40212)
+++ branches/bsr_jsr_ret/compilers/imcc/parser_util.c	Wed Jul 22 01:13:23 2009	(r40213)
@@ -555,7 +555,6 @@
         ||  STREQ(name, "returncc"))
             ins->type |= IF_goto;
         else if (STREQ(fullname, "jump_i")
-             ||  STREQ(fullname, "jsr_i")
              ||  STREQ(fullname, "branch_i")
              ||  STREQ(fullname, "bsr_i"))
             IMCC_INFO(interp)->dont_optimize = 1;

Deleted: branches/bsr_jsr_ret/examples/subs/jsr_ret.pasm
==============================================================================
--- branches/bsr_jsr_ret/examples/subs/jsr_ret.pasm	Wed Jul 22 01:13:23 2009	(r40212)
+++ /dev/null	00:00:00 1970	(deleted)
@@ -1,52 +0,0 @@
-# Copyright (C) 2001-2005, Parrot Foundation.
-# This program is free software. It is subject to the same
-# license as Parrot.
-#
-# $Id$
-
-=head1 NAME
-
-examples/subs/jsr_ret.pasm - Jumping to subroutine
-
-=head1 SYNOPSIS
-
-    % ./parrot examples/subs/jsr_ret.pasm
-
-=head1 DESCRIPTION
-
-A program to demonstrate the use of the C<jump> and of the C<jsr> opcode.
-
-=head1 SEE ALSO
-
-F<docs/ops/core.pod>
-F<docs/pdds/pdd03_calling_conventions.pod>
-
-=cut
-
-MAIN:       print "Example of the jump op.\n"
-            print "\n"
-            print "Jumping to subroutine SUB_1.\n"
-            set_addr I1, SUB_1
-            jump I1
-
-RET:        print "Returned from subroutine SUB_1.\n"
-            print "Jumping to subroutine SUB_2.\n"
-            set_addr I3, SUB_2
-            jsr I3
-            print "Returned from subroutine SUB_2.\n"
-            end
-
-SUB_1:      print "Entered subroutine SUB_1.\n"
-            set_addr I2, RET
-            print "Returning from subroutine SUB_1.\n"
-            jump I2
-
-SUB_2:      print "Entered subroutine SUB_2.\n"
-            print "Returning from subroutine SUB_2.\n"
-            ret
-
-# Local Variables:
-#   mode: pir
-#   fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4 ft=pir:


More information about the parrot-commits mailing list