summaryrefslogtreecommitdiff
path: root/bridges
diff options
context:
space:
mode:
authorTor Lillqvist <tml@iki.fi>2013-01-10 01:37:29 +0200
committerTor Lillqvist <tml@iki.fi>2013-01-19 23:58:41 +0200
commit9c5bb994031f5b0951a9f47f08358ba206b38402 (patch)
tree51af889a56e46d29331514bc66a9929e45f3ac2d /bridges
parent5d7fad31ff1491896b4a517ce6ac652f537b7ba2 (diff)
More snippets, and cosmetics
Change-Id: I150981237dc642e46751f0824aeda53dbdb59e5c
Diffstat (limited to 'bridges')
-rwxr-xr-xbridges/source/cpp_uno/gcc3_ios_arm/generate-snippets.pl16
1 files changed, 8 insertions, 8 deletions
diff --git a/bridges/source/cpp_uno/gcc3_ios_arm/generate-snippets.pl b/bridges/source/cpp_uno/gcc3_ios_arm/generate-snippets.pl
index 05991706eb3b..3c33320b8163 100755
--- a/bridges/source/cpp_uno/gcc3_ios_arm/generate-snippets.pl
+++ b/bridges/source/cpp_uno/gcc3_ios_arm/generate-snippets.pl
@@ -25,13 +25,13 @@
# in which case the provisions of the GPLv3+ or the LGPLv3+ are applicable
# instead of those above.
-my $nFunIndexes = 5;
-my $nVtableOffsets = 1;
+my $nFunIndexes = 8;
+my $nVtableOffsets = 4;
sub gen_arm ($$)
{
my ($funIndex, $vtableOffset) = @_;
- printf ("codeSnippet%08x%d:\n", $funIndex, $vtableOffset);
+ printf ("codeSnippet_%08x_%d:\n", $funIndex, $vtableOffset);
printf ("\tmov ip, pc\n");
printf ("\tb _privateSnippetExecutor\n");
printf ("\t.long %#08x\n", $funIndex);
@@ -41,7 +41,7 @@ sub gen_arm ($$)
sub gen_x86 ($$$)
{
my ($funIndex, $vtableOffset, $executor) = @_;
- printf ("codeSnippet%08x%d%s:\n", $funIndex, $vtableOffset, $executor);
+ printf ("codeSnippet_%08x_%d_%s:\n", $funIndex, $vtableOffset, $executor);
printf ("\tmovl \$%#08x, %%eax\n", $funIndex);
printf ("\tmovl \$%d, %%edx\n", $vtableOffset);
printf ("\tjmp _privateSnippetExecutor%s\n", $executor);
@@ -104,13 +104,13 @@ foreach my $funIndex (0 .. $nFunIndexes-1)
foreach my $vtableOffset (0 .. $nVtableOffsets-1)
{
printf ("#ifdef __arm\n");
- printf ("\t.long codeSnippet%08x%d - _codeSnippets\n", $funIndex, $vtableOffset);
- printf ("\t.long codeSnippet%08x%d - _codeSnippets\n", $funIndex|0x80000000, $vtableOffset);
+ printf ("\t.long codeSnippet_%08x_%d - _codeSnippets\n", $funIndex, $vtableOffset);
+ printf ("\t.long codeSnippet_%08x_%d - _codeSnippets\n", $funIndex|0x80000000, $vtableOffset);
printf ("#else\n");
foreach my $executor ('General', 'Void', 'Hyper', 'Float', 'Double', 'Class')
{
- printf ("\t.long codeSnippet%08x%d%s - _codeSnippets\n", $funIndex, $vtableOffset, $executor);
- printf ("\t.long codeSnippet%08x%d%s - _codeSnippets\n", $funIndex|0x80000000, $vtableOffset, $executor);
+ printf ("\t.long codeSnippet_%08x_%d_%s - _codeSnippets\n", $funIndex, $vtableOffset, $executor);
+ printf ("\t.long codeSnippet_%08x_%d_%s - _codeSnippets\n", $funIndex|0x80000000, $vtableOffset, $executor);
}
printf ("#endif\n");
}