JavaScriptCore-1218.34.tar.gz

[apple/javascriptcore.git] / create_jit_stubs

diff --git a/create_jit_stubs b/create_jit_stubs
index 4d510ea2fd6899b728daa38056632a6516f18212..d90fa8eb42cd34a5b869ba382cd4a40d73103595 100644 (file)
--- a/create_jit_stubs
+++ b/create_jit_stubs
@@ -22,19 +22,18 @@ use strict;
 use File::Basename;
 use Getopt::Long;
 
 use File::Basename;
 use Getopt::Long;
 

-my $usage = basename($0) . " --prefix prefix [--offset offset] file";
+my $usage = basename($0) . " --prefix prefix file";

 
 my $rtype_template = quotemeta("#rtype#");
 
 my $rtype_template = quotemeta("#rtype#");

-my $offset_template = quotemeta("#offset#");

 my $op_template = quotemeta("#op#");
 
 my $prefix;
 my $op_template = quotemeta("#op#");
 
 my $prefix;

-my $offset = 32;
+my $enable_dfg = 0;

 my $file;
 
 my $getOptionsResult = GetOptions(
     'prefix=s' => \$prefix,
 my $file;
 
 my $getOptionsResult = GetOptions(
     'prefix=s' => \$prefix,

-    'offset=i' => \$offset
+    'dfg!' => \$enable_dfg

 );
 
 $file = $ARGV[0];
 );
 
 $file = $ARGV[0];


@@ -42,28 +41,53 @@ $file = $ARGV[0];
 die "$usage\n" unless ($prefix and $file);
 
 my $stub_template = "";
 die "$usage\n" unless ($prefix and $file);
 
 my $stub_template = "";

+my $output_end = "";

 my $stub = "";
 
 my $rtype = "";
 my $op = "";
 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";
 
 while ( $_ = <IN> ) {
 
 print STDERR "Creating JIT stubs for $file \n";
 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 ( /^$prefix\_BEGIN\((.*)\)/ ) {
+        $stub = $1;
+        print $stub . "\n";
+    }

     if ( /^$prefix\((.*)\)/ ) {
         $stub_template .= $1 . "\n";
     }
     if ( /^$prefix\((.*)\)/ ) {
         $stub_template .= $1 . "\n";
     }

+    if ( /^$prefix\_END\((.*)\)/ ) {
+        $output_end .= $1 . "\n";
+    }

     if ( /^DEFINE_STUB_FUNCTION\((.*), (.*)\)/ ) {
         $stub = $stub_template;
         $rtype = quotemeta($1);
         $op = quotemeta($2);
     if ( /^DEFINE_STUB_FUNCTION\((.*), (.*)\)/ ) {
         $stub = $stub_template;
         $rtype = quotemeta($1);
         $op = quotemeta($2);

-        $stub =~ s/$offset_template/$offset/g;

         $stub =~ s/$rtype_template/$rtype/g;
         $stub =~ s/$op_template/$op/g;
         $stub =~ s/\\\*/\*/g;
         $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;
+        }

     }
 }
 
     }
 }
 

+print $output_end;
+

 close(IN);
 close(IN);