From 55007277a1dfd1549067af324752cfb15a2b5d4c Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 13 Oct 2007 18:55:54 +0000
Subject: * win32/mkexports.rb: deal with __fastcall name decorations.  
 [ruby-list:44111]

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@13694 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 win32/mkexports.rb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'win32')

diff --git a/win32/mkexports.rb b/win32/mkexports.rb
index e9a81345d..0c17466e0 100755
--- a/win32/mkexports.rb
+++ b/win32/mkexports.rb
@@ -92,9 +92,9 @@ class Exports::Mswin < Exports
             next if /^[[:xdigit:]]+ 0+ UNDEF / =~ l
             next unless l.sub!(/.*?\s(\(\)\s+)?External\s+\|\s+/, '')
             is_data = !$1
-            if noprefix or l.sub!(/^_/, '')
-              next if /@.*@/ =~ l || /@[[:xdigit:]]{16}$/ =~ l
-              l.sub!(/^/, '_') if /@\d+$/ =~ l
+            if noprefix or /^[@_]/ =~ l
+              next if /(?!^)@.*@/ =~ l || /@[[:xdigit:]]{16}$/ =~ l
+              l.sub!(/^[@_]/, '') if /@\d+$/ !~ l
             elsif !l.sub!(/^(\S+) \([^@?\`\']*\)$/, '\1')
               next
             end
-- 
cgit