|
@@ -1406,7 +1406,7 @@ type
|
|
begin
|
|
begin
|
|
if token=_ID then
|
|
if token=_ID then
|
|
begin
|
|
begin
|
|
- module_name:=pattern;
|
|
|
|
|
|
+ module_name:=orgpattern;
|
|
consume(_ID);
|
|
consume(_ID);
|
|
while token=_POINT do
|
|
while token=_POINT do
|
|
begin
|
|
begin
|
|
@@ -1500,6 +1500,8 @@ type
|
|
loaded_units.remove(hp2);
|
|
loaded_units.remove(hp2);
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+ exportlib.ignoreduplicates:=true;
|
|
|
|
+
|
|
{ force exports }
|
|
{ force exports }
|
|
uu:=tused_unit(usedunits.first);
|
|
uu:=tused_unit(usedunits.first);
|
|
while assigned(uu) do
|
|
while assigned(uu) do
|
|
@@ -1522,9 +1524,7 @@ type
|
|
|
|
|
|
exportlib.generatelib;
|
|
exportlib.generatelib;
|
|
|
|
|
|
- { write all our exports to the import library,
|
|
|
|
- needs to be done after exportlib.generatelib; }
|
|
|
|
- createimportlibfromexports;
|
|
|
|
|
|
+ exportlib.ignoreduplicates:=false;
|
|
|
|
|
|
{ generate imports }
|
|
{ generate imports }
|
|
if current_module.ImportLibraryList.Count>0 then
|
|
if current_module.ImportLibraryList.Count>0 then
|