+Strip 'captive_reactos_' prefix of W32-exported symbols.

diff --git a/src/libcaptive/ke/captivesym.pl b/src/libcaptive/ke/captivesym.pl
index c68fc3f..5811ba4 100755 (executable)
--- a/src/libcaptive/ke/captivesym.pl
+++ b/src/libcaptive/ke/captivesym.pl
@@ -231,7 +231,8 @@ HERE
                                ."(\"$module\",\n";
                for my $symbol (sort keys(%$moduleref)) {
                        next if $functype eq "patches" && !$def{$symbol};
-                       print "\t\t\t\"$symbol\",",(($functype eq "patches" && "data" eq $def{$symbol}{"type"}
+                       (my $symbol_outer=$symbol)=~s/^captive_reactos_//;
+                       print "\t\t\t\"$symbol_outer\",",(($functype eq "patches" && "data" eq $def{$symbol}{"type"}
                                                                        && ($def{$symbol}{"pass"} || $def{$symbol}{"wrap"})) ? ("NULL")
                                                        : ("&${symbol}_",($def{$symbol}{"type"} || "undef"))),
                                        (($functype ne "patches") ? () : (",".("data" eq $def{$symbol}{"type"} ? "NULL" : "&${symbol}_patchpoint"))),