JavaScriptCore-7600.1.4.17.5.tar.gz

[apple/javascriptcore.git] / create_jit_stubs

diff --git a/create_jit_stubs b/create_jit_stubs
index f0fcb53b03f52e1100bb91c4d8b286f34479b46e..404fa3698074f812189944512202f4999e6cea86 100644 (file)
--- a/create_jit_stubs
+++ b/create_jit_stubs
@@ -22,21 +22,25 @@ use strict;
 use File::Basename;
 use Getopt::Long;
 
-my $usage = basename($0) . " --prefix prefix file";
+my $usage = basename($0) . " --prefix prefix --header header file";
 
 my $rtype_template = quotemeta("#rtype#");
 my $op_template = quotemeta("#op#");
 
 my $prefix;
+my $header;
+my $enable_dfg = 0;
 my $file;
 
 my $getOptionsResult = GetOptions(
-    'prefix=s' => \$prefix
+    'prefix=s' => \$prefix,
+    'header=s' => \$header,
+    'dfg!' => \$enable_dfg
 );
 
 $file = $ARGV[0];
 
-die "$usage\n" unless ($prefix and $file);
+die "$usage\n" unless ($header and $prefix and $file);
 
 my $stub_template = "";
 my $output_end = "";
@@ -44,9 +48,11 @@ my $stub = "";
 
 my $rtype = "";
 my $op = "";
+my $if_counter = 0;
+my $dfg_begin = 0;
 
 print STDERR "Creating JIT stubs for $file \n";
-open(IN, $file) or die "No such file $file";
+open(IN, $header) or die "No such file $header";
 
 while ( $_ = <IN> ) {
     if ( /^$prefix\_BEGIN\((.*)\)/ ) {
@@ -59,6 +65,24 @@ while ( $_ = <IN> ) {
     if ( /^$prefix\_END\((.*)\)/ ) {
         $output_end .= $1 . "\n";
     }
+}
+
+close(IN);
+open(IN, $file) or die "No such file $file";
+
+while ( $_ = <IN> ) {
+    if ( /^#if (.*)/ ) {
+        $if_counter++;
+        if ( $1 eq "ENABLE(DFG_JIT)" ) {
+            $dfg_begin = $if_counter;
+        }
+    }
+    if ( /^#endif/ ) {
+        if ( $if_counter == $dfg_begin ) {
+            $dfg_begin = 0;
+        }
+        $if_counter--;
+    }
     if ( /^DEFINE_STUB_FUNCTION\((.*), (.*)\)/ ) {
         $stub = $stub_template;
         $rtype = quotemeta($1);
@@ -66,7 +90,9 @@ while ( $_ = <IN> ) {
         $stub =~ s/$rtype_template/$rtype/g;
         $stub =~ s/$op_template/$op/g;
         $stub =~ s/\\\*/\*/g;
-        print $stub;
+        if ( $enable_dfg == 1 || $dfg_begin == 0 ) {
+            print $stub;
+        }
     }
 }