Changeset 14


Ignore:
Timestamp:
Nov 8, 2010, 12:58:47 PM (14 years ago)
Author:
george
Message:
  • Added: SINGLE_PRODUCER keyword for exclude other producers form compilation.
Location:
trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Compiler/Produce/UProducers.pas

    r12 r14  
    77uses
    88  Classes, SysUtils,
    9   UProducerPascal,
    10   UProducerDynamicC,
     9  UProducerPascal
     10  {$IFNDEF SINGLE_PRODUCER}
     11  , UProducerDynamicC,
    1112  UProducerAsm8051,
    12   UProducerGCCC;
     13  UProducerGCCC
     14  {$ENDIF}
     15  ;
    1316
    1417procedure RegisterProducers(Compiler: TObject);
    … …  
    2326  with TCompiler(Compiler).Producers do begin
    2427    Add(TProducerPascal.Create);
     28    {$IFNDEF SINGLE_PRODUCER}
    2529    Add(TProducerDynamicC.Create);
    2630    Add(TProducerGCCC.Create);
    2731    Add(TProducerAsm8051.Create);
     32    {$ENDIF}
    2833  end;
    2934end;

  • trunk/Compiler/TranspascalCompiler.lpk

    r12 r14  
    1212      </SearchPaths>
    1313      <Other>
     14        <CustomOptions Value="-dSINGLE_PRODUCER"/>
    1415        <CompilerPath Value="$(CompPath)"/>
    1516      </Other>

  • trunk/IDE/Forms/UMainForm.pas

    r12 r14  
    77uses
    88  SysUtils, Variants, Classes, Graphics, Controls, Forms,
    9   Dialogs, StdCtrls, UCompiler, UProducerAsm8051, Registry,
    10   UProducerDynamicC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView,
    11   UProducerPascal, UProject, FileUtil, Menus, ActnList, UCoolDocking,
     9  Dialogs, StdCtrls, UCompiler, Registry,
     10  ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
     11  UProject, FileUtil, Menus, ActnList, UCoolDocking,
    1212  UCompiledForm, UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo,
    1313  UDebugLog;
    … …  
    167167      OpenKey(RegistryKey, True);
    168168      ReopenLastOpenedFile := ReadBoolWithDefault('ReopenLastOpenedFile', True);
    169       ComboBoxProducer.ItemIndex :=
    170         ReadIntegerWithDefault('ProducerType', 0);
    171       ComboBoxAnalyzer.ItemIndex :=
    172         ReadIntegerWithDefault('AnalyzerType', 0);
     169      ComboBoxProducer.ItemIndex := ReadIntegerWithDefault('ProducerType', 0);
     170      with ComboBoxProducer do
     171        if (ItemIndex = -1) and (Items.Count > 0) then ItemIndex := 0;
     172      ComboBoxAnalyzer.ItemIndex := ReadIntegerWithDefault('AnalyzerType', 0);
     173      with ComboBoxAnalyzer do
     174        if (ItemIndex = -1) and (Items.Count > 0) then ItemIndex := 0;
    173175      CheckBoxLogParsing.Checked := ReadBoolWithDefault('LogParsing', False);
    174176    finally

  • trunk/IDE/Transpascal.lpi

    r13 r14  
    7171        <ResourceBaseClass Value="Form"/>
    7272        <UnitName Value="UMainForm"/>
     73        <IsVisibleTab Value="True"/>
    7374        <EditorIndex Value="0"/>
    7475        <WindowIndex Value="0"/>
    75         <TopLine Value="90"/>
    76         <CursorPos X="1" Y="96"/>
     76        <TopLine Value="162"/>
     77        <CursorPos X="28" Y="173"/>
    7778        <UsageCount Value="215"/>
    7879        <Loaded Value="True"/>
    … …  
    495496        <Filename Value="..\Compiler\UCompiler.pas"/>
    496497        <UnitName Value="UCompiler"/>
    497         <IsVisibleTab Value="True"/>
    498498        <EditorIndex Value="3"/>
    499499        <WindowIndex Value="0"/>
    500500        <TopLine Value="61"/>
    501         <CursorPos X="21" Y="64"/>
     501        <CursorPos X="27" Y="66"/>
    502502        <UsageCount Value="12"/>
    503503        <Loaded Value="True"/>
    … …  
    608608        <EditorIndex Value="12"/>
    609609        <WindowIndex Value="0"/>
    610         <TopLine Value="1"/>
    611         <CursorPos X="14" Y="3"/>
     610        <TopLine Value="12"/>
     611        <CursorPos X="55" Y="26"/>
    612612        <UsageCount Value="11"/>
    613613        <Loaded Value="True"/>
    … …  
    633633    <JumpHistory Count="30" HistoryIndex="29">
    634634      <Position1>
     635        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     636        <Caret Line="235" Column="1" TopLine="214"/>
     637      </Position1>
     638      <Position2>
     639        <Filename Value="..\Compiler\UCompiler.pas"/>
     640        <Caret Line="76" Column="1" TopLine="61"/>
     641      </Position2>
     642      <Position3>
     643        <Filename Value="..\Compiler\UCompiler.pas"/>
     644        <Caret Line="77" Column="1" TopLine="61"/>
     645      </Position3>
     646      <Position4>
     647        <Filename Value="Forms\UMainForm.pas"/>
     648        <Caret Line="96" Column="1" TopLine="90"/>
     649      </Position4>
     650      <Position5>
     651        <Filename Value="Forms\UMainForm.pas"/>
     652        <Caret Line="97" Column="1" TopLine="90"/>
     653      </Position5>
     654      <Position6>
     655        <Filename Value="Forms\UMainForm.pas"/>
     656        <Caret Line="98" Column="1" TopLine="90"/>
     657      </Position6>
     658      <Position7>
     659        <Filename Value="Forms\UMainForm.pas"/>
     660        <Caret Line="100" Column="1" TopLine="90"/>
     661      </Position7>
     662      <Position8>
     663        <Filename Value="Forms\UMainForm.pas"/>
     664        <Caret Line="102" Column="1" TopLine="90"/>
     665      </Position8>
     666      <Position9>
     667        <Filename Value="Forms\UMainForm.pas"/>
     668        <Caret Line="104" Column="1" TopLine="90"/>
     669      </Position9>
     670      <Position10>
    635671        <Filename Value="..\Compiler\UCompiler.pas"/>
    636672        <Caret Line="74" Column="1" TopLine="61"/>
    637       </Position1>
    638       <Position2>
    639         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    640         <Caret Line="218" Column="1" TopLine="205"/>
    641       </Position2>
    642       <Position3>
    643         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    644         <Caret Line="219" Column="1" TopLine="205"/>
    645       </Position3>
    646       <Position4>
    647         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    648         <Caret Line="220" Column="1" TopLine="205"/>
    649       </Position4>
    650       <Position5>
    651         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    652         <Caret Line="221" Column="1" TopLine="205"/>
    653       </Position5>
    654       <Position6>
    655         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    656         <Caret Line="222" Column="1" TopLine="205"/>
    657       </Position6>
    658       <Position7>
    659         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    660         <Caret Line="223" Column="1" TopLine="205"/>
    661       </Position7>
    662       <Position8>
    663         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    664         <Caret Line="224" Column="1" TopLine="205"/>
    665       </Position8>
    666       <Position9>
    667         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    668         <Caret Line="225" Column="1" TopLine="205"/>
    669       </Position9>
    670       <Position10>
    671         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    672         <Caret Line="226" Column="1" TopLine="205"/>
    673673      </Position10>
    674674      <Position11>
    675         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    676         <Caret Line="227" Column="1" TopLine="206"/>
     675        <Filename Value="..\Compiler\UCompiler.pas"/>
     676        <Caret Line="76" Column="21" TopLine="61"/>
    677677      </Position11>
    678678      <Position12>
    679         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    680         <Caret Line="228" Column="1" TopLine="207"/>
     679        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     680        <Caret Line="29" Column="68" TopLine="10"/>
    681681      </Position12>
    682682      <Position13>
    683         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    684         <Caret Line="229" Column="1" TopLine="208"/>
     683        <Filename Value="Forms\UMainForm.pas"/>
     684        <Caret Line="96" Column="1" TopLine="90"/>
    685685      </Position13>
    686686      <Position14>
    687         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    688         <Caret Line="230" Column="1" TopLine="209"/>
     687        <Filename Value="..\Compiler\UCompiler.pas"/>
     688        <Caret Line="74" Column="1" TopLine="61"/>
    689689      </Position14>
    690690      <Position15>
    691         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    692         <Caret Line="231" Column="1" TopLine="210"/>
     691        <Filename Value="..\Compiler\UCompiler.pas"/>
     692        <Caret Line="76" Column="1" TopLine="61"/>
    693693      </Position15>
    694694      <Position16>
    695         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    696         <Caret Line="235" Column="1" TopLine="214"/>
     695        <Filename Value="..\Compiler\Produce\UProducers.pas"/>
     696        <Caret Line="29" Column="24" TopLine="7"/>
    697697      </Position16>
    698698      <Position17>
    699         <Filename Value="..\Compiler\UCompiler.pas"/>
    700         <Caret Line="76" Column="1" TopLine="61"/>
     699        <Filename Value="..\Compiler\Produce\UProducers.pas"/>
     700        <Caret Line="27" Column="1" TopLine="7"/>
    701701      </Position17>
    702702      <Position18>
    703         <Filename Value="..\Compiler\UCompiler.pas"/>
    704         <Caret Line="77" Column="1" TopLine="61"/>
     703        <Filename Value="..\Compiler\Produce\UProducers.pas"/>
     704        <Caret Line="29" Column="1" TopLine="8"/>
    705705      </Position18>
    706706      <Position19>
    707         <Filename Value="Forms\UMainForm.pas"/>
    708         <Caret Line="96" Column="1" TopLine="90"/>
     707        <Filename Value="..\Compiler\Produce\UProducers.pas"/>
     708        <Caret Line="10" Column="26" TopLine="9"/>
    709709      </Position19>
    710710      <Position20>
    711         <Filename Value="Forms\UMainForm.pas"/>
    712         <Caret Line="97" Column="1" TopLine="90"/>
     711        <Filename Value="..\Compiler\Produce\UProducers.pas"/>
     712        <Caret Line="27" Column="1" TopLine="9"/>
    713713      </Position20>
    714714      <Position21>
    715         <Filename Value="Forms\UMainForm.pas"/>
    716         <Caret Line="98" Column="1" TopLine="90"/>
     715        <Filename Value="..\Compiler\Produce\UProducers.pas"/>
     716        <Caret Line="29" Column="1" TopLine="9"/>
    717717      </Position21>
    718718      <Position22>
    719         <Filename Value="Forms\UMainForm.pas"/>
    720         <Caret Line="100" Column="1" TopLine="90"/>
     719        <Filename Value="..\Compiler\Produce\UProducers.pas"/>
     720        <Caret Line="28" Column="33" TopLine="9"/>
    721721      </Position22>
    722722      <Position23>
    723         <Filename Value="Forms\UMainForm.pas"/>
    724         <Caret Line="102" Column="1" TopLine="90"/>
     723        <Filename Value="..\Compiler\Produce\UProducers.pas"/>
     724        <Caret Line="29" Column="1" TopLine="9"/>
    725725      </Position23>
    726726      <Position24>
    727         <Filename Value="Forms\UMainForm.pas"/>
    728         <Caret Line="104" Column="1" TopLine="90"/>
     727        <Filename Value="..\Compiler\Produce\UProducers.pas"/>
     728        <Caret Line="20" Column="23" TopLine="9"/>
    729729      </Position24>
    730730      <Position25>
    731         <Filename Value="..\Compiler\UCompiler.pas"/>
    732         <Caret Line="74" Column="1" TopLine="61"/>
     731        <Filename Value="..\Compiler\Produce\UProducers.pas"/>
     732        <Caret Line="29" Column="1" TopLine="9"/>
    733733      </Position25>
    734734      <Position26>
    735         <Filename Value="..\Compiler\UCompiler.pas"/>
    736         <Caret Line="76" Column="21" TopLine="61"/>
     735        <Filename Value="..\Compiler\Produce\UProducers.pas"/>
     736        <Caret Line="11" Column="12" TopLine="9"/>
    737737      </Position26>
    738738      <Position27>
    739         <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    740         <Caret Line="29" Column="68" TopLine="10"/>
     739        <Filename Value="..\Compiler\Produce\UProducers.pas"/>
     740        <Caret Line="22" Column="49" TopLine="9"/>
    741741      </Position27>
    742742      <Position28>
    … …  
    745745      </Position28>
    746746      <Position29>
    747         <Filename Value="..\Compiler\UCompiler.pas"/>
    748         <Caret Line="74" Column="1" TopLine="61"/>
     747        <Filename Value="Forms\UMainForm.pas"/>
     748        <Caret Line="1" Column="1" TopLine="1"/>
    749749      </Position29>
    750750      <Position30>
    751         <Filename Value="..\Compiler\UCompiler.pas"/>
    752         <Caret Line="76" Column="1" TopLine="61"/>
     751        <Filename Value="Forms\UMainForm.pas"/>
     752        <Caret Line="18" Column="29" TopLine="10"/>
    753753      </Position30>
    754754    </JumpHistory>
Note: See TracChangeset for help on using the changeset viewer.