cvs commit: parrot/languages/regex/lib/Regex/CodeGen IMCC.pm

[Steve Fink]

cvsuser     03/11/18 23:22:25

  Modified:    languages/regex/lib/Regex/CodeGen IMCC.pm
  Log:
  More verbose debugging printouts
  
  Revision  Changes    Path
  1.6       +12 -11    parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm
  
  Index: IMCC.pm
  ===================================================================
  RCS file: /cvs/public/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -w -r1.5 -r1.6
  --- IMCC.pm   14 Sep 2003 20:15:51 -0000      1.5
  +++ IMCC.pm   19 Nov 2003 07:22:24 -0000      1.6
  @@ -274,13 +274,14 @@
       my ($self, $reg, $db_desc) = @_;
       $reg = value($reg);
   
  -    my @ops = ($self->pushop . " <rx_stack>, $reg # pushindex");
       if ($self->{DEBUG}) {
           my $desc = $db_desc ? " ($db_desc)" : "";
  -     push @ops, 'print "PUSHED "', "print $reg", qq(print "$desc\\n"),
  -                   $self->dbgoto('DUMPSTACK');
  +        return ("set <rx_tmp>, <rx_stack>",
  +                $self->pushop . " <rx_stack>, $reg",
  +                $self->dbprint("PUSHED[\%<<rx_tmp>>] INT: \%<$reg>$desc\n"),
  +               );
       }
  -    return @ops;
  +    return $self->pushop . " <rx_stack>, $reg";
   }
   
   sub output_save {
  @@ -292,7 +293,7 @@
   sub output_restore {
       my ($self, $reg) = @_;
       $reg = value($reg);
  -    return ("save $reg");
  +    return ("restore $reg");
   }
   
   sub output_refresh {
  @@ -351,13 +352,13 @@
   }
   
   sub output_popint {
  -    my ($self, $reg) = @_;
  +    my ($self, $reg, $db_desc) = @_;
       $reg = value($reg);
       if ($self->{DEBUG}) {
  -     return ("print \"POPPED INT: \"",
  +        my $desc = $db_desc ? " ($db_desc)" : "";
  +        return ("set <rx_tmp>, <rx_stack>",
                $self->popop . " $reg, <rx_stack>",
  -                "print $reg",
  -                'print "\n"',
  +                $self->dbprint("POPPED[\%<<rx_tmp>>] INT: \%<$reg>$desc\n"),
                  );
       } else {
           return ($self-> popop . " $reg, <rx_stack> # popint");