support msvc LTO build

Author: YO4

memory_view.c

@@ -31,6 +31,10 @@
 
 // Exported Object Registry
 
+#ifdef _MSC_VER
+#pragma comment(linker, "/export:rb_memory_view_exported_object_registry,DATA"))
+#endif
+
 static st_table *exported_object_table = NULL;
 VALUE rb_memory_view_exported_object_registry = Qundef;
 

st.c

@@ -3186,7 +3186,7 @@ set_foreach_check(set_table *tab, set_foreach_check_callback_func *func, st_data
 
 /* Set up array KEYS by at most SIZE keys of head table TAB entries.
    Return the number of keys set up in array KEYS.  */
-inline st_index_t
+st_index_t
 set_keys(set_table *tab, st_data_t *keys, st_index_t size)
 {
     st_index_t i, bound;

win32/Makefile.sub

@@ -1158,10 +1158,25 @@ $(LIBRUBY_SO):	$(LIBRUBY_A) $(DLDOBJS) $(RUBYDEF) $(RUBY_SO_NAME).res
 			$(LIBRUBY_DLDFLAGS)
 		@$(RM) dummy.lib dummy.exp
 
+!if 0
+
 $(RUBYDEF):	$(LIBRUBY_A) $(RBCONFIG)
 		$(ECHO) generating $(@:\=/)
 		$(Q) $(BOOTSTRAPRUBY_COMMAND) $(srcdir)/win32/mkexports.rb \
 		  -output=$@ -arch=$(ARCH) $(LIBRUBY_A)
+!else
+
+$(RUBYDEF):	$(LIBRUBY_A) $(RBCONFIG)
+		$(ECHO) generating $(@:\=/)
+		$(Q) $(LDSHARED) $(LIBRUBY_A) \
+			$(RUBY_SO_NAME).res $(SOLIBS) $(EXTSOLIBS) $(LIBS) \
+			$(OUTFLAG)$(@B).dll -link $(LDFLAGS) $(XLDFLAGS) \
+			$(EXTLDFLAGS) -implib:dummydef.lib \
+			-wholearchive:$(LIBRUBY_A) -map:$(@B).map -opt:noref -opt:noicf
+		$(Q) $(BOOTSTRAPRUBY_COMMAND) $(srcdir)/win32/mkexports.rb \
+		  -output=$@ -arch=$(ARCH) $(@B).map
+
+!endif
 
 {$(win_srcdir)}.def.lib:
 		$(Q) $(AR) $(ARFLAGS)$@ -def:$<

win32/mkexports.rb

@@ -7,7 +7,7 @@ module RbConfig
 end
 
 class Exports
-  PrivateNames = /(?:Init_|InitVM_|ruby_static_id_|threadptr|_ec_|DllMain\b)/
+  PrivateNames = /(?:\AInit_|\AInitVM_|\Aruby_static_id_|threadptr|_ec_|DllMain\b)/
 
   def self.create(*args, &block)
     platform = RUBY_PLATFORM
@@ -96,20 +96,57 @@ def symbols()
 
 class Exports::Mswin < Exports
   def each_line(objs, &block)
-    IO.popen(%w"dumpbin -symbols -exports" + objs) do |f|
-      f.each(&block)
+#    IO.popen(%w"dumpbin -linkermember:1" + objs) do |f|
+    objs.each do |o|
+      open(o) do |f|
+        f.each(&block)
+      end
     end
   end
 
   def each_export(objs)
     noprefix = ($arch ||= nil and /^(sh|i\d86)/ !~ $arch)
     objs = objs.collect {|s| s.tr('/', '\\')}
-    filetype = nil
+    libname = RbConfig::CONFIG["LIBRUBY_A"]
+    libname[/\.lib$/]=""
+    publics = false
+    started = false
+    finished = false
     objdump(objs) do |l|
-      if (filetype = l[/^File Type: (.+)/, 1])..(/^\f/ =~ l)
-        case filetype
+      next if finished
+      l.chomp!
+      finished ||= started && l == ""
+      started ||= publics && l != ""
+      publics ||= /^\s+Address\s+Publics by Value\s+Rva\+Base\s+Lib:Object$/.match?(l)
+
+      if started
+        /\A\s+\h+:\h+\s+(#{noprefix ? "" : "_"}[a-zA-Z_]\w+#{noprefix ? "" : /(?:@\d+)?/})\s+\h+(?:\s+(f)\s+|\s*)(?:#{libname}:[\w-]+\.[\w-]+|<common>)\z/.match(l) do |m|
+          sym, f = m[1], m[2]
+          if !noprefix && /^[@_]/.match?(sym) && !/@\d+$/.match?(sym)
+            sym.sub!(/^[@_]/, '')
+          end
+          next if /\A_[^@]*\z|#{PrivateNames}/o.match?(sym)
+          next if /@[[:xdigit:]]{8,32}\z/.match?(sym)
+          yield sym, f != "f"
+        end
+      end
+      next
+
+      symbols ||= /^\s*\d+\spublic symbols$/.match? l
+      symbols &&= !(/^Archive member name/.match? l)
+      if symbols
+        l.chomp!
+        next if l == ""
+
+        /^\s*\h+\s(#{noprefix ? "" : "_"}[a-zA-Z_]\w+)$/.match(l) do |m|
+          is_data = ""
+          next if /^_?#{PrivateNames}/o.match?(m[1])
+          yield m[1], nil
+        end
+        next
+
+        case symbols
         when /OBJECT/, /LIBRARY/
-          l.chomp!
           next if (/^ .*\(pick any\)$/ =~ l)...true
           next if /^[[:xdigit:]]+ 0+ UNDEF / =~ l
           next unless /External/ =~ l