diff options
| author | Steve Block <steveblock@google.com> | 2011-05-06 11:45:16 +0100 |
|---|---|---|
| committer | Steve Block <steveblock@google.com> | 2011-05-12 13:44:10 +0100 |
| commit | cad810f21b803229eb11403f9209855525a25d57 (patch) | |
| tree | 29a6fd0279be608e0fe9ffe9841f722f0f4e4269 /JavaScriptCore/create_jit_stubs | |
| parent | 121b0cf4517156d0ac5111caf9830c51b69bae8f (diff) | |
| download | external_webkit-cad810f21b803229eb11403f9209855525a25d57.zip external_webkit-cad810f21b803229eb11403f9209855525a25d57.tar.gz external_webkit-cad810f21b803229eb11403f9209855525a25d57.tar.bz2 | |
Merge WebKit at r75315: Initial merge by git.
Change-Id: I570314b346ce101c935ed22a626b48c2af266b84
Diffstat (limited to 'JavaScriptCore/create_jit_stubs')
| -rw-r--r-- | JavaScriptCore/create_jit_stubs | 85 |
1 files changed, 0 insertions, 85 deletions
diff --git a/JavaScriptCore/create_jit_stubs b/JavaScriptCore/create_jit_stubs deleted file mode 100644 index 4950bfc..0000000 --- a/JavaScriptCore/create_jit_stubs +++ /dev/null @@ -1,85 +0,0 @@ -#! /usr/bin/perl -w -# -# Copyright (C) 2009 Nokia Corporation and/or its subsidiary(-ies) -# Copyright (C) 2010 Patrick Gansterer <paroga@paroga.com> -# -# This library is free software; you can redistribute it and/or -# modify it under the terms of the GNU Library General Public -# License as published by the Free Software Foundation; either -# version 2 of the License, or (at your option) any later version. -# -# This library is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# Library General Public License for more details. -# -# You should have received a copy of the GNU Library General Public License -# along with this library; see the file COPYING.LIB. If not, write to -# the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -# Boston, MA 02110-1301, USA. - -use strict; -use File::Basename; -use Getopt::Long; - -my $usage = basename($0) . " --prefix prefix [--offset offset] file"; - -my $rtype_template = quotemeta("#rtype#"); -my $offset_template = quotemeta(" THUNK_RETURN_ADDRESS_OFFSET"); -my $op_template = quotemeta("#op#"); - -my $prefix; -my $offset_is_set = 0; -my $offset = 32; -my $file; - -my $getOptionsResult = GetOptions( - 'prefix=s' => \$prefix, - 'offset=i' => sub { $offset_is_set = 1; $offset = $_[1]; } -); - -$file = $ARGV[0]; - -die "$usage\n" unless ($prefix and $file); - -my $stub_template = ""; -my $output_end = ""; -my $stub = ""; - -my $rtype = ""; -my $op = ""; - -print STDERR "Creating JIT stubs for $file \n"; -open(IN, $file) or die "No such file $file"; - -while ( $_ = <IN> ) { - if ( /^$prefix\_BEGIN\((.*)\)/ ) { - $stub = $1; - if ($offset_is_set) { - $stub =~ s/$offset_template/$offset/g; - } - print $stub . "\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 ($offset_is_set) { - $stub =~ s/$offset_template/$offset/g; - } - $stub =~ s/$rtype_template/$rtype/g; - $stub =~ s/$op_template/$op/g; - $stub =~ s/\\\*/\*/g; - print $stub; - } -} - -print $output_end; - -close(IN); |
