Changeset 46


Ignore:
Timestamp:
Mar 4, 2012, 10:35:47 AM (12 years ago)
Author:
chronos
Message:
  • Fixed: Memory leaks in TCompiler and TTarget.
Location:
trunk
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/Compiler/Target/Interpretter/UTargetInterpretter.pas

    r41 r46  
    66
    77uses
    8   Classes, SysUtils, UTarget;
     8  Classes, SysUtils, UTarget, UExecutor;
    99
    1010type
    … …  
    1414  TTargetInterpretter = class(TTarget)
    1515    constructor Create; override;
     16  end;
     17
     18  TExecutorInterpretter = class(TExecutor)
     19
    1620  end;
    1721
    … …  
    2529  SysName := 'Interpretter';
    2630  Name := 'Interpretter';
     31  Executor := TExecutorInterpretter.Create;
    2732end;
    2833

  • trunk/Compiler/UCompiler.pas

    r44 r46  
    8282destructor TCompiler.Destroy;
    8383begin
     84  Analyzer.Free;
    8485  AbstractCode.Free;
    8586  Targets.Free;

  • trunk/Compiler/UTarget.pas

    r41 r46  
    1919    Executor: TExecutor;
    2020    constructor Create; virtual;
     21    destructor Destroy; override;
    2122  end;
    2223
    … …  
    3738end;
    3839
     40destructor TTarget.Destroy;
     41begin
     42  Producer.Free;
     43  Executor.Free;
     44  inherited Destroy;
     45end;
     46
    3947{ TListTarget }
    4048

  • trunk/IDE/Forms/UFormMain.pas

    r45 r46  
    88  SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
    99  UCompiler, Registry, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
    10   UCDManager, UProject, FileUtil, Menus, ActnList, UCDClient, UCDMaster,
    11   UCDConjoinForm, UCDWindowList, UCDLayout, UCDCustomize, UCoolTranslator,
    12   UFormTargetCode, UFormCodeTree, URegistry, ULastOpenedList, UApplicationInfo,
     10  UProject, FileUtil, Menus, ActnList,
     11  UCoolTranslator, UFormTargetCode, UFormCodeTree, URegistry, ULastOpenedList, UApplicationInfo,
    1312  UDebugLog;
    1413
    … …  
    335334
    336335procedure TFormMain.DockInit;
    337 var
    338   Container1: TCDConjoinForm;
    339   Container2: TCDConjoinForm;
     336//var
     337  //Container1: TCDConjoinForm;
     338  //Container2: TCDConjoinForm;
    340339begin
    341340  FormSourceCode.ManualDock(TabSheetSource, nil, alClient);

  • trunk/IDE/Forms/UFormMessages.pas

    r45 r46  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   ComCtrls, UCDClient, UProject, UCompiler;
     9  ComCtrls, UProject, UCompiler;
    1010
    1111type

  • trunk/IDE/Forms/UFormSourceCode.pas

    r45 r46  
    66
    77uses
    8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, UCDClient,
     8  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
    99  SynEdit, SynHighlighterPas, UProject;
    1010

  • trunk/IDE/Forms/UFormTargetCode.pas

    r45 r46  
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, SynEdit,
    99  SynHighlighterMulti, SynHighlighterVB, SynHighlighterPas, SynHighlighterCpp,
    10   SynHighlighterXML, UCDClient;
     10  SynHighlighterXML;
    1111
    1212type

  • trunk/IDE/Transpascal.lpi

    r45 r46  
    8080      </local>
    8181    </RunParams>
    82     <RequiredPackages Count="8">
     82    <RequiredPackages Count="7">
    8383      <Item1>
    8484        <PackageName Value="Common"/>
    … …  
    9999      </Item5>
    100100      <Item6>
    101         <PackageName Value="CoolDocking"/>
     101        <PackageName Value="SynEdit"/>
     102        <MinVersion Major="1" Valid="True"/>
    102103      </Item6>
    103104      <Item7>
    104         <PackageName Value="SynEdit"/>
    105         <MinVersion Major="1" Valid="True"/>
     105        <PackageName Value="LCL"/>
    106106      </Item7>
    107       <Item8>
    108         <PackageName Value="LCL"/>
    109       </Item8>
    110107    </RequiredPackages>
    111108    <Units Count="14">
Note: See TracChangeset for help on using the changeset viewer.