[svn:parrot] rev 8004 - trunk/build_tools

[luqui]

Author: luqui
Date: Sat May  7 13:12:12 2005
New Revision: 8004

Modified:
   trunk/build_tools/build_nativecall.pl
Log:
Added a seen hash so that we don't get redefinition errors when things are 
listed twice (as they probably ought to be if they're for specific libraries).


Modified: trunk/build_tools/build_nativecall.pl
==============================================================================
--- trunk/build_tools/build_nativecall.pl       (original)
+++ trunk/build_tools/build_nativecall.pl       Sat May  7 13:12:12 2005
@@ -173,6 +173,8 @@
 
 my $temp_cnt = 0;
 my @put_pointer;
+my %seen;
+
 while (<>) {
     chomp;
     s/#.*$//;             # comment till end of line
@@ -183,6 +185,7 @@
     my @extra_preamble;
     my @extra_postamble;
     my ($ret, $args) = split /\s+/, $_;
+    next if $seen{"$ret$;$args"}++;
     my @arg;
     my %reg_count;
     @reg_count{qw(p i s n)} = (5, 5, 5, 5);