Changeset 74


Ignore:
Timestamp:
Oct 20, 2010, 1:57:17 PM (14 years ago)
Author:
george
Message:
  • Minor fixes.
Location:
branches/Transpascal
Files:
6 edited

Legend:

Unmodified
Added
Removed

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

    r73 r74  
    8585begin
    8686  if NextToken <> Code then begin
    87     ErrorMessage(SExpectedButFound, [Code, FNextToken], -1);
     87    ErrorMessage(SExpectedButFound, [Code, NextToken], 0);
    8888
    8989    // Recovery: try to find nearest same code

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

    r73 r74  
    5151  SIllegalExpression = 'Illegal expression "%s".';
    5252  SRedefineIdentifier = 'Identificator "%s" redefinition.';
    53   STypeNotDefined = 'Type "%s" not defined.';
    5453  SEndOfDataReached = 'Parser reached to end of input data.';
    5554  SUndefinedVariable = 'Undefined variable "%s".';
    … …  
    109108  NewVariable: TVariable;
    110109  NewExpression: TExpression;
    111   Method: TFunction;
     110  NewMethod: TFunction;
    112111  Constant: TConstant;
    113112  //  Brackets: Integer;
    … …  
    127126        with TExpression(Expressions.Last) do begin
    128127          SubItems[1] := TExpression.Create;
     128          TExpression(SubItems[1]).CommonBlock := SourceCode.CommonBlock;
    129129          ParseExpression(TExpression(SubItems[1]));
    130130        end;
    … …  
    148148          with TExpression(Expressions.Last) do begin
    149149            SubItems[1] := TExpression.Create;
     150            TExpression(SubItems[1]).CommonBlock := SourceCode.CommonBlock;
    150151            TExpression(SubItems[1]).NodeType := ntVariable;
    151152            TExpression(SubItems[1]).Variable := NewVariable;
    … …  
    157158          end;
    158159        end else begin
    159           Method := CommonBlock.Functions.Search(Identifier);
    160           if Assigned(Method) then
    161           begin
     160          NewMethod := CommonBlock.Functions.Search(Identifier);
     161          if Assigned(NewMethod) then begin
    162162            // Referenced method
    163163            with TExpression(Expressions.Last) do begin
    164164              SubItems[1] := TExpression.Create;
     165              TExpression(SubItems[1]).CommonBlock := SourceCode.CommonBlock;
    165166              if NextToken = '(' then               // Method with parameters
    166167                with TExpression(SubItems[1]) do begin
    … …  
    180181                end;
    181182              TExpression(SubItems[1]).NodeType := ntFunction;
    182               TExpression(SubItems[1]).Method := Method;
     183              TExpression(SubItems[1]).Method := NewMethod;
    183184            end;
    184185            with TExpression(Expressions.Items[Expressions.Add(TExpression.Create)]) do
    … …  
    194195              with TExpression(Expressions.Last) do begin
    195196                SubItems[1] := TExpression.Create;
     197                TExpression(SubItems[1]).CommonBlock := SourceCode.CommonBlock;
    196198                TExpression(SubItems[1]).NodeType := ntConstant;
    197199                TExpression(SubItems[1]).Value := Constant.Value;
    … …  
    210212      end else begin
    211213        // Constant value
    212         with TExpression(Expressions.Last) do
    213         begin
     214        with TExpression(Expressions.Last) do begin
    214215          SubItems[1] := TExpression.Create;
    215216          TExpression(SubItems[1]).CommonBlock := SourceCode.CommonBlock;
    … …  
    383384  if NextToken = 'implementation' then
    384385    ParseUnitImplementation(SourceCode);
     386
     387  if NextToken = 'initialization' then begin
     388    Expect('initialization');
     389  end;
     390  if NextToken = 'finalization' then begin
     391    Expect('finalization');
     392  end;
    385393end;
    386394
    … …  
    411419  EndSymbol: char = ';');
    412420begin
    413   with SourceCode do
    414   begin
    415     while NextToken <> EndSymbol do
    416     begin
     421  with SourceCode do begin
     422    while (NextToken <> EndSymbol) do begin
    417423      if NextToken = 'var' then
    418424        ParseVariableList(Variables)
    … …  
    425431      else if NextToken = 'function' then
    426432        ParseFunctionList(Functions)
    427       else
    428       begin
     433      else begin
    429434        ParseBeginEnd(Code);
    430435        Break;
    … …  
    525530                end;
    526531              end else
    527                 ErrorMessage(SRedefineIdentifier, [VariableName], 0);
     532                ErrorMessage(SRedefineIdentifier, [VariableName], -1);
    528533              Expect(':');
    529534              TypeName := ReadCode;
    530535              NewValueType := Parent.Types.Search(TypeName);
    531536              if not Assigned(NewValueType) then
    532                 ErrorMessage(STypeNotDefined, [TypeName], -1)
     537                ErrorMessage(SUndefinedType, [TypeName], -1)
    533538              else
    534539                for I := 0 to Identifiers.Count - 1 do
    … …  
    550555          NewValueType := Parent.Types.Search(TypeName);
    551556          if not Assigned(NewValueType) then
    552             ErrorMessage(STypeNotDefined, [TypeName], -1)
     557            ErrorMessage(SUndefinedType, [TypeName], -1)
    553558          else
    554559          begin
    … …  
    607612    ControlVariable := SourceCode.CommonBlock.Variables.Search(VariableName);
    608613    if not Assigned(ControlVariable) then
    609       ErrorMessage(SUndefinedVariable, [VariableName], 0);
     614      ErrorMessage(SUndefinedVariable, [VariableName], -1);
    610615    Expect(':=');
    611616    Start.CommonBlock := CommonBlock;
    … …  
    645650        end;
    646651      end else
    647         ErrorMessage(SRedefineIdentifier, [VariableName], 0);
     652        ErrorMessage(SRedefineIdentifier, [VariableName], -1);
    648653      Expect(':');
    649654      TypeName := ReadCode;
    650655      NewValueType := Parent.Types.Search(TypeName);
    651656      if NewValueType = nil then
    652         ErrorMessage(STypeNotDefined, [TypeName], -1)
     657        ErrorMessage(SUndefinedType, [TypeName], -1)
    653658      else
    654659        for I := 0 to Identifiers.Count - 1 do
    … …  
    706711      end
    707712      else
    708         ErrorMessage(SRedefineIdentifier, [ConstantName], 0);
     713        ErrorMessage(SRedefineIdentifier, [ConstantName], -1);
    709714      Expect(':');
    710715      TypeName := ReadCode;
    … …  
    715720
    716721      if NewValueType = nil then
    717         ErrorMessage(STypeNotDefined, [TypeName], -1)
     722        ErrorMessage(SUndefinedType, [TypeName], -1)
    718723      else
    719724        for I := 0 to Identifiers.Count - 1 do
    … …  
    792797        TTypeArray(Result).IndexType := ParseType(TypeList, False);
    793798        if not Assigned(TTypeArray(Result).IndexType) then
    794           ErrorMessage(SUndefinedType, [TypeName], 0);
     799          ErrorMessage(SUndefinedType, [TypeName], -1);
    795800        Expect(']');
    796801      end;
    … …  
    799804      TTypeArray(Result).ItemType := ParseType(TypeList, False);
    800805      if not Assigned(TTypeArray(Result).ItemType) then
    801         ErrorMessage(SUndefinedType, [TypeName], 0);
     806        ErrorMessage(SUndefinedType, [TypeName], -1);
    802807    end else
    803808    if NextToken = '^' then begin
    … …  
    826831        TType(Result).UsedType := TypeList.Search(TypeName);
    827832        if not Assigned(TType(Result).UsedType) then
    828           ErrorMessage(SUndefinedType, [TypeName], 0);
     833          ErrorMessage(SUndefinedType, [TypeName], -1);
    829834      end else begin
    830835        TType(Result) := TypeList.Search(TypeName);
    831836        if not Assigned(TType(Result)) then
    832           ErrorMessage(SUndefinedType, [TypeName], 0);
     837          ErrorMessage(SUndefinedType, [TypeName], -1);
    833838      end;
    834839    end;

  • branches/Transpascal/Compiler/UCompiler.pas

    r72 r74  
    4242    SupportedTargets: TCompilerTargetList;
    4343    Target: TCompilerTarget;
     44    TargetFolder: string;
    4445    constructor Create;
    4546    destructor Destroy; override;
    4647    procedure Init;
    47     procedure Compile(ModuleName: string; Source: TStringList; TargetFolder: string);
     48    procedure Compile(ModuleName: string; Source: TStringList);
    4849    property OnErrorMessage: TOnErrorMessage read FOnErrorMessage
    4950      write FOnErrorMessage;
    … …  
    5455{ TCompiler }
    5556
    56 procedure TCompiler.Compile(ModuleName: string; Source: TStringList;
    57   TargetFolder: string);
     57procedure TCompiler.Compile(ModuleName: string; Source: TStringList);
    5858var
    5959  NewModule: TModule;

  • branches/Transpascal/Forms/UMainForm.pas

    r71 r74  
    108108  if Project.Items.Count > 0 then
    109109  with TProjectFile(Project.Items[0]) do begin
    110     Compiler.Compile(Parent.GetDir + Name, Source, Project.RootDir);
     110    Compiler.TargetFolder := Project.RootDir;
     111    Compiler.Compile(Parent.GetDir + Name, Source);
    111112  end;
    112113

  • branches/Transpascal/Forms/UProjectManager.pas

    r66 r74  
    4141    if TProjectNode(Node.Data) is TProjectFile then begin
    4242      SynEditSource.Lines.Assign(TProjectFile(Node.Data).Source);
    43       FileName := Compiler.CompiledFolder + DirectorySeparator +
     43      FileName := Compiler.TargetFolder + DirectorySeparator +
     44        Compiler.CompiledFolder + DirectorySeparator +
    4445        Compiler.Producer.ClassName + DirectorySeparator + ExtractFileNameOnly(TProjectFile(Node.Data).Name) + Compiler.Producer.FileExtension;
    4546        if FileExists(FileName) then

  • branches/Transpascal/Transpascal.lpi

    r73 r74  
    4646      </Item4>
    4747    </RequiredPackages>
    48     <Units Count="45">
     48    <Units Count="44">
    4949      <Unit0>
    5050        <Filename Value="Transpascal.lpr"/>
    5151        <IsPartOfProject Value="True"/>
    5252        <UnitName Value="Transpascal"/>
    53         <EditorIndex Value="11"/>
     53        <EditorIndex Value="12"/>
    5454        <WindowIndex Value="0"/>
    5555        <TopLine Value="7"/>
    56         <CursorPos X="1" Y="32"/>
     56        <CursorPos X="35" Y="23"/>
    5757        <UsageCount Value="215"/>
    5858        <Loaded Value="True"/>
    … …  
    6666        <ResourceBaseClass Value="Form"/>
    6767        <UnitName Value="UMainForm"/>
    68         <EditorIndex Value="9"/>
    69         <WindowIndex Value="0"/>
    70         <TopLine Value="99"/>
    71         <CursorPos X="1" Y="120"/>
     68        <EditorIndex Value="10"/>
     69        <WindowIndex Value="0"/>
     70        <TopLine Value="97"/>
     71        <CursorPos X="43" Y="112"/>
    7272        <UsageCount Value="215"/>
    7373        <Loaded Value="True"/>
    … …  
    183183      <Unit15>
    184184        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\classesh.inc"/>
    185         <EditorIndex Value="6"/>
     185        <EditorIndex Value="7"/>
    186186        <WindowIndex Value="0"/>
    187187        <TopLine Value="19"/>
    188188        <CursorPos X="4" Y="32"/>
    189         <UsageCount Value="10"/>
     189        <UsageCount Value="13"/>
    190190        <Loaded Value="True"/>
    191191      </Unit15>
    … …  
    202202        <IsPartOfProject Value="True"/>
    203203        <UnitName Value="UProject"/>
    204         <EditorIndex Value="8"/>
     204        <EditorIndex Value="9"/>
    205205        <WindowIndex Value="0"/>
    206206        <TopLine Value="3"/>
    207207        <CursorPos X="50" Y="10"/>
    208         <UsageCount Value="137"/>
     208        <UsageCount Value="142"/>
    209209        <Loaded Value="True"/>
    210210        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    230230        <EditorIndex Value="1"/>
    231231        <WindowIndex Value="0"/>
    232         <TopLine Value="5"/>
    233         <CursorPos X="17" Y="67"/>
    234         <UsageCount Value="59"/>
     232        <TopLine Value="32"/>
     233        <CursorPos X="1" Y="48"/>
     234        <UsageCount Value="62"/>
    235235        <Loaded Value="True"/>
    236236      </Unit20>
    … …  
    238238        <Filename Value="Compiler\USourceCode.pas"/>
    239239        <UnitName Value="USourceCode"/>
    240         <IsVisibleTab Value="True"/>
    241         <EditorIndex Value="10"/>
    242         <WindowIndex Value="0"/>
    243         <TopLine Value="298"/>
    244         <CursorPos X="26" Y="299"/>
    245         <UsageCount Value="58"/>
     240        <EditorIndex Value="11"/>
     241        <WindowIndex Value="0"/>
     242        <TopLine Value="153"/>
     243        <CursorPos X="29" Y="172"/>
     244        <UsageCount Value="61"/>
    246245        <Loaded Value="True"/>
    247246      </Unit21>
    … …  
    249248        <Filename Value="Compiler\Analyze\UParser.pas"/>
    250249        <UnitName Value="UParser"/>
    251         <EditorIndex Value="3"/>
    252         <WindowIndex Value="0"/>
    253         <TopLine Value="84"/>
    254         <CursorPos X="59" Y="87"/>
    255         <UsageCount Value="59"/>
     250        <EditorIndex Value="4"/>
     251        <WindowIndex Value="0"/>
     252        <TopLine Value="33"/>
     253        <CursorPos X="57" Y="87"/>
     254        <UsageCount Value="62"/>
    256255        <Loaded Value="True"/>
    257256      </Unit22>
    258257      <Unit23>
    259         <Filename Value="Compiler\Produce\UProducer.pas"/>
    260         <UnitName Value="UProducer"/>
    261         <WindowIndex Value="0"/>
    262         <TopLine Value="1"/>
    263         <CursorPos X="15" Y="4"/>
    264         <UsageCount Value="0"/>
    265       </Unit23>
    266       <Unit24>
    267258        <Filename Value="Forms\UProjectManager.pas"/>
    268259        <IsPartOfProject Value="True"/>
    … …  
    270261        <ResourceBaseClass Value="Form"/>
    271262        <UnitName Value="UProjectManager"/>
    272         <WindowIndex Value="0"/>
    273         <TopLine Value="71"/>
    274         <CursorPos X="20" Y="76"/>
    275         <UsageCount Value="121"/>
    276         <DefaultSyntaxHighlighter Value="Delphi"/>
    277       </Unit24>
    278       <Unit25>
     263        <EditorIndex Value="3"/>
     264        <WindowIndex Value="0"/>
     265        <TopLine Value="33"/>
     266        <CursorPos X="29" Y="44"/>
     267        <UsageCount Value="126"/>
     268        <Loaded Value="True"/>
     269        <DefaultSyntaxHighlighter Value="Delphi"/>
     270      </Unit23>
     271      <Unit24>
    279272        <Filename Value="Forms\UCodeForm.pas"/>
    280273        <IsPartOfProject Value="True"/>
    … …  
    286279        <TopLine Value="1"/>
    287280        <CursorPos X="26" Y="17"/>
    288         <UsageCount Value="121"/>
     281        <UsageCount Value="126"/>
    289282        <Loaded Value="True"/>
    290283        <LoadedDesigner Value="True"/>
    291284        <DefaultSyntaxHighlighter Value="Delphi"/>
    292       </Unit25>
    293       <Unit26>
     285      </Unit24>
     286      <Unit25>
    294287        <Filename Value="Forms\UMessagesForm.pas"/>
    295288        <IsPartOfProject Value="True"/>
    … …  
    297290        <ResourceBaseClass Value="Form"/>
    298291        <UnitName Value="UMessagesForm"/>
    299         <EditorIndex Value="4"/>
     292        <EditorIndex Value="5"/>
    300293        <WindowIndex Value="0"/>
    301294        <TopLine Value="11"/>
    302295        <CursorPos X="38" Y="76"/>
    303         <UsageCount Value="121"/>
    304         <Loaded Value="True"/>
    305         <DefaultSyntaxHighlighter Value="Delphi"/>
    306       </Unit26>
    307       <Unit27>
     296        <UsageCount Value="126"/>
     297        <Loaded Value="True"/>
     298        <DefaultSyntaxHighlighter Value="Delphi"/>
     299      </Unit25>
     300      <Unit26>
    308301        <Filename Value="Forms\UCompiledForm.pas"/>
    309302        <IsPartOfProject Value="True"/>
    … …  
    315308        <TopLine Value="5"/>
    316309        <CursorPos X="28" Y="21"/>
    317         <UsageCount Value="120"/>
    318         <DefaultSyntaxHighlighter Value="Delphi"/>
    319       </Unit27>
    320       <Unit28>
     310        <UsageCount Value="125"/>
     311        <DefaultSyntaxHighlighter Value="Delphi"/>
     312      </Unit26>
     313      <Unit27>
    321314        <Filename Value="Forms\UCodeTreeForm.pas"/>
    322315        <IsPartOfProject Value="True"/>
    … …  
    327320        <TopLine Value="1"/>
    328321        <CursorPos X="1" Y="1"/>
    329         <UsageCount Value="120"/>
    330         <DefaultSyntaxHighlighter Value="Delphi"/>
    331       </Unit28>
    332       <Unit29>
     322        <UsageCount Value="125"/>
     323        <DefaultSyntaxHighlighter Value="Delphi"/>
     324      </Unit27>
     325      <Unit28>
    333326        <Filename Value="Compiler\Produce\UProducerTreeView.pas"/>
    334327        <UnitName Value="UProducerTreeView"/>
    … …  
    337330        <CursorPos X="54" Y="304"/>
    338331        <UsageCount Value="32"/>
    339       </Unit29>
    340       <Unit30>
     332      </Unit28>
     333      <Unit29>
    341334        <Filename Value="E:\Programy\Lazarus\components\synedit\synhighlightermulti.pas"/>
    342335        <UnitName Value="SynHighlighterMulti"/>
    … …  
    345338        <CursorPos X="14" Y="329"/>
    346339        <UsageCount Value="32"/>
    347       </Unit30>
    348       <Unit31>
     340      </Unit29>
     341      <Unit30>
    349342        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    350343        <WindowIndex Value="0"/>
    … …  
    352345        <CursorPos X="31" Y="1770"/>
    353346        <UsageCount Value="29"/>
     347      </Unit30>
     348      <Unit31>
     349        <Filename Value="Common\URegistry.pas"/>
     350        <IsPartOfProject Value="True"/>
     351        <UnitName Value="URegistry"/>
     352        <UsageCount Value="118"/>
     353        <DefaultSyntaxHighlighter Value="Delphi"/>
    354354      </Unit31>
    355355      <Unit32>
    356         <Filename Value="Common\URegistry.pas"/>
    357         <IsPartOfProject Value="True"/>
    358         <UnitName Value="URegistry"/>
    359         <UsageCount Value="113"/>
     356        <Filename Value="Common\ULastOpenedList.pas"/>
     357        <IsPartOfProject Value="True"/>
     358        <UnitName Value="ULastOpenedList"/>
     359        <UsageCount Value="118"/>
    360360        <DefaultSyntaxHighlighter Value="Delphi"/>
    361361      </Unit32>
    362362      <Unit33>
    363         <Filename Value="Common\ULastOpenedList.pas"/>
    364         <IsPartOfProject Value="True"/>
    365         <UnitName Value="ULastOpenedList"/>
    366         <UsageCount Value="113"/>
     363        <Filename Value="UApplicationInfo.pas"/>
     364        <IsPartOfProject Value="True"/>
     365        <UnitName Value="UApplicationInfo"/>
     366        <UsageCount Value="117"/>
    367367        <DefaultSyntaxHighlighter Value="Delphi"/>
    368368      </Unit33>
    369369      <Unit34>
    370         <Filename Value="UApplicationInfo.pas"/>
    371         <IsPartOfProject Value="True"/>
    372         <UnitName Value="UApplicationInfo"/>
    373         <UsageCount Value="112"/>
    374         <DefaultSyntaxHighlighter Value="Delphi"/>
     370        <Filename Value="Compiler\Produce\UProducerC.pas"/>
     371        <UnitName Value="UProducerC"/>
     372        <EditorIndex Value="8"/>
     373        <WindowIndex Value="0"/>
     374        <TopLine Value="67"/>
     375        <CursorPos X="35" Y="81"/>
     376        <UsageCount Value="58"/>
     377        <Loaded Value="True"/>
    375378      </Unit34>
    376379      <Unit35>
    377         <Filename Value="Compiler\Produce\UProducerC.pas"/>
    378         <UnitName Value="UProducerC"/>
    379         <EditorIndex Value="7"/>
    380         <WindowIndex Value="0"/>
    381         <TopLine Value="288"/>
    382         <CursorPos X="57" Y="302"/>
    383         <UsageCount Value="55"/>
    384         <Loaded Value="True"/>
     380        <Filename Value="Compiler\Produce\UProducerAsm8051.pas"/>
     381        <UnitName Value="UProducerAsm8051"/>
     382        <WindowIndex Value="0"/>
     383        <TopLine Value="1"/>
     384        <CursorPos X="1" Y="1"/>
     385        <UsageCount Value="28"/>
    385386      </Unit35>
    386387      <Unit36>
    387         <Filename Value="Compiler\Produce\UProducerAsm8051.pas"/>
    388         <UnitName Value="UProducerAsm8051"/>
    389         <WindowIndex Value="0"/>
    390         <TopLine Value="1"/>
    391         <CursorPos X="1" Y="1"/>
    392         <UsageCount Value="28"/>
    393       </Unit36>
    394       <Unit37>
    395388        <Filename Value="Compiler\Produce\UProducerPascal.pas"/>
    396389        <UnitName Value="UProducerPascal"/>
    … …  
    399392        <CursorPos X="57" Y="112"/>
    400393        <UsageCount Value="25"/>
    401       </Unit37>
    402       <Unit38>
     394      </Unit36>
     395      <Unit37>
    403396        <Filename Value=""/>
    404397        <UsageCount Value="5"/>
    405398        <DefaultSyntaxHighlighter Value="None"/>
     399      </Unit37>
     400      <Unit38>
     401        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     402        <UnitName Value="UPascalParser"/>
     403        <IsVisibleTab Value="True"/>
     404        <EditorIndex Value="2"/>
     405        <WindowIndex Value="0"/>
     406        <TopLine Value="952"/>
     407        <CursorPos X="23" Y="966"/>
     408        <UsageCount Value="37"/>
     409        <Loaded Value="True"/>
    406410      </Unit38>
    407411      <Unit39>
    408         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    409         <UnitName Value="UPascalParser"/>
    410         <EditorIndex Value="2"/>
    411         <WindowIndex Value="0"/>
    412         <TopLine Value="637"/>
    413         <CursorPos X="1" Y="650"/>
    414         <UsageCount Value="34"/>
     412        <Filename Value="Compiler\Analyze\UGrammer.pas"/>
     413        <UnitName Value="UGrammer"/>
     414        <EditorIndex Value="13"/>
     415        <WindowIndex Value="0"/>
     416        <TopLine Value="15"/>
     417        <CursorPos X="1" Y="28"/>
     418        <UsageCount Value="35"/>
    415419        <Loaded Value="True"/>
    416420      </Unit39>
    417421      <Unit40>
    418         <Filename Value="Compiler\Analyze\UGrammer.pas"/>
    419         <UnitName Value="UGrammer"/>
    420         <EditorIndex Value="12"/>
    421         <WindowIndex Value="0"/>
    422         <TopLine Value="15"/>
    423         <CursorPos X="1" Y="28"/>
    424         <UsageCount Value="32"/>
     422        <Filename Value="E:\Programy\Lazarus\components\synedit\synedit.pp"/>
     423        <UnitName Value="SynEdit"/>
     424        <EditorIndex Value="6"/>
     425        <WindowIndex Value="0"/>
     426        <TopLine Value="828"/>
     427        <CursorPos X="27" Y="841"/>
     428        <UsageCount Value="13"/>
    425429        <Loaded Value="True"/>
    426430      </Unit40>
    427431      <Unit41>
    428         <Filename Value="E:\Programy\Lazarus\components\synedit\synedit.pp"/>
    429         <UnitName Value="SynEdit"/>
    430         <EditorIndex Value="5"/>
    431         <WindowIndex Value="0"/>
    432         <TopLine Value="828"/>
    433         <CursorPos X="27" Y="841"/>
    434         <UsageCount Value="10"/>
    435         <Loaded Value="True"/>
    436       </Unit41>
    437       <Unit42>
    438432        <Filename Value="E:\Programy\Lazarus\components\synedit\synedittypes.pp"/>
    439433        <UnitName Value="SynEditTypes"/>
    … …  
    442436        <CursorPos X="3" Y="69"/>
    443437        <UsageCount Value="9"/>
    444       </Unit42>
    445       <Unit43>
     438      </Unit41>
     439      <Unit42>
    446440        <Filename Value="E:\Programy\Lazarus\components\synedit\syneditmarkup.pp"/>
    447441        <UnitName Value="SynEditMarkup"/>
    … …  
    450444        <CursorPos X="3" Y="120"/>
    451445        <UsageCount Value="9"/>
    452       </Unit43>
    453       <Unit44>
     446      </Unit42>
     447      <Unit43>
    454448        <Filename Value="E:\Programy\Lazarus\components\synedit\synedit.inc"/>
    455449        <WindowIndex Value="0"/>
    … …  
    457451        <CursorPos X="24" Y="11"/>
    458452        <UsageCount Value="9"/>
    459       </Unit44>
     453      </Unit43>
    460454    </Units>
    461     <JumpHistory Count="30" HistoryIndex="29">
     455    <JumpHistory Count="29" HistoryIndex="28">
    462456      <Position1>
    463         <Filename Value="Compiler\USourceCode.pas"/>
    464         <Caret Line="772" Column="1" TopLine="751"/>
     457        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     458        <Caret Line="24" Column="47" TopLine="14"/>
    465459      </Position1>
    466460      <Position2>
    467         <Filename Value="Compiler\USourceCode.pas"/>
    468         <Caret Line="773" Column="1" TopLine="752"/>
     461        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     462        <Caret Line="25" Column="57" TopLine="14"/>
    469463      </Position2>
    470464      <Position3>
    471         <Filename Value="Compiler\USourceCode.pas"/>
    472         <Caret Line="776" Column="1" TopLine="755"/>
     465        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     466        <Caret Line="55" Column="17" TopLine="42"/>
    473467      </Position3>
    474468      <Position4>
    475469        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    476         <Caret Line="650" Column="1" TopLine="637"/>
     470        <Caret Line="537" Column="44" TopLine="524"/>
    477471      </Position4>
    478472      <Position5>
    479         <Filename Value="Compiler\USourceCode.pas"/>
    480         <Caret Line="473" Column="1" TopLine="460"/>
     473        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     474        <Caret Line="557" Column="40" TopLine="544"/>
    481475      </Position5>
    482476      <Position6>
    483         <Filename Value="Compiler\USourceCode.pas"/>
    484         <Caret Line="475" Column="1" TopLine="460"/>
     477        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     478        <Caret Line="657" Column="36" TopLine="644"/>
    485479      </Position6>
    486480      <Position7>
    487         <Filename Value="Compiler\USourceCode.pas"/>
    488         <Caret Line="485" Column="1" TopLine="469"/>
     481        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     482        <Caret Line="722" Column="36" TopLine="709"/>
    489483      </Position7>
    490484      <Position8>
    491         <Filename Value="Compiler\USourceCode.pas"/>
    492         <Caret Line="764" Column="1" TopLine="751"/>
     485        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     486        <Caret Line="799" Column="54" TopLine="786"/>
    493487      </Position8>
    494488      <Position9>
    495         <Filename Value="Compiler\USourceCode.pas"/>
    496         <Caret Line="765" Column="1" TopLine="751"/>
     489        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     490        <Caret Line="806" Column="36" TopLine="786"/>
    497491      </Position9>
    498492      <Position10>
    499         <Filename Value="Compiler\USourceCode.pas"/>
    500         <Caret Line="767" Column="1" TopLine="751"/>
     493        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     494        <Caret Line="4" Column="73" TopLine="1"/>
    501495      </Position10>
    502496      <Position11>
    503         <Filename Value="Compiler\USourceCode.pas"/>
    504         <Caret Line="768" Column="1" TopLine="751"/>
     497        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     498        <Caret Line="78" Column="48" TopLine="65"/>
    505499      </Position11>
    506500      <Position12>
    507         <Filename Value="Compiler\USourceCode.pas"/>
    508         <Caret Line="769" Column="1" TopLine="751"/>
     501        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     502        <Caret Line="208" Column="27" TopLine="195"/>
    509503      </Position12>
    510504      <Position13>
    511         <Filename Value="Compiler\USourceCode.pas"/>
    512         <Caret Line="770" Column="1" TopLine="751"/>
     505        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     506        <Caret Line="327" Column="21" TopLine="314"/>
    513507      </Position13>
    514508      <Position14>
    515         <Filename Value="Compiler\USourceCode.pas"/>
    516         <Caret Line="771" Column="1" TopLine="751"/>
     509        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     510        <Caret Line="333" Column="19" TopLine="314"/>
    517511      </Position14>
    518512      <Position15>
    519         <Filename Value="Compiler\USourceCode.pas"/>
    520         <Caret Line="772" Column="1" TopLine="751"/>
     513        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     514        <Caret Line="457" Column="21" TopLine="444"/>
    521515      </Position15>
    522516      <Position16>
    523         <Filename Value="Compiler\USourceCode.pas"/>
    524         <Caret Line="764" Column="1" TopLine="751"/>
     517        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     518        <Caret Line="532" Column="69" TopLine="519"/>
    525519      </Position16>
    526520      <Position17>
    527         <Filename Value="Compiler\USourceCode.pas"/>
    528         <Caret Line="765" Column="1" TopLine="751"/>
     521        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     522        <Caret Line="537" Column="29" TopLine="519"/>
    529523      </Position17>
    530524      <Position18>
    531525        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    532         <Caret Line="650" Column="1" TopLine="637"/>
     526        <Caret Line="557" Column="25" TopLine="544"/>
    533527      </Position18>
    534528      <Position19>
    535         <Filename Value="Compiler\USourceCode.pas"/>
    536         <Caret Line="473" Column="1" TopLine="460"/>
     529        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     530        <Caret Line="614" Column="58" TopLine="601"/>
    537531      </Position19>
    538532      <Position20>
    539         <Filename Value="Compiler\USourceCode.pas"/>
    540         <Caret Line="475" Column="1" TopLine="460"/>
     533        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     534        <Caret Line="652" Column="61" TopLine="639"/>
    541535      </Position20>
    542536      <Position21>
    543         <Filename Value="Compiler\USourceCode.pas"/>
    544         <Caret Line="476" Column="1" TopLine="460"/>
     537        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     538        <Caret Line="657" Column="53" TopLine="639"/>
    545539      </Position21>
    546540      <Position22>
    547         <Filename Value="Compiler\USourceCode.pas"/>
    548         <Caret Line="485" Column="1" TopLine="464"/>
     541        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     542        <Caret Line="713" Column="21" TopLine="700"/>
    549543      </Position22>
    550544      <Position23>
    551         <Filename Value="Compiler\USourceCode.pas"/>
    552         <Caret Line="764" Column="1" TopLine="751"/>
     545        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     546        <Caret Line="714" Column="61" TopLine="700"/>
    553547      </Position23>
    554548      <Position24>
    555         <Filename Value="Compiler\USourceCode.pas"/>
    556         <Caret Line="765" Column="1" TopLine="751"/>
     549        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     550        <Caret Line="722" Column="21" TopLine="700"/>
    557551      </Position24>
    558552      <Position25>
    559         <Filename Value="Compiler\USourceCode.pas"/>
    560         <Caret Line="767" Column="1" TopLine="751"/>
     553        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     554        <Caret Line="799" Column="23" TopLine="786"/>
    561555      </Position25>
    562556      <Position26>
    563         <Filename Value="Compiler\USourceCode.pas"/>
    564         <Caret Line="768" Column="1" TopLine="751"/>
     557        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     558        <Caret Line="806" Column="21" TopLine="786"/>
    565559      </Position26>
    566560      <Position27>
    567         <Filename Value="Compiler\USourceCode.pas"/>
    568         <Caret Line="769" Column="1" TopLine="751"/>
     561        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     562        <Caret Line="833" Column="23" TopLine="820"/>
    569563      </Position27>
    570564      <Position28>
    571         <Filename Value="Compiler\USourceCode.pas"/>
    572         <Caret Line="770" Column="1" TopLine="751"/>
     565        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     566        <Caret Line="837" Column="23" TopLine="820"/>
    573567      </Position28>
    574568      <Position29>
    575         <Filename Value="Compiler\USourceCode.pas"/>
    576         <Caret Line="771" Column="1" TopLine="751"/>
     569        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     570        <Caret Line="949" Column="21" TopLine="936"/>
    577571      </Position29>
    578       <Position30>
    579         <Filename Value="Compiler\USourceCode.pas"/>
    580         <Caret Line="761" Column="32" TopLine="751"/>
    581       </Position30>
    582572    </JumpHistory>
    583573  </ProjectOptions>
    … …  
    625615  </CompilerOptions>
    626616  <Debugging>
    627     <BreakPoints Count="1">
    628       <Item1>
    629         <Source Value="Compiler\Analyze\UPascalParser.pas"/>
    630         <Line Value="650"/>
    631       </Item1>
    632     </BreakPoints>
    633617    <Exceptions Count="3">
    634618      <Item1>
Note: See TracChangeset for help on using the changeset viewer.