Changeset 12 for trunk/IDE


Ignore:
Timestamp:
Nov 8, 2010, 10:06:37 AM (14 years ago)
Author:
george
Message:
  • Parser renamed to Analyzer.
  • Modified: Specialized parsers and analyzers separated from compiler for purpose of creating custom parsers and analyzers. Units UParsers and UAnalyzers determine which classes will be really used.
Location:
trunk/IDE
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/IDE

    • Property svn:ignore set to
      lib

  • trunk/IDE/Forms/UCodeTreeForm.pas

    r2 r12  
    11unit UCodeTreeForm;
    22
    3 {$mode objfpc}{$H+}
     3{$mode Delphi}{$H+}
    44
    55interface

  • trunk/IDE/Forms/UCompiledForm.pas

    r2 r12  
    11unit UCompiledForm;
    22
    3 {$mode objfpc}{$H+}
     3{$mode Delphi}{$H+}
    44
    55interface

  • trunk/IDE/Forms/UMainForm.lfm

    r2 r12  
    55  Width = 695
    66  Caption = 'Transpascal IDE'
    7   ClientHeight = 476
     7  ClientHeight = 482
    88  ClientWidth = 695
    99  Font.Height = -11
    … …  
    2020    Left = 0
    2121    Height = 5
    22     Top = 471
     22    Top = 477
    2323    Width = 695
    2424    Align = alBottom
    … …  
    2727  object DockPanel: TPanel
    2828    Left = 0
    29     Height = 445
     29    Height = 451
    3030    Top = 26
    3131    Width = 695
    … …  
    4141    Caption = 'ToolBar1'
    4242    TabOrder = 2
    43     object ComboBoxTargetSelection: TComboBox
     43    object ComboBoxProducer: TComboBox
    4444      Left = 192
    45       Height = 24
     45      Height = 21
    4646      Top = 2
    4747      Width = 135
    4848      Align = alLeft
    49       ItemHeight = 0
     49      ItemHeight = 13
    5050      ItemIndex = 1
    5151      Items.Strings = (
    … …  
    5555        'XML'
    5656      )
    57       OnChange = ComboBoxTargetSelectionChange
     57      OnChange = ComboBoxProducerChange
    5858      Style = csDropDownList
    5959      TabOrder = 0
    … …  
    7373      Height = 24
    7474      Top = 2
    75       Width = 122
     75      Width = 105
    7676      Align = alLeft
    7777      Caption = 'Log parsing to file'
    7878      TabOrder = 2
    7979    end
    80     object ComboBoxAnalyzerType: TComboBox
     80    object ComboBoxAnalyzer: TComboBox
    8181      Left = 40
    82       Height = 24
     82      Height = 21
    8383      Top = 2
    8484      Width = 124
    8585      Align = alLeft
    86       ItemHeight = 0
     86      ItemHeight = 13
    8787      Style = csDropDownList
    8888      TabOrder = 3

  • trunk/IDE/Forms/UMainForm.pas

    r10 r12  
    3030    Button1: TButton;
    3131    CheckBoxLogParsing: TCheckBox;
    32     ComboBoxAnalyzerType: TComboBox;
    33     ComboBoxTargetSelection: TComboBox;
     32    ComboBoxAnalyzer: TComboBox;
     33    ComboBoxProducer: TComboBox;
    3434    CoolDockClient1: TCoolDockClient;
    3535    CoolDockMaster1: TCoolDockMaster;
    … …  
    5555    procedure AProjectSaveAsExecute(Sender: TObject);
    5656    procedure ComboBox1Change(Sender: TObject);
    57     procedure ComboBoxTargetSelectionChange(Sender: TObject);
     57    procedure ComboBoxProducerChange(Sender: TObject);
    5858    procedure FormShow(Sender: TObject);
    5959    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    … …  
    9191begin
    9292  // Compile project file
    93   if CheckBoxLogParsing.Checked then
    94      Compiler.Parser.OnDebugLog := CompilerDebugLog
    95      else Compiler.Parser.OnDebugLog := nil;
    96   Compiler.ProducerType := TProducerType(ComboBoxTargetSelection.ItemIndex);
    97   Compiler.Init;
    98   Compiler.Parser.OnGetSource := GetSource;
    99 
    100   if Project.Items.Count > 0 then
    101   with TProjectFile(Project.Items[0]) do begin
    102     Compiler.TargetFolder := Project.RootDir;
    103     Compiler.Compile(Parent.GetDir + ExtractFileNameOnly(Name), Source);
    104   end;
    105 
    106   ProjectManager.TreeViewProjectChange(Self, ProjectManager.TreeViewProject.Selected);
    107   MessagesForm.Reload;
     93  if (ComboBoxAnalyzer.Items.Count > 0) and (ComboBoxAnalyzer.ItemIndex <> -1) and
     94    (ComboBoxProducer.Items.Count > 0) and (ComboBoxProducer.ItemIndex <> -1) then begin
     95    Compiler.Producer := Compiler.Producers[ComboBoxProducer.ItemIndex];
     96    Compiler.Analyzer := Compiler.Analyzers[ComboBoxAnalyzer.ItemIndex];
     97    Compiler.Analyzer.OnGetSource := GetSource;
     98    Compiler.Init;
     99
     100    if CheckBoxLogParsing.Checked then
     101      Compiler.Analyzer.OnDebugLog := CompilerDebugLog
     102      else Compiler.Analyzer.OnDebugLog := nil;
     103
     104    if Project.Items.Count > 0 then
     105    with TProjectFile(Project.Items[0]) do begin
     106      Compiler.TargetFolder := Project.RootDir;
     107      Compiler.Compile(Parent.GetDir + ExtractFileNameOnly(Name), Source);
     108    end;
     109    ProjectManager.TreeViewProjectChange(Self, ProjectManager.TreeViewProject.Selected);
     110    MessagesForm.Reload;
     111  end;
    108112end;
    109113
    … …  
    163167      OpenKey(RegistryKey, True);
    164168      ReopenLastOpenedFile := ReadBoolWithDefault('ReopenLastOpenedFile', True);
    165       ComboBoxTargetSelection.ItemIndex :=
     169      ComboBoxProducer.ItemIndex :=
    166170        ReadIntegerWithDefault('ProducerType', 0);
    167       ComboBoxAnalyzerType.ItemIndex :=
     171      ComboBoxAnalyzer.ItemIndex :=
    168172        ReadIntegerWithDefault('AnalyzerType', 0);
    169173      CheckBoxLogParsing.Checked := ReadBoolWithDefault('LogParsing', False);
    … …  
    181185      OpenKey(RegistryKey, True);
    182186      WriteBool('ReopenLastOpenedFile', ReopenLastOpenedFile);
    183       WriteInteger('ProducerType', ComboBoxTargetSelection.ItemIndex);
    184       WriteInteger('AnalyzerType', ComboBoxAnalyzerType.ItemIndex);
     187      WriteInteger('ProducerType', ComboBoxProducer.ItemIndex);
     188      WriteInteger('AnalyzerType', ComboBoxAnalyzer.ItemIndex);
    185189      WriteBool('LogParsing', CheckBoxLogParsing.Checked);
    186190    finally
    … …  
    208212procedure TMainForm.FormCreate(Sender: TObject);
    209213var
    210   ProducerType: TProducerType;
    211   AnalyzerType: TAnalyzerType;
     214  I: Integer;
    212215begin
    213216  DebugLog.FileName := 'DebugLog.txt';
    … …  
    219222  LastOpenedFiles.ClickAction := OpenRecentClick;
    220223
    221   ComboBoxTargetSelection.Clear;
    222   for ProducerType := Low(ProducerType) to High(ProducerType) do
    223     ComboBoxTargetSelection.AddItem(ProducerTypeName[ProducerType], nil);
    224   ComboBoxAnalyzerType.Clear;
    225   for AnalyzerType := Low(AnalyzerType) to High(AnalyzerType) do
    226     ComboBoxAnalyzerType.AddItem(AnalyzerTypeName[AnalyzerType], nil);
     224  ComboBoxProducer.Clear;
     225  for I := 0 to Compiler.Producers.Count - 1 do
     226    ComboBoxProducer.AddItem(Compiler.Producers[I].Name, nil);
     227  ComboBoxAnalyzer.Clear;
     228  for I := 0 to Compiler.Analyzers.Count - 1 do
     229    ComboBoxAnalyzer.AddItem(Compiler.Analyzers[I].Name, nil);
    227230end;
    228231
    … …  
    283286end;
    284287
    285 procedure TMainForm.ComboBoxTargetSelectionChange(Sender: TObject);
     288procedure TMainForm.ComboBoxProducerChange(Sender: TObject);
    286289begin
    287290  ABuildExecute(Self);

  • trunk/IDE/Transpascal.lpi

    r10 r12  
    5353      </Item5>
    5454    </RequiredPackages>
    55     <Units Count="49">
     55    <Units Count="64">
    5656      <Unit0>
    5757        <Filename Value="Transpascal.lpr"/>
    … …  
    7171        <ResourceBaseClass Value="Form"/>
    7272        <UnitName Value="UMainForm"/>
    73         <EditorIndex Value="1"/>
     73        <EditorIndex Value="0"/>
    7474        <WindowIndex Value="0"/>
    7575        <TopLine Value="90"/>
    76         <CursorPos X="30" Y="104"/>
     76        <CursorPos X="1" Y="104"/>
    7777        <UsageCount Value="215"/>
    7878        <Loaded Value="True"/>
     79        <LoadedDesigner Value="True"/>
    7980        <DefaultSyntaxHighlighter Value="Delphi"/>
    8081      </Unit1>
    … …  
    181182        <IsPartOfProject Value="True"/>
    182183        <UnitName Value="UProject"/>
    183         <EditorIndex Value="14"/>
    184         <WindowIndex Value="0"/>
    185         <TopLine Value="2"/>
    186         <CursorPos X="30" Y="18"/>
     184        <EditorIndex Value="2"/>
     185        <WindowIndex Value="0"/>
     186        <TopLine Value="255"/>
     187        <CursorPos X="1" Y="269"/>
    187188        <UsageCount Value="223"/>
    188189        <Loaded Value="True"/>
    … …  
    200201        <Filename Value="Compiler\UCompiler.pas"/>
    201202        <UnitName Value="UCompiler"/>
    202         <EditorIndex Value="3"/>
    203203        <WindowIndex Value="0"/>
    204204        <TopLine Value="70"/>
    205205        <CursorPos X="53" Y="92"/>
    206206        <UsageCount Value="102"/>
    207         <Loaded Value="True"/>
    208207      </Unit16>
    209208      <Unit17>
    210209        <Filename Value="Compiler\USourceCode.pas"/>
    211210        <UnitName Value="USourceCode"/>
    212         <EditorIndex Value="0"/>
    213211        <WindowIndex Value="0"/>
    214212        <TopLine Value="3"/>
    215213        <CursorPos X="32" Y="17"/>
    216214        <UsageCount Value="103"/>
    217         <Loaded Value="True"/>
    218215      </Unit17>
    219216      <Unit18>
    220217        <Filename Value="Compiler\Analyze\UParser.pas"/>
    221218        <UnitName Value="UParser"/>
    222         <EditorIndex Value="2"/>
    223219        <WindowIndex Value="0"/>
    224220        <TopLine Value="45"/>
    225221        <CursorPos X="14" Y="58"/>
    226222        <UsageCount Value="102"/>
    227         <Loaded Value="True"/>
    228223      </Unit18>
    229224      <Unit19>
    … …  
    233228        <ResourceBaseClass Value="Form"/>
    234229        <UnitName Value="UProjectManager"/>
    235         <EditorIndex Value="7"/>
    236230        <WindowIndex Value="0"/>
    237231        <TopLine Value="44"/>
    238232        <CursorPos X="39" Y="57"/>
    239233        <UsageCount Value="207"/>
    240         <Loaded Value="True"/>
    241234        <DefaultSyntaxHighlighter Value="Delphi"/>
    242235      </Unit19>
    … …  
    260253        <UnitName Value="UMessagesForm"/>
    261254        <WindowIndex Value="0"/>
    262         <TopLine Value="1"/>
    263         <CursorPos X="38" Y="76"/>
     255        <TopLine Value="51"/>
     256        <CursorPos X="64" Y="66"/>
    264257        <UsageCount Value="207"/>
    265258        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    272265        <ResourceBaseClass Value="Form"/>
    273266        <UnitName Value="UCompiledForm"/>
     267        <EditorIndex Value="7"/>
    274268        <WindowIndex Value="0"/>
    275269        <TopLine Value="2"/>
    276         <CursorPos X="28" Y="21"/>
     270        <CursorPos X="14" Y="3"/>
    277271        <UsageCount Value="206"/>
     272        <Loaded Value="True"/>
    278273        <DefaultSyntaxHighlighter Value="Delphi"/>
    279274      </Unit22>
    … …  
    284279        <ResourceBaseClass Value="Form"/>
    285280        <UnitName Value="UCodeTreeForm"/>
    286         <WindowIndex Value="0"/>
    287         <TopLine Value="1"/>
    288         <CursorPos X="1" Y="1"/>
     281        <EditorIndex Value="6"/>
     282        <WindowIndex Value="0"/>
     283        <TopLine Value="1"/>
     284        <CursorPos X="14" Y="3"/>
    289285        <UsageCount Value="206"/>
     286        <Loaded Value="True"/>
    290287        <DefaultSyntaxHighlighter Value="Delphi"/>
    291288      </Unit23>
    … …  
    293290        <Filename Value="Compiler\Produce\UProducerTreeView.pas"/>
    294291        <UnitName Value="UProducerTreeView"/>
    295         <EditorIndex Value="12"/>
    296292        <WindowIndex Value="0"/>
    297293        <TopLine Value="141"/>
    298294        <CursorPos X="93" Y="154"/>
    299295        <UsageCount Value="80"/>
    300         <Loaded Value="True"/>
    301296      </Unit24>
    302297      <Unit25>
    … …  
    333328        <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    334329        <UnitName Value="UProducerDynamicC"/>
    335         <EditorIndex Value="11"/>
    336330        <WindowIndex Value="0"/>
    337331        <TopLine Value="268"/>
    338332        <CursorPos X="39" Y="283"/>
    339333        <UsageCount Value="113"/>
    340         <Loaded Value="True"/>
    341334      </Unit28>
    342335      <Unit29>
    343336        <Filename Value="Compiler\Produce\UProducerAsm8051.pas"/>
    344337        <UnitName Value="UProducerAsm8051"/>
    345         <EditorIndex Value="13"/>
    346338        <WindowIndex Value="0"/>
    347339        <TopLine Value="143"/>
    348340        <CursorPos X="68" Y="156"/>
    349341        <UsageCount Value="77"/>
    350         <Loaded Value="True"/>
    351342      </Unit29>
    352343      <Unit30>
    353344        <Filename Value="Compiler\Produce\UProducerPascal.pas"/>
    354345        <UnitName Value="UProducerPascal"/>
    355         <EditorIndex Value="9"/>
    356346        <WindowIndex Value="0"/>
    357347        <TopLine Value="309"/>
    358348        <CursorPos X="64" Y="322"/>
    359349        <UsageCount Value="110"/>
    360         <Loaded Value="True"/>
    361350      </Unit30>
    362351      <Unit31>
    363352        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    364353        <UnitName Value="UPascalParser"/>
    365         <IsVisibleTab Value="True"/>
    366         <EditorIndex Value="8"/>
    367354        <WindowIndex Value="0"/>
    368355        <TopLine Value="266"/>
    369356        <CursorPos X="32" Y="279"/>
    370357        <UsageCount Value="110"/>
    371         <Loaded Value="True"/>
    372358      </Unit31>
    373359      <Unit32>
    … …  
    407393        <Filename Value="Compiler\Produce\UProducerGCCC.pas"/>
    408394        <UnitName Value="UProducerGCCC"/>
    409         <EditorIndex Value="6"/>
    410395        <WindowIndex Value="0"/>
    411396        <TopLine Value="26"/>
    412397        <CursorPos X="14" Y="39"/>
    413398        <UsageCount Value="107"/>
    414         <Loaded Value="True"/>
    415399      </Unit36>
    416400      <Unit37>
    … …  
    488472      <Unit46>
    489473        <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    490         <EditorIndex Value="5"/>
    491         <WindowIndex Value="0"/>
    492         <TopLine Value="71"/>
    493         <CursorPos X="1" Y="85"/>
     474        <WindowIndex Value="0"/>
     475        <TopLine Value="1"/>
     476        <CursorPos X="60" Y="13"/>
    494477        <UsageCount Value="78"/>
    495         <Loaded Value="True"/>
    496478      </Unit46>
    497479      <Unit47>
    498480        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\sysutils\sysstrh.inc"/>
    499         <EditorIndex Value="10"/>
    500481        <WindowIndex Value="0"/>
    501482        <TopLine Value="107"/>
    502483        <CursorPos X="10" Y="120"/>
    503484        <UsageCount Value="78"/>
    504         <Loaded Value="True"/>
    505485      </Unit47>
    506486      <Unit48>
    507487        <Filename Value="Compiler\Produce\UProducer.pas"/>
    508488        <UnitName Value="UProducer"/>
    509         <EditorIndex Value="4"/>
    510489        <WindowIndex Value="0"/>
    511490        <TopLine Value="1"/>
    512491        <CursorPos X="1" Y="12"/>
    513492        <UsageCount Value="77"/>
    514         <Loaded Value="True"/>
    515493      </Unit48>
     494      <Unit49>
     495        <Filename Value="..\Compiler\UCompiler.pas"/>
     496        <UnitName Value="UCompiler"/>
     497        <EditorIndex Value="3"/>
     498        <WindowIndex Value="0"/>
     499        <TopLine Value="61"/>
     500        <CursorPos X="21" Y="76"/>
     501        <UsageCount Value="12"/>
     502        <Loaded Value="True"/>
     503      </Unit49>
     504      <Unit50>
     505        <Filename Value="..\Compiler\Produce\UProducer.pas"/>
     506        <UnitName Value="UProducer"/>
     507        <EditorIndex Value="10"/>
     508        <WindowIndex Value="0"/>
     509        <TopLine Value="1"/>
     510        <CursorPos X="32" Y="41"/>
     511        <UsageCount Value="11"/>
     512        <Loaded Value="True"/>
     513      </Unit50>
     514      <Unit51>
     515        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     516        <UnitName Value="UAnalyzer"/>
     517        <EditorIndex Value="4"/>
     518        <WindowIndex Value="0"/>
     519        <TopLine Value="22"/>
     520        <CursorPos X="14" Y="77"/>
     521        <UsageCount Value="11"/>
     522        <Loaded Value="True"/>
     523      </Unit51>
     524      <Unit52>
     525        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     526        <UnitName Value="UAnalyzerPascal"/>
     527        <IsVisibleTab Value="True"/>
     528        <EditorIndex Value="9"/>
     529        <WindowIndex Value="0"/>
     530        <TopLine Value="10"/>
     531        <CursorPos X="68" Y="29"/>
     532        <UsageCount Value="11"/>
     533        <Loaded Value="True"/>
     534      </Unit52>
     535      <Unit53>
     536        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
     537        <UnitName Value="UProducerPascal"/>
     538        <EditorIndex Value="5"/>
     539        <WindowIndex Value="0"/>
     540        <TopLine Value="50"/>
     541        <CursorPos X="20" Y="54"/>
     542        <UsageCount Value="11"/>
     543        <Loaded Value="True"/>
     544      </Unit53>
     545      <Unit54>
     546        <Filename Value="..\Compiler\Produce\UProducerDynamicC.pas"/>
     547        <UnitName Value="UProducerDynamicC"/>
     548        <WindowIndex Value="0"/>
     549        <TopLine Value="54"/>
     550        <CursorPos X="23" Y="58"/>
     551        <UsageCount Value="10"/>
     552      </Unit54>
     553      <Unit55>
     554        <Filename Value="..\Compiler\Produce\UProducerAsm8051.pas"/>
     555        <UnitName Value="UProducerAsm8051"/>
     556        <WindowIndex Value="0"/>
     557        <TopLine Value="107"/>
     558        <CursorPos X="22" Y="110"/>
     559        <UsageCount Value="10"/>
     560      </Unit55>
     561      <Unit56>
     562        <Filename Value="..\Compiler\Produce\UProducerGCCC.pas"/>
     563        <UnitName Value="UProducerGCCC"/>
     564        <WindowIndex Value="0"/>
     565        <TopLine Value="54"/>
     566        <CursorPos X="30" Y="68"/>
     567        <UsageCount Value="10"/>
     568      </Unit56>
     569      <Unit57>
     570        <Filename Value="..\Compiler\USourceCode.pas"/>
     571        <UnitName Value="USourceCode"/>
     572        <EditorIndex Value="8"/>
     573        <WindowIndex Value="0"/>
     574        <TopLine Value="436"/>
     575        <CursorPos X="3" Y="449"/>
     576        <UsageCount Value="11"/>
     577        <Loaded Value="True"/>
     578      </Unit57>
     579      <Unit58>
     580        <Filename Value="..\Compiler\TranspascalCompiler.pas"/>
     581        <UnitName Value="TranspascalCompiler"/>
     582        <WindowIndex Value="0"/>
     583        <TopLine Value="1"/>
     584        <CursorPos X="55" Y="19"/>
     585        <UsageCount Value="10"/>
     586      </Unit58>
     587      <Unit59>
     588        <Filename Value="..\Compiler\Analyze\UGrammer.pas"/>
     589        <UnitName Value="UGrammer"/>
     590        <WindowIndex Value="0"/>
     591        <TopLine Value="1"/>
     592        <CursorPos X="26" Y="5"/>
     593        <UsageCount Value="10"/>
     594      </Unit59>
     595      <Unit60>
     596        <Filename Value="..\Compiler\Analyze\UAnalyzers.pas"/>
     597        <UnitName Value="UAnalyzers"/>
     598        <EditorIndex Value="11"/>
     599        <WindowIndex Value="0"/>
     600        <TopLine Value="1"/>
     601        <CursorPos X="37" Y="12"/>
     602        <UsageCount Value="11"/>
     603        <Loaded Value="True"/>
     604      </Unit60>
     605      <Unit61>
     606        <Filename Value="..\Compiler\Produce\UProducers.pas"/>
     607        <UnitName Value="UProducers"/>
     608        <EditorIndex Value="12"/>
     609        <WindowIndex Value="0"/>
     610        <TopLine Value="1"/>
     611        <CursorPos X="14" Y="3"/>
     612        <UsageCount Value="11"/>
     613        <Loaded Value="True"/>
     614      </Unit61>
     615      <Unit62>
     616        <Filename Value="E:\Programy\Lazarus\lcl\stdctrls.pp"/>
     617        <UnitName Value="StdCtrls"/>
     618        <WindowIndex Value="0"/>
     619        <TopLine Value="438"/>
     620        <CursorPos X="3" Y="406"/>
     621        <UsageCount Value="10"/>
     622      </Unit62>
     623      <Unit63>
     624        <Filename Value="E:\Programy\Lazarus\lcl\include\fileutil.inc"/>
     625        <EditorIndex Value="1"/>
     626        <WindowIndex Value="0"/>
     627        <TopLine Value="628"/>
     628        <CursorPos X="1" Y="649"/>
     629        <UsageCount Value="10"/>
     630        <Loaded Value="True"/>
     631      </Unit63>
    516632    </Units>
    517633    <JumpHistory Count="30" HistoryIndex="29">
    518634      <Position1>
    519         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    520         <Caret Line="8" Column="69" TopLine="6"/>
     635        <Filename Value="..\Compiler\UCompiler.pas"/>
     636        <Caret Line="119" Column="1" TopLine="104"/>
    521637      </Position1>
    522638      <Position2>
    523         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    524         <Caret Line="38" Column="34" TopLine="25"/>
     639        <Filename Value="Forms\UMainForm.pas"/>
     640        <Caret Line="100" Column="1" TopLine="90"/>
    525641      </Position2>
    526642      <Position3>
    527         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    528         <Caret Line="241" Column="68" TopLine="228"/>
     643        <Filename Value="Forms\UMainForm.pas"/>
     644        <Caret Line="102" Column="1" TopLine="90"/>
    529645      </Position3>
    530646      <Position4>
    531         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    532         <Caret Line="277" Column="48" TopLine="264"/>
     647        <Filename Value="Forms\UMainForm.pas"/>
     648        <Caret Line="104" Column="1" TopLine="90"/>
    533649      </Position4>
    534650      <Position5>
    535         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    536         <Caret Line="308" Column="49" TopLine="295"/>
     651        <Filename Value="..\Compiler\UCompiler.pas"/>
     652        <Caret Line="74" Column="1" TopLine="61"/>
    537653      </Position5>
    538654      <Position6>
    539         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    540         <Caret Line="398" Column="17" TopLine="395"/>
     655        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     656        <Caret Line="218" Column="1" TopLine="205"/>
    541657      </Position6>
    542658      <Position7>
    543         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    544         <Caret Line="401" Column="14" TopLine="395"/>
     659        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     660        <Caret Line="219" Column="1" TopLine="205"/>
    545661      </Position7>
    546662      <Position8>
    547         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    548         <Caret Line="398" Column="17" TopLine="395"/>
     663        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     664        <Caret Line="220" Column="1" TopLine="205"/>
    549665      </Position8>
    550666      <Position9>
    551         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    552         <Caret Line="431" Column="24" TopLine="426"/>
     667        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     668        <Caret Line="221" Column="1" TopLine="205"/>
    553669      </Position9>
    554670      <Position10>
    555         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    556         <Caret Line="426" Column="57" TopLine="426"/>
     671        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     672        <Caret Line="222" Column="1" TopLine="205"/>
    557673      </Position10>
    558674      <Position11>
    559         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    560         <Caret Line="449" Column="17" TopLine="429"/>
     675        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     676        <Caret Line="223" Column="1" TopLine="205"/>
    561677      </Position11>
    562678      <Position12>
    563         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    564         <Caret Line="1274" Column="15" TopLine="1251"/>
     679        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     680        <Caret Line="224" Column="1" TopLine="205"/>
    565681      </Position12>
    566682      <Position13>
    567         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    568         <Caret Line="1277" Column="14" TopLine="1253"/>
     683        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     684        <Caret Line="225" Column="1" TopLine="205"/>
    569685      </Position13>
    570686      <Position14>
    571         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    572         <Caret Line="449" Column="11" TopLine="435"/>
     687        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     688        <Caret Line="226" Column="1" TopLine="205"/>
    573689      </Position14>
    574690      <Position15>
    575         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    576         <Caret Line="442" Column="27" TopLine="435"/>
     691        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     692        <Caret Line="227" Column="1" TopLine="206"/>
    577693      </Position15>
    578694      <Position16>
    579         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    580         <Caret Line="453" Column="55" TopLine="444"/>
     695        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     696        <Caret Line="228" Column="1" TopLine="207"/>
    581697      </Position16>
    582698      <Position17>
    583         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    584         <Caret Line="455" Column="43" TopLine="438"/>
     699        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     700        <Caret Line="229" Column="1" TopLine="208"/>
    585701      </Position17>
    586702      <Position18>
    587         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    588         <Caret Line="6" Column="43" TopLine="1"/>
     703        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     704        <Caret Line="230" Column="1" TopLine="209"/>
    589705      </Position18>
    590706      <Position19>
    591         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    592         <Caret Line="82" Column="21" TopLine="69"/>
     707        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     708        <Caret Line="231" Column="1" TopLine="210"/>
    593709      </Position19>
    594710      <Position20>
    595         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    596         <Caret Line="398" Column="14" TopLine="390"/>
     711        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     712        <Caret Line="235" Column="1" TopLine="214"/>
    597713      </Position20>
    598714      <Position21>
    599         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    600         <Caret Line="399" Column="19" TopLine="390"/>
     715        <Filename Value="..\Compiler\UCompiler.pas"/>
     716        <Caret Line="76" Column="1" TopLine="61"/>
    601717      </Position21>
    602718      <Position22>
    603         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    604         <Caret Line="403" Column="68" TopLine="390"/>
     719        <Filename Value="..\Compiler\UCompiler.pas"/>
     720        <Caret Line="77" Column="1" TopLine="61"/>
    605721      </Position22>
    606722      <Position23>
    607         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    608         <Caret Line="35" Column="32" TopLine="30"/>
     723        <Filename Value="Forms\UMainForm.pas"/>
     724        <Caret Line="96" Column="1" TopLine="90"/>
    609725      </Position23>
    610726      <Position24>
    611         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    612         <Caret Line="418" Column="29" TopLine="403"/>
     727        <Filename Value="Forms\UMainForm.pas"/>
     728        <Caret Line="97" Column="1" TopLine="90"/>
    613729      </Position24>
    614730      <Position25>
    615         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    616         <Caret Line="399" Column="18" TopLine="386"/>
     731        <Filename Value="Forms\UMainForm.pas"/>
     732        <Caret Line="98" Column="1" TopLine="90"/>
    617733      </Position25>
    618734      <Position26>
    619         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    620         <Caret Line="35" Column="90" TopLine="22"/>
     735        <Filename Value="Forms\UMainForm.pas"/>
     736        <Caret Line="100" Column="1" TopLine="90"/>
    621737      </Position26>
    622738      <Position27>
    623         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    624         <Caret Line="403" Column="100" TopLine="403"/>
     739        <Filename Value="Forms\UMainForm.pas"/>
     740        <Caret Line="102" Column="1" TopLine="90"/>
    625741      </Position27>
    626742      <Position28>
    627         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    628         <Caret Line="269" Column="46" TopLine="258"/>
     743        <Filename Value="Forms\UMainForm.pas"/>
     744        <Caret Line="104" Column="1" TopLine="90"/>
    629745      </Position28>
    630746      <Position29>
    631         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    632         <Caret Line="266" Column="63" TopLine="258"/>
     747        <Filename Value="..\Compiler\UCompiler.pas"/>
     748        <Caret Line="74" Column="1" TopLine="61"/>
    633749      </Position29>
    634750      <Position30>
    635         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    636         <Caret Line="276" Column="39" TopLine="263"/>
     751        <Filename Value="..\Compiler\UCompiler.pas"/>
     752        <Caret Line="76" Column="21" TopLine="61"/>
    637753      </Position30>
    638754    </JumpHistory>
    … …  
    677793  </CompilerOptions>
    678794  <Debugging>
     795    <BreakPoints Count="2">
     796      <Item1>
     797        <Source Value="Forms\UMainForm.pas"/>
     798        <Line Value="96"/>
     799      </Item1>
     800      <Item2>
     801        <Source Value="..\Compiler\UCompiler.pas"/>
     802        <Line Value="74"/>
     803      </Item2>
     804    </BreakPoints>
    679805    <Exceptions Count="3">
    680806      <Item1>
Note: See TracChangeset for help on using the changeset viewer.