Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

support for printing ArgLists.

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@67516 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
beard%netscape.com
2000-04-28 13:17:35 +00:00
parent 4af5b43403
commit 26dcdf733f
2 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
mozilla/js2/tools/gencode.pl
View File

@@ -1,3 +1,5 @@
#!perl
use strict;
my $tab = " ";
@@ -272,8 +274,12 @@ sub collect {
$init_tab . $tab . $tab . "return f;\n" .
$init_tab . $tab . "}\n");
my $printops_body = &get_printops_body(@types);
my $printops_decl = ($printops_body ne "" ? "virtual Formatter& printOperands(Formatter& f, const JSValues& registers) {\n"
: "virtual Formatter& printOperands(Formatter& f, const JSValues& /*registers*/) {\n");
$class_decs .= ($init_tab . $tab .
"virtual Formatter& printOperands(Formatter& f, const JSValues& registers) {\n" .
$printops_decl .
&get_printops_body(@types) .
$init_tab . $tab . $tab . "return f;\n" .
$init_tab . $tab . "}\n");
@@ -401,7 +407,7 @@ sub get_printops_body {
if ($type eq "Register") {
push (@oplist, "\"R\" << mOp$op << \" = \" << registers[mOp$op]");
} elsif ($type eq "RegisterList") {
push (@oplist, "\"RL\" << mOp$op");
push (@oplist, "ArgList(mOp$op, registers)");
}
$op++;