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

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

From:
kjs
Date:
December 7, 2008 07:47
Subject:
[svn:parrot] r33612 - trunk/compilers/pirc/new
Message ID:
20081207154742.1AE44CB9AF@x12.develooper.com
Author: kjs
Date: Sun Dec  7 07:47:41 2008
New Revision: 33612

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

Log:
[pirc] fix something I shouldn't have committed; + nicer layout for offsets.

Modified: trunk/compilers/pirc/new/pircompunit.c
==============================================================================
--- trunk/compilers/pirc/new/pircompunit.c	(original)
+++ trunk/compilers/pirc/new/pircompunit.c	Sun Dec  7 07:47:41 2008
@@ -1878,9 +1878,10 @@
 
             switch (argvalue->type) {
                 case EXPR_TARGET:
-                    if (argvalue->expr.t->s.sym == NULL && argvalue->expr.t->s.reg == NULL)
-                        fprintf(stderr, "No sym or reg!\n");
-                    flag |= argvalue->expr.t->s.sym->type;
+                    if (TEST_FLAG(argvalue->expr.t->flags, TARGET_FLAG_IS_REG))
+                        flag |= argvalue->expr.t->s.reg->type;
+                    else
+                        flag |= argvalue->expr.t->s.sym->type;
                     break;
                 case EXPR_CONSTANT:
                     flag |= argvalue->expr.c->type;

Modified: trunk/compilers/pirc/new/piremit.c
==============================================================================
--- trunk/compilers/pirc/new/piremit.c	(original)
+++ trunk/compilers/pirc/new/piremit.c	Sun Dec  7 07:47:41 2008
@@ -217,7 +217,7 @@
             print_expressions(lexer, ins->operands);
         }
         else {
-            fprintf(out, "%u   %s ", ins->offset, ins->opname);
+            fprintf(out, "%04u   %s ", ins->offset, ins->opname);
 
             print_expressions(lexer, ins->operands);
 
@@ -276,6 +276,7 @@
         /* set iterator to first item */
         subroutine *subiter = lexer->subs->next;
 
+
         do {
 
             /*



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