Changeset 64


Ignore:
Timestamp:
Oct 15, 2010, 2:13:42 PM (14 years ago)
Author:
george
Message:
  • Fixed: Focus message position in code.
Location:
branches/Transpascal
Files:
1 added
8 edited

Legend:

Unmodified
Added
Removed

  • branches/Transpascal/Compiler/Analyze/UParser.pas

    r60 r64  
    402402  Expressions := TExpressionList.Create;
    403403  Expressions.Add(TExpression.Create);
    404   with SourceCode do
    405   begin
     404  with SourceCode do begin
    406405    while ((FNextToken <> ';') and (FNextToken <> ',') and
    407406        (not IsKeyWord(FNextToken))) and not
    408       (((FNextToken = ')') or (FNextToken = ']'))) do
    409     begin
     407      (((FNextToken = ')') or (FNextToken = ']'))) do begin
    410408      Identifier := ReadCode;
    411       if Identifier = '(' then
    412       begin
     409      if Identifier = '(' then begin
    413410        // Subexpression
    414         with TExpression(Expressions.Last) do
    415         begin
     411        with TExpression(Expressions.Last) do begin
    416412          SubItems[1] := TExpression.Create;
    417413          ParseExpression(TExpression(SubItems[1]));
    … …  
    423419        end;
    424420        Expect(')');
    425       end
    426       else
    427       if IsOperator(Identifier) then
    428       begin
     421      end else
     422      if IsOperator(Identifier) then begin
    429423        // Operator
    430424        TExpression(Expressions.Last).OperatorName := Identifier;
    431425        TExpression(Expressions.Last).NodeType := ntOperator;
    432       end
    433       else
    434       if IsIdentificator(Identifier) then
    435       begin
     426      end else
     427      if IsIdentificator(Identifier) then begin
    436428        // Reference to identificator
    437429        NewVariable := CommonBlock.Variables.Search(Identifier);
    438         if Assigned(NewVariable) then
    439         begin
     430        if Assigned(NewVariable) then begin
    440431          // Referenced variable
    441           with TExpression(Expressions.Last) do
    442           begin
     432          with TExpression(Expressions.Last) do begin
    443433            SubItems[1] := TExpression.Create;
    444434            TExpression(SubItems[1]).NodeType := ntVariable;
    … …  
    450440            SubItems[0] := TExpression(Expressions[Expressions.Count - 2]).SubItems[1];
    451441          end;
    452         end
    453         else
    454         begin
     442        end else begin
    455443          Method := CommonBlock.Functions.Search(Identifier);
    456444          if Assigned(Method) then
    457445          begin
    458446            // Referenced method
    459             with TExpression(Expressions.Last) do
    460             begin
     447            with TExpression(Expressions.Last) do begin
    461448              SubItems[1] := TExpression.Create;
    462449              if FNextToken = '(' then               // Method with parameters
    463                 with TExpression(SubItems[1]) do
    464                 begin
     450                with TExpression(SubItems[1]) do begin
    465451                  Expect('(');
    466452                  NewExpression := TExpression.Create;
    … …  
    468454                  ParseExpression(NewExpression);
    469455                  SubItems.Add(NewExpression);
    470                   while FNextToken = ',' do
    471                   begin
     456                  while FNextToken = ',' do begin
    472457                    Expect(',');
    473458                    NewExpression := TExpression.Create;
    … …  
    487472                TExpression(Expressions[Expressions.Count - 2]).SubItems[1];
    488473            end;
    489           end
    490           else
    491           begin
     474          end else begin
    492475            Constant := CommonBlock.Constants.Search(Identifier);
    493             if Assigned(Constant) then
    494             begin
     476            if Assigned(Constant) then begin
    495477              // Referenced constant
    496               with TExpression(Expressions.Last) do
    497               begin
     478              with TExpression(Expressions.Last) do begin
    498479                SubItems[1] := TExpression.Create;
    499480                TExpression(SubItems[1]).NodeType := ntConstant;
    … …  
    501482              end;
    502483              with TExpression(Expressions.Items[Expressions.Add(
    503                   TExpression.Create)]) do
    504               begin
     484                  TExpression.Create)]) do begin
    505485                CommonBlock := SourceCode.CommonBlock;
    506486                SubItems[0] :=
    507487                  TExpression(Expressions[Expressions.Count - 2]).SubItems[1];
    508488              end;
    509             end
    510             else
    511             begin
     489            end else begin
    512490              ErrorMessage(SUnknownIdentifier, [Identifier]);
    513491            end;
    514492          end;
    515493        end;
    516       end
    517       else
    518       begin
     494      end else begin
    519495        // Constant value
    520496        with TExpression(Expressions.Last) do
    … …  
    524500          TExpression(SubItems[1]).NodeType := ntConstant;
    525501
    526           if Identifier[1] = '''' then
    527           begin
     502          if Identifier[1] = '''' then begin
    528503            TExpression(SubItems[1]).Value := Identifier;
    529504            //SetLength(TExpression(SubItems[1]).Value, Length(Identifier));
    530505            //for I := 1 to Length(Identifier) do
    531506            //  TExpression(SubItems[1]).Value[I - 1] := Byte(Identifier[I]);
    532           end
    533           else
    534           begin
     507          end else begin
    535508            TExpression(SubItems[1]).Value := Identifier;
    536509          end;
    … …  
    546519
    547520    // Build expression tree
    548     for II := 0 to High(Operators) do
    549     begin
     521    for II := 0 to High(Operators) do begin
    550522      I := 1;
    551       while (I < Expressions.Count - 1) do
    552       begin
     523      while (I < Expressions.Count - 1) do begin
    553524        if not TExpression(Expressions[I]).Associated and
    554525          (TExpression(Expressions[I]).OperatorName = Operators[II]) then
    … …  
    558529          TExpression(Expressions[I + 1]).SubItems[0] := Expressions[I];
    559530          //Expressions.Delete(I);
    560         end
    561         else
    562           Inc(I);
     531        end else Inc(I);
    563532      end;
    564533    end;
    … …  
    569538    if Expressions.Count > 1 then
    570539      TExpression(Expressions[1]).SubItems[0] := nil;
    571     Expressions.Destroy;
     540    Expressions.Free;
    572541  end;
    573542end;
    … …  
    11681137  begin
    11691138    Name := ReadCode;
     1139    if FNextToken = 'in' then begin
     1140      Expect('in');
     1141      Location := ReadCode;
     1142    end else Location := Name + '.pas';
    11701143    Module := SourceCode.ParentModule.ParentProgram.Modules.Search(Name);
    11711144    if not Assigned(Module) then begin
    … …  
    11811154    begin
    11821155      Name := ReadCode;
     1156      if FNextToken = 'in' then begin
     1157        Expect('in');
     1158        Location := ReadCode;
     1159      end else Location := Name + '.pas';
    11831160      Module := SourceCode.ParentModule.ParentProgram.Modules.Search(Name);
    11841161      if not Assigned(Module) then begin

  • branches/Transpascal/Compiler/UCompiler.pas

    r60 r64  
    1818  end;
    1919
    20   { TCompiler }
     20  TCompilerTarget = class
     21    Vendor: string;
     22    Model: string;
     23    Architecture: string;
     24  end;
     25
     26  { TCompilerList }
     27
     28  TCompilerTargetList = class(TObjectList)
     29    procedure Add(Vendor, Model, Architecture: string);
     30  end;
    2131
    2232  TCompiler = class
    … …  
    3040    ErrorMessages: TObjectList;
    3141    CompiledFolder: string;
     42    SupportedTargets: TCompilerTargetList;
     43    Target: TCompilerTarget;
    3244    constructor Create;
     45    destructor Destroy; override;
    3346    procedure Init;
    3447    procedure Compile(ModuleName: string; Source: TStringList);
    35     destructor Destroy; override;
    3648    property OnErrorMessage: TOnErrorMessage read FOnErrorMessage
    3749      write FOnErrorMessage;
    … …  
    6981constructor TCompiler.Create;
    7082begin
     83  SupportedTargets := TCompilerTargetList.Create;
     84  SupportedTargets.Add('AMD', 'Athlon II', 'amd64');
     85  SupportedTargets.Add('Zilog', 'Z80', 'Z80');
     86  SupportedTargets.Add('Rabbit', 'RC3000', 'Z180');
     87  SupportedTargets.Add('Atmel', 'ATmega8', 'AVR');
     88  SupportedTargets.Add('Atmel', 'UC3B0256', 'AVR32');
     89  SupportedTargets.Add('Dallas', 'DS89C450', '8052');
     90
    7191  ProgramCode := TProgram.Create;
    7292  Producer := TProducerC.Create;
    … …  
    89109  Producer.Free;
    90110  ErrorMessages.Free;
     111  SupportedTargets.Free;
    91112end;
    92113
    … …  
    103124end;
    104125
     126{ TCompilerTargetList }
     127
     128procedure TCompilerTargetList.Add(Vendor, Model, Architecture: string);
     129var
     130  NewItem: TCompilerTarget;
     131begin
     132  NewItem := TCompilerTarget.Create;
     133  NewItem.Vendor := Vendor;
     134  NewItem.Model := Model;
     135  NewItem.Architecture := Architecture;
     136  inherited Add(NewItem);
     137end;
     138
    105139end.

  • branches/Transpascal/Compiler/USourceCode.pas

    r60 r64  
    252252  TUsedModule = class
    253253    Name: string;
     254    Location: string;
    254255    Module: TModule;
    255256    Exported: Boolean;

  • branches/Transpascal/Forms/UMainForm.pas

    r63 r64  
    4949    procedure FormCreate(Sender: TObject);
    5050    procedure FormDestroy(Sender: TObject);
    51     procedure ListBoxMessagesClick(Sender: TObject);
    52     procedure Panel2Click(Sender: TObject);
    53     procedure Splitter2CanResize(Sender: TObject; var NewSize: Integer;
    54       var Accept: Boolean);
    5551  private
    5652    procedure LoadErrorMessages;
    … …  
    108104end;
    109105
    110 procedure TMainForm.ListBoxMessagesClick(Sender: TObject);
    111 var
    112   ProjectFile: TProjectFile;
    113 begin
    114   with MessagesForm, CodeForm do
    115   if ListBoxMessages.ItemIndex <> -1 then
    116   with TErrorMessage(Compiler.ErrorMessages[ListBoxMessages.ItemIndex]) do begin
    117     ProjectFile := Project.SearchFile(fileName);
    118     if Assigned(ProjectFile) then
    119       SynEditSource.Lines.Assign(ProjectFile.Source);
    120     SynEditSource.CaretXY := Position;
    121     SynEditSource.SetFocus;
    122   end;
    123 end;
    124 
    125 procedure TMainForm.Panel2Click(Sender: TObject);
    126 begin
    127 
    128 end;
    129 
    130 procedure TMainForm.Splitter2CanResize(Sender: TObject; var NewSize: Integer;
    131   var Accept: Boolean);
    132 begin
    133 
    134 end;
    135 
    136106procedure TMainForm.LoadErrorMessages;
    137107var
    … …  
    263233  NewProjectFile := TProjectFile.Create;
    264234  NewProjectFile.Parent := Project;
    265   NewProjectFile.Name := 'Console.pas';
     235  NewProjectFile.Name := 'MemoryManager.pas';
    266236  Project.Items.Add(NewProjectFile);
    267237

  • branches/Transpascal/Forms/UMessagesForm.lfm

    r61 r64  
    1515    Align = alClient
    1616    ItemHeight = 0
     17    OnSelectionChange = ListBoxMessagesSelectionChange
    1718    TabOrder = 0
    1819  end

  • branches/Transpascal/Forms/UMessagesForm.pas

    r61 r64  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   UCoolDocking;
     9  UCoolDocking, UProject, UCompiler;
    1010
    1111type
    … …  
    1616    CoolDockClient1: TCoolDockClient;
    1717    ListBoxMessages: TListBox;
     18    procedure ListBoxMessagesSelectionChange(Sender: TObject; User: boolean);
    1819  private
    1920    { private declarations }
    … …  
    2930{$R *.lfm}
    3031
     32uses
     33  UMainForm, UCodeForm;
     34
     35{ TMessagesForm }
     36
     37procedure TMessagesForm.ListBoxMessagesSelectionChange(Sender: TObject;
     38  User: boolean);
     39var
     40  ProjectFile: TProjectFile;
     41begin
     42  with MainForm, CodeForm do
     43  if ListBoxMessages.ItemIndex <> -1 then
     44  with TErrorMessage(Compiler.ErrorMessages[ListBoxMessages.ItemIndex]) do begin
     45    ProjectFile := Project.SearchFile(fileName);
     46    if Assigned(ProjectFile) then
     47      SynEditSource.Lines.Assign(ProjectFile.Source);
     48    SynEditSource.CaretXY := Position;
     49    SynEditSource.SetFocus;
     50  end;
     51end;
     52
    3153end.
    3254

  • branches/Transpascal/Project/System.pas

    r63 r64  
    33interface
    44
    5 const
    6   MemoryManagerSizeType: TType = Integer;
    7  
    85type
    96  TType = internal;
    … …  
    2522  TObject = class;
    2623
     24const
     25  MemoryManagerSizeType: TType = Integer;
     26 
     27type
     28  TMemoryManager = record
     29    function Alloc(Size: Integer): Pointer;
     30    function Free(P: Pointer): Integer;
     31    function Realloc(P: Pointer; Size: Integer): Pointer;
     32  end;
    2733  PMemoryManager = ^TMemoryManager;
    28   TMemoryManager<TSizeType: Ordinal> = record
    29     GetMem: function(Size: TSizeType): Pointer;
    30     FreeMem: function(P: Pointer): TSizeType;
    31     ReallocMem: function(P: Pointer; Size: TSizeType): Pointer;
    32   end;
    33   TSystemMemoryManager = TMemoryManager<MemoryManagerSizeType>;
    3434 
    3535  TSystem = record

  • branches/Transpascal/Transpascal.lpi

    r63 r64  
    5151        <IsPartOfProject Value="True"/>
    5252        <UnitName Value="Transpascal"/>
    53         <EditorIndex Value="11"/>
    54         <WindowIndex Value="0"/>
    55         <TopLine Value="2"/>
    56         <CursorPos X="55" Y="27"/>
    57         <UsageCount Value="166"/>
     53        <EditorIndex Value="14"/>
     54        <WindowIndex Value="0"/>
     55        <TopLine Value="4"/>
     56        <CursorPos X="45" Y="17"/>
     57        <UsageCount Value="168"/>
    5858        <Loaded Value="True"/>
    5959        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    6666        <ResourceBaseClass Value="Form"/>
    6767        <UnitName Value="UMainForm"/>
    68         <IsVisibleTab Value="True"/>
    69         <EditorIndex Value="8"/>
    70         <WindowIndex Value="0"/>
    71         <TopLine Value="93"/>
    72         <CursorPos X="57" Y="106"/>
    73         <UsageCount Value="166"/>
     68        <EditorIndex Value="11"/>
     69        <WindowIndex Value="0"/>
     70        <TopLine Value="1"/>
     71        <CursorPos X="22" Y="15"/>
     72        <UsageCount Value="168"/>
    7473        <Loaded Value="True"/>
    7574        <LoadedDesigner Value="True"/>
    … …  
    8382        <TopLine Value="1"/>
    8483        <CursorPos X="1" Y="6"/>
    85         <UsageCount Value="166"/>
     84        <UsageCount Value="168"/>
    8685        <DefaultSyntaxHighlighter Value="Delphi"/>
    8786      </Unit2>
    … …  
    139138        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\packages\fcl-base\src\contnrs.pp"/>
    140139        <UnitName Value="contnrs"/>
    141         <WindowIndex Value="0"/>
    142         <TopLine Value="59"/>
    143         <CursorPos X="3" Y="72"/>
    144         <UsageCount Value="54"/>
     140        <EditorIndex Value="4"/>
     141        <WindowIndex Value="0"/>
     142        <TopLine Value="78"/>
     143        <CursorPos X="14" Y="91"/>
     144        <UsageCount Value="55"/>
     145        <Loaded Value="True"/>
    145146      </Unit9>
    146147      <Unit10>
    … …  
    215216        <IsPartOfProject Value="True"/>
    216217        <UnitName Value="UProject"/>
    217         <WindowIndex Value="0"/>
    218         <TopLine Value="1"/>
     218        <EditorIndex Value="7"/>
     219        <WindowIndex Value="0"/>
     220        <TopLine Value="126"/>
    219221        <CursorPos X="6" Y="1"/>
    220         <UsageCount Value="38"/>
     222        <UsageCount Value="40"/>
     223        <Loaded Value="True"/>
    221224        <DefaultSyntaxHighlighter Value="Delphi"/>
    222225      </Unit19>
    … …  
    235238        <TopLine Value="1"/>
    236239        <CursorPos X="33" Y="1"/>
    237         <UsageCount Value="12"/>
     240        <UsageCount Value="13"/>
    238241        <Loaded Value="True"/>
    239242      </Unit21>
    … …  
    243246        <EditorIndex Value="3"/>
    244247        <WindowIndex Value="0"/>
    245         <TopLine Value="44"/>
    246         <CursorPos X="3" Y="50"/>
    247         <UsageCount Value="10"/>
     248        <TopLine Value="81"/>
     249        <CursorPos X="20" Y="82"/>
     250        <UsageCount Value="11"/>
    248251        <Loaded Value="True"/>
    249252      </Unit22>
    … …  
    251254        <Filename Value="Compiler\USourceCode.pas"/>
    252255        <UnitName Value="USourceCode"/>
    253         <WindowIndex Value="0"/>
    254         <TopLine Value="307"/>
    255         <CursorPos X="65" Y="308"/>
     256        <IsVisibleTab Value="True"/>
     257        <EditorIndex Value="8"/>
     258        <WindowIndex Value="0"/>
     259        <TopLine Value="137"/>
     260        <CursorPos X="16" Y="169"/>
    256261        <UsageCount Value="10"/>
     262        <Loaded Value="True"/>
    257263      </Unit23>
    258264      <Unit24>
    259265        <Filename Value="Compiler\Analyze\UParser.pas"/>
    260266        <UnitName Value="UParser"/>
    261         <EditorIndex Value="5"/>
    262         <WindowIndex Value="0"/>
    263         <TopLine Value="65"/>
    264         <CursorPos X="32" Y="78"/>
    265         <UsageCount Value="10"/>
     267        <EditorIndex Value="6"/>
     268        <WindowIndex Value="0"/>
     269        <TopLine Value="351"/>
     270        <CursorPos X="29" Y="361"/>
     271        <UsageCount Value="11"/>
    266272        <Loaded Value="True"/>
    267273      </Unit24>
    … …  
    284290        <TopLine Value="31"/>
    285291        <CursorPos X="15" Y="40"/>
    286         <UsageCount Value="22"/>
     292        <UsageCount Value="24"/>
    287293        <Loaded Value="True"/>
    288294        <LoadedDesigner Value="True"/>
    … …  
    299305        <TopLine Value="7"/>
    300306        <CursorPos X="32" Y="16"/>
    301         <UsageCount Value="22"/>
     307        <UsageCount Value="24"/>
    302308        <Loaded Value="True"/>
    303309        <LoadedDesigner Value="True"/>
    … …  
    310316        <ResourceBaseClass Value="Form"/>
    311317        <UnitName Value="UMessagesForm"/>
    312         <EditorIndex Value="9"/>
    313         <WindowIndex Value="0"/>
    314         <TopLine Value="1"/>
    315         <CursorPos X="1" Y="1"/>
    316         <UsageCount Value="22"/>
    317         <Loaded Value="True"/>
     318        <EditorIndex Value="12"/>
     319        <WindowIndex Value="0"/>
     320        <TopLine Value="1"/>
     321        <CursorPos X="36" Y="9"/>
     322        <UsageCount Value="24"/>
     323        <Loaded Value="True"/>
     324        <LoadedDesigner Value="True"/>
    318325        <DefaultSyntaxHighlighter Value="Delphi"/>
    319326      </Unit28>
    … …  
    325332        <ResourceBaseClass Value="Form"/>
    326333        <UnitName Value="UCompiledForm"/>
    327         <EditorIndex Value="6"/>
     334        <EditorIndex Value="9"/>
    328335        <WindowIndex Value="0"/>
    329336        <TopLine Value="5"/>
    330337        <CursorPos X="28" Y="21"/>
    331         <UsageCount Value="21"/>
     338        <UsageCount Value="23"/>
    332339        <Loaded Value="True"/>
    333340        <LoadedDesigner Value="True"/>
    … …  
    340347        <ResourceBaseClass Value="Form"/>
    341348        <UnitName Value="UCodeTreeForm"/>
    342         <EditorIndex Value="10"/>
     349        <EditorIndex Value="13"/>
    343350        <WindowIndex Value="0"/>
    344351        <TopLine Value="1"/>
    345352        <CursorPos X="1" Y="1"/>
    346         <UsageCount Value="21"/>
     353        <UsageCount Value="23"/>
    347354        <Loaded Value="True"/>
    348355        <LoadedDesigner Value="True"/>
    … …  
    352359        <Filename Value="Compiler\Produce\UProducerTreeView.pas"/>
    353360        <UnitName Value="UProducerTreeView"/>
    354         <EditorIndex Value="4"/>
     361        <EditorIndex Value="5"/>
    355362        <WindowIndex Value="0"/>
    356363        <TopLine Value="351"/>
    357364        <CursorPos X="3" Y="355"/>
    358         <UsageCount Value="10"/>
     365        <UsageCount Value="11"/>
    359366        <Loaded Value="True"/>
    360367      </Unit31>
    … …  
    362369        <Filename Value="E:\Programy\Lazarus\components\synedit\synhighlightermulti.pas"/>
    363370        <UnitName Value="SynHighlighterMulti"/>
    364         <EditorIndex Value="7"/>
     371        <EditorIndex Value="10"/>
    365372        <WindowIndex Value="0"/>
    366373        <TopLine Value="316"/>
    367374        <CursorPos X="14" Y="329"/>
    368         <UsageCount Value="10"/>
     375        <UsageCount Value="11"/>
    369376        <Loaded Value="True"/>
    370377      </Unit32>
    371378    </Units>
    372     <JumpHistory Count="30" HistoryIndex="29">
     379    <JumpHistory Count="29" HistoryIndex="28">
    373380      <Position1>
    374         <Filename Value="Forms\UMainForm.pas"/>
    375         <Caret Line="95" Column="1" TopLine="81"/>
     381        <Filename Value="Forms\UProjectManager.pas"/>
     382        <Caret Line="55" Column="23" TopLine="38"/>
    376383      </Position1>
    377384      <Position2>
    378         <Filename Value="Forms\UMainForm.pas"/>
    379         <Caret Line="96" Column="1" TopLine="83"/>
     385        <Filename Value="Forms\UProjectManager.pas"/>
     386        <Caret Line="57" Column="9" TopLine="38"/>
    380387      </Position2>
    381388      <Position3>
    382         <Filename Value="Forms\UMainForm.pas"/>
    383         <Caret Line="106" Column="1" TopLine="103"/>
     389        <Filename Value="Forms\UCompiledForm.pas"/>
     390        <Caret Line="1" Column="1" TopLine="1"/>
    384391      </Position3>
    385392      <Position4>
    386         <Filename Value="Forms\UCodeForm.pas"/>
    387         <Caret Line="16" Column="32" TopLine="7"/>
     393        <Filename Value="Forms\UProjectManager.pas"/>
     394        <Caret Line="48" Column="29" TopLine="29"/>
    388395      </Position4>
    389396      <Position5>
    390         <Filename Value="Forms\UMainForm.pas"/>
    391         <Caret Line="216" Column="70" TopLine="201"/>
     397        <Filename Value="Forms\UCompiledForm.pas"/>
     398        <Caret Line="18" Column="25" TopLine="5"/>
    392399      </Position5>
    393400      <Position6>
    394         <Filename Value="Forms\UCodeTreeForm.pas"/>
    395         <Caret Line="1" Column="1" TopLine="1"/>
     401        <Filename Value="Forms\UProjectManager.pas"/>
     402        <Caret Line="48" Column="45" TopLine="29"/>
    396403      </Position6>
    397404      <Position7>
    398         <Filename Value="Forms\UMainForm.pas"/>
    399         <Caret Line="196" Column="18" TopLine="185"/>
     405        <Filename Value="Forms\UCompiledForm.pas"/>
     406        <Caret Line="18" Column="25" TopLine="5"/>
    400407      </Position7>
    401408      <Position8>
    402         <Filename Value="Forms\UMainForm.pas"/>
    403         <Caret Line="93" Column="50" TopLine="73"/>
     409        <Filename Value="Forms\UCompiledForm.pas"/>
     410        <Caret Line="17" Column="24" TopLine="5"/>
    404411      </Position8>
    405412      <Position9>
    406         <Filename Value="Forms\UProjectManager.pas"/>
    407         <Caret Line="32" Column="72" TopLine="14"/>
     413        <Filename Value="Forms\UCompiledForm.pas"/>
     414        <Caret Line="18" Column="28" TopLine="5"/>
    408415      </Position9>
    409416      <Position10>
    410         <Filename Value="Forms\UProjectManager.pas"/>
    411         <Caret Line="55" Column="43" TopLine="40"/>
     417        <Filename Value="Forms\UCompiledForm.pas"/>
     418        <Caret Line="20" Column="28" TopLine="5"/>
    412419      </Position10>
    413420      <Position11>
    414         <Filename Value="Forms\UMainForm.pas"/>
    415         <Caret Line="100" Column="39" TopLine="79"/>
     421        <Filename Value="Forms\UProjectManager.pas"/>
     422        <Caret Line="48" Column="19" TopLine="31"/>
    416423      </Position11>
    417424      <Position12>
    418         <Filename Value="Forms\UProjectManager.pas"/>
    419         <Caret Line="3" Column="1" TopLine="1"/>
     425        <Filename Value="Forms\UMainForm.pas"/>
     426        <Caret Line="60" Column="40" TopLine="60"/>
    420427      </Position12>
    421428      <Position13>
    422         <Filename Value="Forms\UProjectManager.pas"/>
    423         <Caret Line="18" Column="43" TopLine="1"/>
     429        <Filename Value="Forms\UMainForm.pas"/>
     430        <Caret Line="281" Column="17" TopLine="259"/>
    424431      </Position13>
    425432      <Position14>
    426         <Filename Value="Forms\UProjectManager.pas"/>
    427         <Caret Line="54" Column="27" TopLine="38"/>
     433        <Filename Value="Forms\UMainForm.pas"/>
     434        <Caret Line="106" Column="1" TopLine="93"/>
    428435      </Position14>
    429436      <Position15>
    430437        <Filename Value="Forms\UProjectManager.pas"/>
    431         <Caret Line="57" Column="80" TopLine="38"/>
     438        <Caret Line="38" Column="1" TopLine="25"/>
    432439      </Position15>
    433440      <Position16>
    434         <Filename Value="Forms\UProjectManager.pas"/>
    435         <Caret Line="55" Column="23" TopLine="38"/>
     441        <Filename Value="Compiler\UCompiler.pas"/>
     442        <Caret Line="29" Column="56" TopLine="9"/>
    436443      </Position16>
    437444      <Position17>
    438         <Filename Value="Forms\UProjectManager.pas"/>
    439         <Caret Line="57" Column="9" TopLine="38"/>
     445        <Filename Value="Compiler\UCompiler.pas"/>
     446        <Caret Line="117" Column="18" TopLine="105"/>
    440447      </Position17>
    441448      <Position18>
    442         <Filename Value="Forms\UCompiledForm.pas"/>
    443         <Caret Line="1" Column="1" TopLine="1"/>
     449        <Filename Value="Compiler\UCompiler.pas"/>
     450        <Caret Line="127" Column="5" TopLine="105"/>
    444451      </Position18>
    445452      <Position19>
    446         <Filename Value="Forms\UProjectManager.pas"/>
    447         <Caret Line="48" Column="29" TopLine="29"/>
     453        <Filename Value="Forms\UMessagesForm.pas"/>
     454        <Caret Line="1" Column="1" TopLine="1"/>
    448455      </Position19>
    449456      <Position20>
    450         <Filename Value="Forms\UCompiledForm.pas"/>
    451         <Caret Line="18" Column="25" TopLine="5"/>
     457        <Filename Value="Forms\UMessagesForm.pas"/>
     458        <Caret Line="36" Column="1" TopLine="26"/>
    452459      </Position20>
    453460      <Position21>
    454         <Filename Value="Forms\UProjectManager.pas"/>
    455         <Caret Line="48" Column="45" TopLine="29"/>
     461        <Filename Value="Forms\UMessagesForm.pas"/>
     462        <Caret Line="9" Column="25" TopLine="1"/>
    456463      </Position21>
    457464      <Position22>
    458         <Filename Value="Forms\UCompiledForm.pas"/>
    459         <Caret Line="18" Column="25" TopLine="5"/>
     465        <Filename Value="Forms\UMessagesForm.pas"/>
     466        <Caret Line="33" Column="23" TopLine="14"/>
    460467      </Position22>
    461468      <Position23>
    462         <Filename Value="Forms\UCompiledForm.pas"/>
    463         <Caret Line="17" Column="24" TopLine="5"/>
     469        <Filename Value="Forms\UMainForm.pas"/>
     470        <Caret Line="109" Column="1" TopLine="108"/>
    464471      </Position23>
    465472      <Position24>
    466         <Filename Value="Forms\UCompiledForm.pas"/>
    467         <Caret Line="18" Column="28" TopLine="5"/>
     473        <Filename Value="Compiler\Analyze\UParser.pas"/>
     474        <Caret Line="443" Column="28" TopLine="426"/>
    468475      </Position24>
    469476      <Position25>
    470         <Filename Value="Forms\UCompiledForm.pas"/>
    471         <Caret Line="20" Column="28" TopLine="5"/>
     477        <Filename Value="Compiler\Analyze\UParser.pas"/>
     478        <Caret Line="398" Column="27" TopLine="388"/>
    472479      </Position25>
    473480      <Position26>
    474         <Filename Value="Forms\UProjectManager.pas"/>
    475         <Caret Line="48" Column="19" TopLine="31"/>
     481        <Filename Value="Transpascal.lpr"/>
     482        <Caret Line="27" Column="55" TopLine="2"/>
    476483      </Position26>
    477484      <Position27>
    478         <Filename Value="Forms\UMainForm.pas"/>
    479         <Caret Line="60" Column="40" TopLine="60"/>
     485        <Filename Value="Compiler\Analyze\UParser.pas"/>
     486        <Caret Line="1138" Column="7" TopLine="1131"/>
    480487      </Position27>
    481488      <Position28>
    482         <Filename Value="Forms\UMainForm.pas"/>
    483         <Caret Line="281" Column="17" TopLine="259"/>
     489        <Filename Value="Compiler\Analyze\UParser.pas"/>
     490        <Caret Line="1160" Column="66" TopLine="1141"/>
    484491      </Position28>
    485492      <Position29>
    486         <Filename Value="Forms\UMainForm.pas"/>
    487         <Caret Line="106" Column="1" TopLine="93"/>
     493        <Filename Value="Compiler\Analyze\UParser.pas"/>
     494        <Caret Line="1145" Column="18" TopLine="1129"/>
    488495      </Position29>
    489       <Position30>
    490         <Filename Value="Forms\UProjectManager.pas"/>
    491         <Caret Line="38" Column="1" TopLine="25"/>
    492       </Position30>
    493496    </JumpHistory>
    494497  </ProjectOptions>
Note: See TracChangeset for help on using the changeset viewer.