develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33892 - trunk/compilers/pirc/new

From:
kjs
Date:
December 14, 2008 08:57
Subject:
[svn:parrot] r33892 - trunk/compilers/pirc/new
Message ID:
20081214165751.55284CBA12@x12.develooper.com
Author: kjs
Date: Sun Dec 14 08:57:50 2008
New Revision: 33892

Modified:
   trunk/compilers/pirc/new/pircompunit.c

Log:
[pirc] layout++; (old comments)--

Modified: trunk/compilers/pirc/new/pircompunit.c
==============================================================================
--- trunk/compilers/pirc/new/pircompunit.c	(original)
+++ trunk/compilers/pirc/new/pircompunit.c	Sun Dec 14 08:57:50 2008
@@ -19,25 +19,6 @@
 Due to this organization, adding an element to a list can be done in
 O(c) (constant) time.
 
-Currently, no Parrot Byte Code is generated; instead, the generated
-data structure can be printed, which results in a PASM representation
-of the parsed PIR code. Through the symbol management, which is done
-in F<pirsymbol.c>, a vanilla register allocator is implemented.
-
-
-
-=head1 TODO
-
-=over 4
-
-=item * calculate offsets for global (sub) labels.
-
-=item * fix local label offset calculation: make this work for all :flow (PARROT_JUMP_RELATIVE) ops.
-
-=item * generate PackFiles (PBC).
-
-=back
-
 =cut
 
 */
@@ -2365,14 +2346,9 @@
      *    set_returns_pc
      *    returncc
      */
-
-
-    if (TEST_FLAG(lexer->subs->flags, SUB_FLAG_MAIN)) {
+    if (TEST_FLAG(lexer->subs->flags, SUB_FLAG_MAIN))
         new_sub_instr(lexer, PARROT_OP_end, "end");
-    }
     else {
-        /* XXX if there was already a return sequence explicitly, we shouldn't do this. */
-
         new_sub_instr(lexer, PARROT_OP_set_returns_pc, "set_returns_pc");
         new_sub_instr(lexer, PARROT_OP_returncc, "returncc");
     }



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About