* Avoid memory leak in TExportLibWin.preparelib

git-svn-id: trunk@5546 -

compiler/systems/t_win.pas

@@ -581,14 +581,16 @@ implementation
         EList_nonindexed.Free;
         inherited;
       end;
-      
-    
+
+
     procedure TExportLibWin.preparelib(const s:string);
       begin
          if current_asmdata.asmlists[al_exports]=nil then
            current_asmdata.asmlists[al_exports]:=TAsmList.create;
-         EList_indexed:=tFPList.Create;
-         EList_nonindexed:=tFPList.Create;
+         if EList_indexed=nil then
+           EList_indexed:=tFPList.Create;
+         if EList_nonindexed=nil then
+           EList_nonindexed:=tFPList.Create;
       end;