Changeset 5 for trunk


Ignore:
Timestamp:
Nov 5, 2010, 9:36:20 AM (14 years ago)
Author:
george
Message:
  • Fixed: Variable and constant expression.
Location:
trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Compiler/Analyze/UPascalParser.pas

    r4 r5  
    137137function TPascalParser.ParseExpression(SourceCode: TExpression): Boolean;
    138138var
    139   NewVariable: TVariable;
    140   NewExpression: TExpression;
    141   NewMethod: TFunction;
    142   Constant: TConstant;
    143   UseType: TType;
    144   //  Brackets: Integer;
    145139  Expressions: TListExpression;
    146   I: integer;
    147   II: integer;
     140  I: Integer;
     141  II: Integer;
    148142begin
    149143  try
    150144    Expressions := TListExpression.Create;
     145    Expressions.OwnsObjects := False;
    151146    Expressions.Add(TExpression.Create);
    152147    with SourceCode do begin
    … …  
    155150        if not ParseExpressionParenthases(SourceCode, Expressions) then
    156151        if not ParseExpressionOperator(SourceCode, Expressions) then
    157         if not ParseExpressionRightValue(SourceCode, Expressions) then begin
     152        if not ParseExpressionRightValue(SourceCode, Expressions) then
     153        begin
    158154          ErrorMessage(SInvalidAssignmentValue, [NextToken]);
    159155          ReadToken;
    … …  
    171167            Expressions[I - 1].SubItems.Last := Expressions[I];
    172168            Expressions[I + 1].SubItems.First := Expressions[I];
    173             //Expressions.Delete(I);
     169            Expressions.Delete(I);
    174170          end else Inc(I);
    175171        end;
    … …  
    196192    // Subexpression
    197193    NewExpression := TExpression.Create;
     194    NewExpression.Braces := True;
    198195    NewExpression.CommonBlock := SourceCode.CommonBlock;
    199196    ParseExpression(NewExpression);
    … …  
    230227  NewExpression: TExpression;
    231228  Identifier: string;
    232   O: TObject;
    233 begin
    234   O := nil;
    235   with SourceCode do
    236   if IsIdentificator(NextToken) then begin
     229  IntConst: Integer;
     230begin
     231  NewExpression := nil;
     232  with SourceCode do begin
     233//  if IsIdentificator(NextToken) then begin
    237234    // Start with type
    238235    UseType := CommonBlock.Types.Search(NextToken);
    … …  
    240237      ReadToken;
    241238      if (UseType is TTypeRecord) or (UseType is TTypeClass) then begin
     239        // type.variable or type.function
    242240        Expect('.');
    243241        Identifier := ReadToken;
    244242        UseVariable := TTypeRecord(UseType).CommonBlock.Variables.Search(Identifier);
    245243        if Assigned(UseVariable) then begin
    246           O := UseVariable;
    247         end;
    248         if not Assigned(O) then begin
     244          NewExpression := TExpression.Create;
     245          NewExpression.CommonBlock := SourceCode.CommonBlock;
     246          NewExpression.NodeType := ntVariable;
     247          NewExpression.Variable := UseVariable;
     248        end;
     249        if not Assigned(NewExpression) then begin
    249250          UseFunction := TTypeRecord(UseType).CommonBlock.Functions.Search(Identifier);
    250251          if Assigned(UseFunction) then begin
    251             O := UseFunction;
     252            NewExpression := TExpression.Create;
     253            NewExpression.CommonBlock := SourceCode.CommonBlock;
     254            NewExpression.NodeType := ntFunction;
     255            NewExpression.FunctionCall := UseFunction;
    252256          end;
    253257        end;
    254         if not Assigned(O) then
     258        if not Assigned(NewExpression) then
    255259          ErrorMessage(SUndefinedVariable, [Identifier]);
    256260      end else ErrorMessage(SIllegalExpression, [Identifier]);
    257261    end;
    258     if not Assigned(O) then begin
    259       UseVariable := CommonBlock.Variables.Search(Identifier);
     262    if not Assigned(NewExpression) then begin
     263      // Referenced variable
     264      UseVariable := CommonBlock.Variables.Search(NextToken);
    260265      if Assigned(UseVariable) then begin
    261         // Referenced variable
    262266        ReadToken;
    263267        NewExpression := TExpression.Create;
    264268        NewExpression.CommonBlock := SourceCode.CommonBlock;
    265269        NewExpression.NodeType := ntVariable;
    266         NewExpression.Variable := TVariable(UseVariable);
    267         SubItems.Last := NewExpression;
    268       end;
    269     end;
    270     if not Assigned(O) then begin
    271       ParseExpressionFunctionCall(SourceCode, Expressions, TFunction(O));
    272       NewExpression := TExpression.Create;
    273       NewExpression.CommonBlock := SourceCode.CommonBlock;
    274       NewExpression.NodeType := ntFunction;
    275       NewExpression.FunctionCall := TFunction(O);
    276       SubItems.Last := NewExpression;
    277     end;
    278     if not Assigned(O) then begin
     270        NewExpression.Variable := UseVariable;
     271      end;
     272    end;
     273    if not Assigned(NewExpression) then begin
     274      // Function call
     275      ParseExpressionFunctionCall(SourceCode, Expressions, UseFunction);
     276      if Assigned(UseFunction) then begin
     277        NewExpression := TExpression.Create;
     278        NewExpression.CommonBlock := SourceCode.CommonBlock;
     279        NewExpression.NodeType := ntFunction;
     280        NewExpression.FunctionCall := UseFunction;
     281      end;
     282    end;
     283    if not Assigned(NewExpression) then begin
     284      // Referenced constant
    279285      UseConstant := CommonBlock.Constants.Search(NextToken);
    280286      if Assigned(UseConstant) then begin
    281287        ReadToken;
    282         O := UseConstant;
    283288        NewExpression := TExpression.Create;
    284289        NewExpression.CommonBlock := SourceCode.CommonBlock;
    285290        NewExpression.NodeType := ntConstant;
    286         NewExpression.Constant := TConstant(O);
    287         SubItems.Last := NewExpression;
    288       end;
    289     end;
    290     if not Assigned(O) then begin
     291        NewExpression.Constant := UseConstant;
     292      end;
     293    end;
     294    if not Assigned(NewExpression) then begin
    291295      // Constant value
    292       O := TConstant.Create;
    293       TConstant(O).Value := ReadToken;
    294296      NewExpression := TExpression.Create;
    295297      NewExpression.CommonBlock := SourceCode.CommonBlock;
    296       NewExpression.NodeType := ntConstant;
    297       NewExpression.Constant := TConstant(O);
    298       SubItems.Last := NewExpression;
    299     end;
    300     if not Assigned(O) then begin
     298      NewExpression.NodeType := ntValue;
     299      NewExpression.Constant := TConstant.Create;
     300      NewExpression.Value := ReadToken;
     301      if TryStrToInt(NewExpression.Value, IntConst) then
     302        NewExpression.Value := IntConst;
     303    end;
     304    if Assigned(NewExpression) then begin
     305      Expressions.Last.SubItems.Last := NewExpression;
     306      with Expressions.Items[Expressions.Add(TExpression.Create)] do
     307      begin
     308        CommonBlock := SourceCode.CommonBlock;
     309        SubItems.First := NewExpression;
     310      end;
     311      Result := True;
     312    end else begin
     313      Result := False;
    301314      ErrorMessage(SUnknownIdentifier, [ReadToken]);
    302315    end;
    303 
    304     with Expressions.Items[Expressions.Add(TExpression.Create)] do
    305     begin
    306       CommonBlock := SourceCode.CommonBlock;
    307       SubItems.First := NewExpression;
    308     end;
    309     Result := True;
    310   end else Result := False;
     316//  end else Result := False;
     317  end;
    311318end;
    312319

  • trunk/Compiler/Produce/UProducerDynamicC.pas

    r2 r5  
    274274function TProducerDynamicC.GenerateExpression(Expression: TExpression): string;
    275275begin
    276   case Expression.NodeType of
    277     ntConstant: begin
    278       if VarType(Expression.Value) = varString then
    279         Result := '"' + Expression.Value + '"'
    280         else Result := Expression.Value;
    281     end;
    282     ntVariable: Result := Expression.Variable.Name;
    283     ntFunction: Result := Expression.FunctionCall.Name;
    284     ntOperator: begin
    285       Result := GenerateExpression(TExpression(Expression.SubItems.First))
    286         + ' ' + TranslateOperator(Expression.OperatorName) + ' ' +
    287         GenerateExpression(TExpression(Expression.SubItems.Last));
    288     end;
    289     ntNone: ;
     276  if Assigned(Expression) then begin
     277    case Expression.NodeType of
     278      ntConstant: begin
     279        Result := Expression.Constant.Name;
     280      end;
     281      ntValue: begin
     282       if VarType(Expression.Value) = varString then
     283          Result := '"' + Expression.Value + '"'
     284          else Result := Expression.Value;
     285      end;
     286      ntVariable: Result := Expression.Variable.Name;
     287      ntFunction: Result := Expression.FunctionCall.Name;
     288      ntOperator: begin
     289        Result := GenerateExpression(TExpression(Expression.SubItems.First))
     290          + ' ' + TranslateOperator(Expression.OperatorName) + ' ' +
     291          GenerateExpression(TExpression(Expression.SubItems.Last));
     292      end;
     293      ntNone: ;
     294    end;
     295    if Expression.Braces then Result := '(' + Result + ')';
    290296  end;
    291297end;

  • trunk/Compiler/Produce/UProducerPascal.pas

    r2 r5  
    309309function TProducerPascal.GenerateExpression(Expression: TExpression): string;
    310310begin
    311   case Expression.NodeType of
    312     ntConstant: Result := Expression.Value;
    313     ntVariable: Result := Expression.Variable.Name;
    314     ntFunction: Result := Expression.FunctionCall.Name;
    315     ntOperator: begin
    316       Result := GenerateExpression(TExpression(Expression.SubItems.First))
    317         + ' ' + Expression.OperatorName + ' ' +
    318         GenerateExpression(TExpression(Expression.SubItems.Last));
    319     end;
    320     ntNone: ;
     311  if Assigned(Expression) then begin
     312    case Expression.NodeType of
     313      ntConstant: begin
     314        Result := Expression.Constant.Name;
     315      end;
     316      ntValue: begin
     317       if VarType(Expression.Value) = varString then
     318          Result := '''' + Expression.Value + ''''
     319          else Result := Expression.Value;
     320      end;
     321      ntVariable: Result := Expression.Variable.Name;
     322      ntFunction: Result := Expression.FunctionCall.Name;
     323      ntOperator: begin
     324        Result := GenerateExpression(TExpression(Expression.SubItems.First))
     325          + ' ' + Expression.OperatorName + ' ' +
     326          GenerateExpression(TExpression(Expression.SubItems.Last));
     327      end;
     328      ntNone: ;
     329    end;
     330    if Expression.Braces then Result := '(' + Result + ')';
    321331  end;
    322332end;

  • trunk/Compiler/USourceCode.pas

    r4 r5  
    1414  TModuleType = (mdProgram, mdUnit, mdLibrary, mdPackage);
    1515
    16   TNodeType = (ntNone, ntVariable, ntFunction, ntConstant, ntOperator);
     16  TNodeType = (ntNone, ntVariable, ntFunction, ntConstant, ntOperator,
     17    ntValue);
    1718
    1819  TTypeVisibility = (tvPublic, tvPublished, tvPrivate, tvProtected);
    … …  
    333334    SubItems: TListExpression;
    334335    Associated: Boolean;
     336    Braces: Boolean;
    335337    constructor Create;
    336338    destructor Destroy; override;

  • trunk/Transpascal.lpi

    r4 r5  
    5353      </Item5>
    5454    </RequiredPackages>
    55     <Units Count="77">
     55    <Units Count="78">
    5656      <Unit0>
    5757        <Filename Value="Transpascal.lpr"/>
    … …  
    183183        <EditorIndex Value="8"/>
    184184        <WindowIndex Value="0"/>
    185         <TopLine Value="4"/>
    186         <CursorPos X="25" Y="16"/>
     185        <TopLine Value="9"/>
     186        <CursorPos X="25" Y="17"/>
    187187        <UsageCount Value="223"/>
    188188        <Loaded Value="True"/>
    … …  
    202202        <EditorIndex Value="3"/>
    203203        <WindowIndex Value="0"/>
    204         <TopLine Value="70"/>
    205         <CursorPos X="20" Y="82"/>
     204        <TopLine Value="120"/>
     205        <CursorPos X="1" Y="133"/>
    206206        <UsageCount Value="102"/>
    207207        <Loaded Value="True"/>
    … …  
    212212        <EditorIndex Value="0"/>
    213213        <WindowIndex Value="0"/>
    214         <TopLine Value="322"/>
    215         <CursorPos X="17" Y="335"/>
     214        <TopLine Value="814"/>
     215        <CursorPos X="26" Y="825"/>
    216216        <UsageCount Value="103"/>
    217217        <Loaded Value="True"/>
    … …  
    222222        <EditorIndex Value="2"/>
    223223        <WindowIndex Value="0"/>
    224         <TopLine Value="362"/>
    225         <CursorPos X="1" Y="381"/>
     224        <TopLine Value="45"/>
     225        <CursorPos X="14" Y="58"/>
    226226        <UsageCount Value="102"/>
    227227        <Loaded Value="True"/>
    … …  
    344344        <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    345345        <UnitName Value="UProducerDynamicC"/>
    346         <WindowIndex Value="0"/>
    347         <TopLine Value="263"/>
    348         <CursorPos X="36" Y="273"/>
     346        <EditorIndex Value="7"/>
     347        <WindowIndex Value="0"/>
     348        <TopLine Value="274"/>
     349        <CursorPos X="13" Y="285"/>
    349350        <UsageCount Value="113"/>
     351        <Loaded Value="True"/>
    350352      </Unit30>
    351353      <Unit31>
    … …  
    360362        <Filename Value="Compiler\Produce\UProducerPascal.pas"/>
    361363        <UnitName Value="UProducerPascal"/>
    362         <WindowIndex Value="0"/>
    363         <TopLine Value="301"/>
    364         <CursorPos X="50" Y="314"/>
     364        <IsVisibleTab Value="True"/>
     365        <EditorIndex Value="5"/>
     366        <WindowIndex Value="0"/>
     367        <TopLine Value="309"/>
     368        <CursorPos X="50" Y="318"/>
    365369        <UsageCount Value="42"/>
     370        <Loaded Value="True"/>
    366371      </Unit32>
    367372      <Unit33>
    368373        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    369374        <UnitName Value="UPascalParser"/>
    370         <IsVisibleTab Value="True"/>
    371375        <EditorIndex Value="4"/>
    372376        <WindowIndex Value="0"/>
    373         <TopLine Value="286"/>
    374         <CursorPos X="20" Y="307"/>
     377        <TopLine Value="281"/>
     378        <CursorPos X="3" Y="287"/>
    375379        <UsageCount Value="110"/>
    376380        <Loaded Value="True"/>
    … …  
    415419        <TopLine Value="1"/>
    416420        <CursorPos X="28" Y="22"/>
    417         <UsageCount Value="188"/>
     421        <UsageCount Value="193"/>
    418422        <DefaultSyntaxHighlighter Value="Delphi"/>
    419423      </Unit38>
    … …  
    438442        <TopLine Value="1"/>
    439443        <CursorPos X="1" Y="1"/>
    440         <UsageCount Value="66"/>
     444        <UsageCount Value="68"/>
    441445        <Loaded Value="True"/>
    442446        <DefaultSyntaxHighlighter Value="LFM"/>
    … …  
    709713        <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedList.pas"/>
    710714        <UnitName Value="SpecializedList"/>
    711         <EditorIndex Value="6"/>
    712715        <WindowIndex Value="0"/>
    713716        <TopLine Value="5"/>
    714717        <CursorPos X="54" Y="17"/>
    715718        <UsageCount Value="10"/>
    716         <Loaded Value="True"/>
    717719      </Unit74>
    718720      <Unit75>
    719721        <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    720         <EditorIndex Value="7"/>
    721         <WindowIndex Value="0"/>
    722         <TopLine Value="232"/>
    723         <CursorPos X="10" Y="246"/>
    724         <UsageCount Value="10"/>
    725         <Loaded Value="True"/>
     722        <WindowIndex Value="0"/>
     723        <TopLine Value="216"/>
     724        <CursorPos X="1" Y="229"/>
     725        <UsageCount Value="11"/>
    726726      </Unit75>
    727727      <Unit76>
    728728        <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericObjectList.inc"/>
    729         <EditorIndex Value="5"/>
    730729        <WindowIndex Value="0"/>
    731730        <TopLine Value="1"/>
    732731        <CursorPos X="24" Y="4"/>
    733732        <UsageCount Value="10"/>
     733      </Unit76>
     734      <Unit77>
     735        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\sysutils\sysstrh.inc"/>
     736        <EditorIndex Value="6"/>
     737        <WindowIndex Value="0"/>
     738        <TopLine Value="107"/>
     739        <CursorPos X="10" Y="120"/>
     740        <UsageCount Value="10"/>
    734741        <Loaded Value="True"/>
    735       </Unit76>
     742      </Unit77>
    736743    </Units>
    737     <JumpHistory Count="25" HistoryIndex="24">
     744    <JumpHistory Count="30" HistoryIndex="28">
    738745      <Position1>
    739         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    740         <Caret Line="261" Column="20" TopLine="247"/>
     746        <Filename Value="Compiler\Analyze\UParser.pas"/>
     747        <Caret Line="381" Column="1" TopLine="370"/>
    741748      </Position1>
    742749      <Position2>
    743         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    744         <Caret Line="269" Column="18" TopLine="247"/>
     750        <Filename Value="Compiler\Analyze\UParser.pas"/>
     751        <Caret Line="84" Column="1" TopLine="71"/>
    745752      </Position2>
    746753      <Position3>
    747         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    748         <Caret Line="278" Column="35" TopLine="265"/>
     754        <Filename Value="Compiler\Analyze\UParser.pas"/>
     755        <Caret Line="85" Column="1" TopLine="71"/>
    749756      </Position3>
    750757      <Position4>
    751         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    752         <Caret Line="279" Column="20" TopLine="265"/>
     758        <Filename Value="Compiler\Analyze\UParser.pas"/>
     759        <Caret Line="86" Column="1" TopLine="71"/>
    753760      </Position4>
    754761      <Position5>
    755         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    756         <Caret Line="281" Column="20" TopLine="265"/>
     762        <Filename Value="Compiler\Analyze\UParser.pas"/>
     763        <Caret Line="88" Column="1" TopLine="71"/>
    757764      </Position5>
    758765      <Position6>
    759         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    760         <Caret Line="287" Column="24" TopLine="271"/>
     766        <Filename Value="Compiler\Analyze\UParser.pas"/>
     767        <Caret Line="89" Column="1" TopLine="71"/>
    761768      </Position6>
    762769      <Position7>
    763         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    764         <Caret Line="288" Column="33" TopLine="271"/>
     770        <Filename Value="Compiler\Analyze\UParser.pas"/>
     771        <Caret Line="91" Column="1" TopLine="71"/>
    765772      </Position7>
    766773      <Position8>
    767774        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    768         <Caret Line="297" Column="55" TopLine="284"/>
     775        <Caret Line="363" Column="1" TopLine="347"/>
    769776      </Position8>
    770777      <Position9>
    771778        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    772         <Caret Line="306" Column="75" TopLine="284"/>
     779        <Caret Line="360" Column="1" TopLine="347"/>
    773780      </Position9>
    774781      <Position10>
    775         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    776         <Caret Line="307" Column="31" TopLine="284"/>
     782        <Filename Value="Compiler\Analyze\UParser.pas"/>
     783        <Caret Line="375" Column="1" TopLine="362"/>
    777784      </Position10>
    778785      <Position11>
    779         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    780         <Caret Line="735" Column="39" TopLine="722"/>
     786        <Filename Value="Compiler\Analyze\UParser.pas"/>
     787        <Caret Line="376" Column="1" TopLine="362"/>
    781788      </Position11>
    782789      <Position12>
    783         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    784         <Caret Line="758" Column="46" TopLine="745"/>
     790        <Filename Value="Compiler\Analyze\UParser.pas"/>
     791        <Caret Line="377" Column="1" TopLine="362"/>
    785792      </Position12>
    786793      <Position13>
    787         <Filename Value="Compiler\USourceCode.pas"/>
    788         <Caret Line="353" Column="4" TopLine="340"/>
     794        <Filename Value="Compiler\Analyze\UParser.pas"/>
     795        <Caret Line="378" Column="1" TopLine="362"/>
    789796      </Position13>
    790797      <Position14>
    791         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    792         <Caret Line="155" Column="28" TopLine="143"/>
     798        <Filename Value="Compiler\Analyze\UParser.pas"/>
     799        <Caret Line="380" Column="1" TopLine="362"/>
    793800      </Position14>
    794801      <Position15>
    795         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    796         <Caret Line="200" Column="31" TopLine="187"/>
     802        <Filename Value="Compiler\Analyze\UParser.pas"/>
     803        <Caret Line="381" Column="1" TopLine="362"/>
    797804      </Position15>
    798805      <Position16>
    799         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    800         <Caret Line="197" Column="27" TopLine="187"/>
     806        <Filename Value="Compiler\Analyze\UParser.pas"/>
     807        <Caret Line="84" Column="1" TopLine="71"/>
    801808      </Position16>
    802809      <Position17>
    803         <Filename Value="Compiler\USourceCode.pas"/>
    804         <Caret Line="333" Column="27" TopLine="318"/>
     810        <Filename Value="Compiler\Analyze\UParser.pas"/>
     811        <Caret Line="85" Column="1" TopLine="71"/>
    805812      </Position17>
    806813      <Position18>
    807         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    808         <Caret Line="44" Column="26" TopLine="35"/>
     814        <Filename Value="Compiler\Analyze\UParser.pas"/>
     815        <Caret Line="86" Column="1" TopLine="71"/>
    809816      </Position18>
    810817      <Position19>
    811         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    812         <Caret Line="16" Column="31" TopLine="10"/>
     818        <Filename Value="Compiler\Analyze\UParser.pas"/>
     819        <Caret Line="88" Column="1" TopLine="71"/>
    813820      </Position19>
    814821      <Position20>
    815         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    816         <Caret Line="240" Column="3" TopLine="238"/>
     822        <Filename Value="Compiler\UCompiler.pas"/>
     823        <Caret Line="133" Column="1" TopLine="120"/>
    817824      </Position20>
    818825      <Position21>
    819         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    820         <Caret Line="17" Column="22" TopLine="4"/>
     826        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     827        <Caret Line="45" Column="14" TopLine="32"/>
    821828      </Position21>
    822829      <Position22>
    823         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    824         <Caret Line="37" Column="60" TopLine="24"/>
     830        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     831        <Caret Line="220" Column="53" TopLine="211"/>
    825832      </Position22>
    826833      <Position23>
    827         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    828         <Caret Line="172" Column="1" TopLine="159"/>
     834        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     835        <Caret Line="272" Column="12" TopLine="263"/>
    829836      </Position23>
    830837      <Position24>
    831         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    832         <Caret Line="20" Column="23" TopLine="1"/>
     838        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     839        <Caret Line="266" Column="1" TopLine="235"/>
    833840      </Position24>
    834841      <Position25>
    835842        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    836         <Caret Line="202" Column="46" TopLine="187"/>
     843        <Caret Line="146" Column="27" TopLine="133"/>
    837844      </Position25>
     845      <Position26>
     846        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     847        <Caret Line="125" Column="14" TopLine="112"/>
     848      </Position26>
     849      <Position27>
     850        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     851        <Caret Line="137" Column="58" TopLine="112"/>
     852      </Position27>
     853      <Position28>
     854        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     855        <Caret Line="232" Column="17" TopLine="226"/>
     856      </Position28>
     857      <Position29>
     858        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     859        <Caret Line="300" Column="15" TopLine="278"/>
     860      </Position29>
     861      <Position30>
     862        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\sysutils\sysstrh.inc"/>
     863        <Caret Line="120" Column="10" TopLine="107"/>
     864      </Position30>
    838865    </JumpHistory>
    839866  </ProjectOptions>
Note: See TracChangeset for help on using the changeset viewer.