Преглед изворни кода

* add procsyms from exports also to deffile if user explicitly asked for one

Sven/Sarah Barth пре 11 месеци
родитељ
комит
cc063e7a9c
1 измењених фајлова са 5 додато и 1 уклоњено
  1. 5 1
      compiler/pexports.pas

+ 5 - 1
compiler/pexports.pas

@@ -194,7 +194,11 @@ implementation
                              try_to_consume(_LAST);
                          end;
                      end;
-                    if (DefString<>'') and UseDeffileForExports then
+                    if (DefString<>'') and
+                        (
+                          UseDeffileForExports or
+                          (cs_link_deffile in current_settings.globalswitches)
+                        ) then
                      DefFile.AddExport(DefString);
                   end;
                 // consumed the symbol. Only do something if there was no error.