Changeset 8


Ignore:
Timestamp:
Nov 8, 2010, 7:06:20 AM (13 years ago)
Author:
george
Message:
  • Added: Support for type value.
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Compiler/Analyze/UPascalParser.pas

    r7 r8  
    249249      if (UseType is TTypeRecord) or (UseType is TTypeClass) then begin
    250250        // Type context
    251         Expect('.');
    252         Identifier := ReadToken;
    253         UseVariable := TTypeRecord(UseType).CommonBlock.Variables.Search(Identifier);
    254         if Assigned(UseVariable) then begin
    255           // Record or class variable
     251        if NextToken = '.' then begin
     252          Expect('.');
     253          Identifier := ReadToken;
     254          UseVariable := TTypeRecord(UseType).CommonBlock.Variables.Search(Identifier);
     255          if Assigned(UseVariable) then begin
     256            // Record or class variable
     257            NewExpression := TExpression.Create;
     258            NewExpression.CommonBlock := SourceCode.CommonBlock;
     259            NewExpression.NodeType := ntVariable;
     260            NewExpression.Variable := UseVariable;
     261          end;
     262          if not Assigned(NewExpression) then begin
     263            UseFunction := TTypeRecord(UseType).CommonBlock.Functions.Search(Identifier);
     264            if Assigned(UseFunction) then begin
     265              // Record or class functions
     266              ParseExpressionFunctionCall(SourceCode, Expressions, FunctionCall);
     267              NewExpression := TExpression.Create;
     268              NewExpression.CommonBlock := SourceCode.CommonBlock;
     269              NewExpression.NodeType := ntFunction;
     270              NewExpression.FunctionCall := FunctionCall;
     271            end;
     272          end;
     273          if not Assigned(NewExpression) then
     274            ErrorMessage(SUndefinedVariable, [Identifier]);
     275        end else begin
    256276          NewExpression := TExpression.Create;
    257277          NewExpression.CommonBlock := SourceCode.CommonBlock;
    258           NewExpression.NodeType := ntVariable;
    259           NewExpression.Variable := UseVariable;
    260         end;
    261         if not Assigned(NewExpression) then begin
    262           UseFunction := TTypeRecord(UseType).CommonBlock.Functions.Search(Identifier);
    263           if Assigned(UseFunction) then begin
    264             // Record or class functions
    265             ParseExpressionFunctionCall(SourceCode, Expressions, FunctionCall);
    266             NewExpression := TExpression.Create;
    267             NewExpression.CommonBlock := SourceCode.CommonBlock;
    268             NewExpression.NodeType := ntFunction;
    269             NewExpression.FunctionCall := FunctionCall;
    270           end;
    271         end;
    272         if not Assigned(NewExpression) then
    273           ErrorMessage(SUndefinedVariable, [Identifier]);
     278          NewExpression.NodeType := ntType;
     279          NewExpression.UseType := UseType;
     280        end;
    274281      end else ErrorMessage(SIllegalExpression, [Identifier]);
    275282    end;

  • trunk/Compiler/USourceCode.pas

    r7 r8  
    1515
    1616  TNodeType = (ntNone, ntVariable, ntFunction, ntConstant, ntOperator,
    17     ntValue, ntTypecast);
     17    ntValue, ntTypecast, ntType);
    1818
    1919  TTypeVisibility = (tvPublic, tvPublished, tvPrivate, tvProtected);

  • trunk/Transpascal.lpi

    r7 r8  
    5353      </Item5>
    5454    </RequiredPackages>
    55     <Units Count="79">
     55    <Units Count="49">
    5656      <Unit0>
    5757        <Filename Value="Transpascal.lpr"/>
    … …  
    9595        <TopLine Value="745"/>
    9696        <CursorPos X="46" Y="759"/>
    97         <UsageCount Value="135"/>
     97        <UsageCount Value="122"/>
    9898        <DefaultSyntaxHighlighter Value="Delphi"/>
    9999      </Unit3>
    … …  
    104104        <TopLine Value="1"/>
    105105        <CursorPos X="40" Y="11"/>
    106         <UsageCount Value="135"/>
     106        <UsageCount Value="122"/>
    107107        <DefaultSyntaxHighlighter Value="Delphi"/>
    108108      </Unit4>
    … …  
    113113        <TopLine Value="187"/>
    114114        <CursorPos X="34" Y="201"/>
    115         <UsageCount Value="135"/>
     115        <UsageCount Value="122"/>
    116116      </Unit5>
    117117      <Unit6>
    … …  
    121121        <TopLine Value="1"/>
    122122        <CursorPos X="1" Y="14"/>
    123         <UsageCount Value="135"/>
     123        <UsageCount Value="122"/>
    124124      </Unit6>
    125125      <Unit7>
    … …  
    129129        <TopLine Value="124"/>
    130130        <CursorPos X="42" Y="136"/>
    131         <UsageCount Value="135"/>
     131        <UsageCount Value="122"/>
    132132      </Unit7>
    133133      <Unit8>
    … …  
    137137        <TopLine Value="442"/>
    138138        <CursorPos X="47" Y="455"/>
    139         <UsageCount Value="135"/>
     139        <UsageCount Value="122"/>
    140140      </Unit8>
    141141      <Unit9>
    … …  
    145145        <TopLine Value="78"/>
    146146        <CursorPos X="27" Y="86"/>
    147         <UsageCount Value="27"/>
     147        <UsageCount Value="14"/>
    148148      </Unit9>
    149149      <Unit10>
    … …  
    152152        <TopLine Value="61"/>
    153153        <CursorPos X="7" Y="68"/>
    154         <UsageCount Value="37"/>
     154        <UsageCount Value="24"/>
    155155      </Unit10>
    156156      <Unit11>
    … …  
    159159        <TopLine Value="139"/>
    160160        <CursorPos X="16" Y="146"/>
    161         <UsageCount Value="37"/>
     161        <UsageCount Value="24"/>
    162162      </Unit11>
    163163      <Unit12>
    … …  
    167167        <TopLine Value="69"/>
    168168        <CursorPos X="1" Y="82"/>
    169         <UsageCount Value="97"/>
     169        <UsageCount Value="84"/>
    170170      </Unit12>
    171171      <Unit13>
    … …  
    175175        <TopLine Value="320"/>
    176176        <CursorPos X="1" Y="327"/>
    177         <UsageCount Value="51"/>
     177        <UsageCount Value="38"/>
    178178      </Unit13>
    179179      <Unit14>
    … …  
    195195        <TopLine Value="1"/>
    196196        <CursorPos X="33" Y="1"/>
    197         <UsageCount Value="15"/>
     197        <UsageCount Value="2"/>
    198198      </Unit15>
    199199      <Unit16>
    … …  
    212212        <EditorIndex Value="0"/>
    213213        <WindowIndex Value="0"/>
    214         <TopLine Value="162"/>
    215         <CursorPos X="17" Y="175"/>
     214        <TopLine Value="3"/>
     215        <CursorPos X="32" Y="17"/>
    216216        <UsageCount Value="103"/>
    217217        <Loaded Value="True"/>
    … …  
    297297        <TopLine Value="141"/>
    298298        <CursorPos X="93" Y="154"/>
    299         <UsageCount Value="14"/>
     299        <UsageCount Value="80"/>
    300300        <Loaded Value="True"/>
    301301      </Unit24>
    302302      <Unit25>
    303         <Filename Value="E:\Programy\Lazarus\components\synedit\synhighlightermulti.pas"/>
    304         <UnitName Value="SynHighlighterMulti"/>
    305         <WindowIndex Value="0"/>
    306         <TopLine Value="316"/>
    307         <CursorPos X="14" Y="329"/>
    308         <UsageCount Value="13"/>
     303        <Filename Value="Common\URegistry.pas"/>
     304        <IsPartOfProject Value="True"/>
     305        <UnitName Value="URegistry"/>
     306        <WindowIndex Value="0"/>
     307        <TopLine Value="1"/>
     308        <CursorPos X="23" Y="22"/>
     309        <UsageCount Value="200"/>
     310        <DefaultSyntaxHighlighter Value="Delphi"/>
    309311      </Unit25>
    310312      <Unit26>
    311         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    312         <WindowIndex Value="0"/>
    313         <TopLine Value="1762"/>
    314         <CursorPos X="1" Y="1769"/>
    315         <UsageCount Value="13"/>
     313        <Filename Value="Common\ULastOpenedList.pas"/>
     314        <IsPartOfProject Value="True"/>
     315        <UnitName Value="ULastOpenedList"/>
     316        <WindowIndex Value="0"/>
     317        <TopLine Value="1"/>
     318        <CursorPos X="48" Y="11"/>
     319        <UsageCount Value="200"/>
     320        <DefaultSyntaxHighlighter Value="Delphi"/>
    316321      </Unit26>
    317322      <Unit27>
    318         <Filename Value="Common\URegistry.pas"/>
    319         <IsPartOfProject Value="True"/>
    320         <UnitName Value="URegistry"/>
    321         <WindowIndex Value="0"/>
    322         <TopLine Value="1"/>
    323         <CursorPos X="23" Y="22"/>
    324         <UsageCount Value="200"/>
    325         <DefaultSyntaxHighlighter Value="Delphi"/>
    326       </Unit27>
    327       <Unit28>
    328         <Filename Value="Common\ULastOpenedList.pas"/>
    329         <IsPartOfProject Value="True"/>
    330         <UnitName Value="ULastOpenedList"/>
    331         <WindowIndex Value="0"/>
    332         <TopLine Value="1"/>
    333         <CursorPos X="48" Y="11"/>
    334         <UsageCount Value="200"/>
    335         <DefaultSyntaxHighlighter Value="Delphi"/>
    336       </Unit28>
    337       <Unit29>
    338323        <Filename Value="UApplicationInfo.pas"/>
    339324        <IsPartOfProject Value="True"/>
    … …  
    344329        <UsageCount Value="200"/>
    345330        <DefaultSyntaxHighlighter Value="Delphi"/>
    346       </Unit29>
    347       <Unit30>
     331      </Unit27>
     332      <Unit28>
    348333        <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    349334        <UnitName Value="UProducerDynamicC"/>
    … …  
    354339        <UsageCount Value="113"/>
    355340        <Loaded Value="True"/>
    356       </Unit30>
    357       <Unit31>
     341      </Unit28>
     342      <Unit29>
    358343        <Filename Value="Compiler\Produce\UProducerAsm8051.pas"/>
    359344        <UnitName Value="UProducerAsm8051"/>
    … …  
    362347        <TopLine Value="143"/>
    363348        <CursorPos X="68" Y="156"/>
    364         <UsageCount Value="11"/>
    365         <Loaded Value="True"/>
    366       </Unit31>
    367       <Unit32>
     349        <UsageCount Value="77"/>
     350        <Loaded Value="True"/>
     351      </Unit29>
     352      <Unit30>
    368353        <Filename Value="Compiler\Produce\UProducerPascal.pas"/>
    369354        <UnitName Value="UProducerPascal"/>
    … …  
    372357        <TopLine Value="309"/>
    373358        <CursorPos X="64" Y="322"/>
    374         <UsageCount Value="44"/>
    375         <Loaded Value="True"/>
    376       </Unit32>
    377       <Unit33>
     359        <UsageCount Value="110"/>
     360        <Loaded Value="True"/>
     361      </Unit30>
     362      <Unit31>
    378363        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    379364        <UnitName Value="UPascalParser"/>
    … …  
    381366        <EditorIndex Value="8"/>
    382367        <WindowIndex Value="0"/>
    383         <TopLine Value="450"/>
    384         <CursorPos X="17" Y="474"/>
     368        <TopLine Value="266"/>
     369        <CursorPos X="32" Y="279"/>
    385370        <UsageCount Value="110"/>
    386371        <Loaded Value="True"/>
     372      </Unit31>
     373      <Unit32>
     374        <Filename Value="Compiler\Analyze\UGrammer.pas"/>
     375        <UnitName Value="UGrammer"/>
     376        <WindowIndex Value="0"/>
     377        <TopLine Value="15"/>
     378        <CursorPos X="1" Y="28"/>
     379        <UsageCount Value="27"/>
     380      </Unit32>
     381      <Unit33>
     382        <Filename Value="E:\Programy\Lazarus\components\synedit\synedit.pp"/>
     383        <UnitName Value="SynEdit"/>
     384        <WindowIndex Value="0"/>
     385        <TopLine Value="828"/>
     386        <CursorPos X="27" Y="841"/>
     387        <UsageCount Value="3"/>
    387388      </Unit33>
    388389      <Unit34>
    389         <Filename Value="Compiler\Analyze\UGrammer.pas"/>
    390         <UnitName Value="UGrammer"/>
    391         <WindowIndex Value="0"/>
    392         <TopLine Value="15"/>
    393         <CursorPos X="1" Y="28"/>
    394         <UsageCount Value="40"/>
     390        <Filename Value="Common\UDebugLog.pas"/>
     391        <IsPartOfProject Value="True"/>
     392        <UnitName Value="UDebugLog"/>
     393        <WindowIndex Value="0"/>
     394        <TopLine Value="1"/>
     395        <CursorPos X="28" Y="22"/>
     396        <UsageCount Value="328"/>
     397        <DefaultSyntaxHighlighter Value="Delphi"/>
    395398      </Unit34>
    396399      <Unit35>
    397         <Filename Value="E:\Programy\Lazarus\components\synedit\synedit.pp"/>
    398         <UnitName Value="SynEdit"/>
    399         <WindowIndex Value="0"/>
    400         <TopLine Value="828"/>
    401         <CursorPos X="27" Y="841"/>
    402         <UsageCount Value="16"/>
     400        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\streams.inc"/>
     401        <WindowIndex Value="0"/>
     402        <TopLine Value="365"/>
     403        <CursorPos X="5" Y="370"/>
     404        <UsageCount Value="7"/>
    403405      </Unit35>
    404406      <Unit36>
    405         <Filename Value="Compiler\Analyze\x.sss"/>
    406         <WindowIndex Value="0"/>
    407         <TopLine Value="1"/>
    408         <CursorPos X="17" Y="5"/>
    409         <UsageCount Value="5"/>
    410         <DefaultSyntaxHighlighter Value="None"/>
    411       </Unit36>
    412       <Unit37>
    413         <Filename Value="Compiler\Analyze\System.pas"/>
    414         <UnitName Value="System"/>
    415         <WindowIndex Value="0"/>
    416         <TopLine Value="1"/>
    417         <CursorPos X="8" Y="8"/>
    418         <UsageCount Value="5"/>
    419       </Unit37>
    420       <Unit38>
    421         <Filename Value="Common\UDebugLog.pas"/>
    422         <IsPartOfProject Value="True"/>
    423         <UnitName Value="UDebugLog"/>
    424         <WindowIndex Value="0"/>
    425         <TopLine Value="1"/>
    426         <CursorPos X="28" Y="22"/>
    427         <UsageCount Value="198"/>
    428         <DefaultSyntaxHighlighter Value="Delphi"/>
    429       </Unit38>
    430       <Unit39>
    431         <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\streams.inc"/>
    432         <WindowIndex Value="0"/>
    433         <TopLine Value="365"/>
    434         <CursorPos X="5" Y="370"/>
    435         <UsageCount Value="20"/>
    436       </Unit39>
    437       <Unit40>
    438407        <Filename Value="Compiler\Produce\UProducerGCCC.pas"/>
    439408        <UnitName Value="UProducerGCCC"/>
    … …  
    442411        <TopLine Value="26"/>
    443412        <CursorPos X="14" Y="39"/>
    444         <UsageCount Value="41"/>
    445         <Loaded Value="True"/>
     413        <UsageCount Value="107"/>
     414        <Loaded Value="True"/>
     415      </Unit36>
     416      <Unit37>
     417        <Filename Value="Forms\UMainForm.lfm"/>
     418        <WindowIndex Value="0"/>
     419        <TopLine Value="1"/>
     420        <CursorPos X="1" Y="1"/>
     421        <UsageCount Value="136"/>
     422        <Loaded Value="True"/>
     423        <DefaultSyntaxHighlighter Value="LFM"/>
     424      </Unit37>
     425      <Unit38>
     426        <Filename Value="E:\usr\share\fpcsrc\packages\fcl-registry\src\registry.pp"/>
     427        <UnitName Value="registry"/>
     428        <WindowIndex Value="0"/>
     429        <TopLine Value="1"/>
     430        <CursorPos X="36" Y="55"/>
     431        <UsageCount Value="20"/>
     432        <DefaultSyntaxHighlighter Value="Delphi"/>
     433      </Unit38>
     434      <Unit39>
     435        <Filename Value="E:\usr\share\fpcsrc\packages\fcl-registry\src\regdef.inc"/>
     436        <WindowIndex Value="0"/>
     437        <TopLine Value="1"/>
     438        <CursorPos X="3" Y="21"/>
     439        <UsageCount Value="20"/>
     440        <DefaultSyntaxHighlighter Value="Delphi"/>
     441      </Unit39>
     442      <Unit40>
     443        <Filename Value="E:\lazarus\trunk\lcl\interfaces\gtk2\gtk2widgetset.inc"/>
     444        <WindowIndex Value="0"/>
     445        <TopLine Value="1377"/>
     446        <CursorPos X="32" Y="1396"/>
     447        <UsageCount Value="20"/>
     448        <DefaultSyntaxHighlighter Value="Delphi"/>
    446449      </Unit40>
    447450      <Unit41>
    448         <Filename Value="Forms\UMainForm.lfm"/>
    449         <WindowIndex Value="0"/>
    450         <TopLine Value="1"/>
    451         <CursorPos X="1" Y="1"/>
    452         <UsageCount Value="70"/>
    453         <Loaded Value="True"/>
    454         <DefaultSyntaxHighlighter Value="LFM"/>
     451        <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericObjectList.inc"/>
     452        <WindowIndex Value="0"/>
     453        <TopLine Value="1"/>
     454        <CursorPos X="40" Y="13"/>
     455        <UsageCount Value="2"/>
     456        <DefaultSyntaxHighlighter Value="Delphi"/>
    455457      </Unit41>
    456458      <Unit42>
    457         <Filename Value="E:\usr\share\fpcsrc\packages\fcl-registry\src\registry.pp"/>
    458         <UnitName Value="registry"/>
    459         <WindowIndex Value="0"/>
    460         <TopLine Value="1"/>
    461         <CursorPos X="36" Y="55"/>
    462         <UsageCount Value="33"/>
    463         <DefaultSyntaxHighlighter Value="Delphi"/>
     459        <Filename Value="Generics\Generic\GenericObjectList.inc"/>
     460        <WindowIndex Value="0"/>
     461        <TopLine Value="27"/>
     462        <CursorPos X="84" Y="48"/>
     463        <UsageCount Value="14"/>
    464464      </Unit42>
    465465      <Unit43>
    466         <Filename Value="E:\usr\share\fpcsrc\packages\fcl-registry\src\regdef.inc"/>
    467         <WindowIndex Value="0"/>
    468         <TopLine Value="1"/>
    469         <CursorPos X="3" Y="21"/>
    470         <UsageCount Value="33"/>
    471         <DefaultSyntaxHighlighter Value="Delphi"/>
     466        <Filename Value="Generics\Generic\GenericList.inc"/>
     467        <WindowIndex Value="0"/>
     468        <TopLine Value="100"/>
     469        <CursorPos X="43" Y="102"/>
     470        <UsageCount Value="14"/>
    472471      </Unit43>
    473472      <Unit44>
    474         <Filename Value="E:\lazarus\trunk\lcl\interfaces\gtk2\gtk2widgetset.inc"/>
    475         <WindowIndex Value="0"/>
    476         <TopLine Value="1377"/>
    477         <CursorPos X="32" Y="1396"/>
    478         <UsageCount Value="33"/>
    479         <DefaultSyntaxHighlighter Value="Delphi"/>
     473        <Filename Value="E:\Projekty\PascalClassLibrary\Docking\CoolDocking\UCoolDockStyleTabs.pas"/>
     474        <UnitName Value="UCoolDockStyleTabs"/>
     475        <WindowIndex Value="0"/>
     476        <TopLine Value="1"/>
     477        <CursorPos X="44" Y="6"/>
     478        <UsageCount Value="18"/>
    480479      </Unit44>
    481480      <Unit45>
    482         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\List\GenericListInterface.tpl"/>
     481        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\win32\system.pp"/>
     482        <UnitName Value="System"/>
    483483        <WindowIndex Value="0"/>
    484484        <TopLine Value="22"/>
    485         <CursorPos X="7" Y="47"/>
    486         <UsageCount Value="5"/>
    487         <DefaultSyntaxHighlighter Value="None"/>
     485        <CursorPos X="2" Y="35"/>
     486        <UsageCount Value="18"/>
    488487      </Unit45>
    489488      <Unit46>
    490         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\List\GenericListImplementation.tpl"/>
    491         <WindowIndex Value="0"/>
    492         <TopLine Value="171"/>
    493         <CursorPos X="7" Y="200"/>
    494         <UsageCount Value="5"/>
    495         <DefaultSyntaxHighlighter Value="None"/>
     489        <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
     490        <EditorIndex Value="5"/>
     491        <WindowIndex Value="0"/>
     492        <TopLine Value="71"/>
     493        <CursorPos X="1" Y="85"/>
     494        <UsageCount Value="78"/>
     495        <Loaded Value="True"/>
    496496      </Unit46>
    497497      <Unit47>
    498         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Specialized\ListObject.pas"/>
    499         <UnitName Value="ListObject"/>
    500         <WindowIndex Value="0"/>
    501         <TopLine Value="38"/>
    502         <CursorPos X="1" Y="74"/>
    503         <UsageCount Value="7"/>
    504         <DefaultSyntaxHighlighter Value="Delphi"/>
     498        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\sysutils\sysstrh.inc"/>
     499        <EditorIndex Value="10"/>
     500        <WindowIndex Value="0"/>
     501        <TopLine Value="107"/>
     502        <CursorPos X="10" Y="120"/>
     503        <UsageCount Value="78"/>
     504        <Loaded Value="True"/>
    505505      </Unit47>
    506506      <Unit48>
    507         <Filename Value="E:\lazarus\trunk\lcl\include\listitem.inc"/>
    508         <WindowIndex Value="0"/>
    509         <TopLine Value="525"/>
    510         <CursorPos X="24" Y="548"/>
    511         <UsageCount Value="5"/>
    512         <DefaultSyntaxHighlighter Value="Delphi"/>
    513       </Unit48>
    514       <Unit49>
    515         <Filename Value="E:\PascalClassLibrary\Docking\CoolDocking\UCoolDocking.pas"/>
    516         <UnitName Value="UCoolDocking"/>
    517         <WindowIndex Value="0"/>
    518         <TopLine Value="814"/>
    519         <CursorPos X="19" Y="828"/>
    520         <UsageCount Value="6"/>
    521         <DefaultSyntaxHighlighter Value="Delphi"/>
    522       </Unit49>
    523       <Unit50>
    524         <Filename Value="E:\usr\share\fpcsrc\2.4.0\rtl\unix\sysunixh.inc"/>
    525         <WindowIndex Value="0"/>
    526         <TopLine Value="15"/>
    527         <CursorPos X="2" Y="28"/>
    528         <UsageCount Value="5"/>
    529         <DefaultSyntaxHighlighter Value="Delphi"/>
    530       </Unit50>
    531       <Unit51>
    532         <Filename Value="E:\usr\share\fpcsrc\2.4.0\packages\fcl-registry\src\registry.pp"/>
    533         <UnitName Value="registry"/>
    534         <WindowIndex Value="0"/>
    535         <TopLine Value="194"/>
    536         <CursorPos X="12" Y="206"/>
    537         <UsageCount Value="5"/>
    538         <DefaultSyntaxHighlighter Value="Delphi"/>
    539       </Unit51>
    540       <Unit52>
    541         <Filename Value="E:\usr\share\fpcsrc\2.4.0\packages\fcl-registry\src\xregreg.inc"/>
    542         <WindowIndex Value="0"/>
    543         <TopLine Value="1"/>
    544         <CursorPos X="45" Y="15"/>
    545         <UsageCount Value="5"/>
    546         <DefaultSyntaxHighlighter Value="Delphi"/>
    547       </Unit52>
    548       <Unit53>
    549         <Filename Value="E:\usr\share\fpcsrc\2.4.0\rtl\objpas\sysutils\osutilsh.inc"/>
    550         <WindowIndex Value="0"/>
    551         <TopLine Value="22"/>
    552         <CursorPos X="10" Y="37"/>
    553         <UsageCount Value="5"/>
    554         <DefaultSyntaxHighlighter Value="Delphi"/>
    555       </Unit53>
    556       <Unit54>
    557         <Filename Value="E:\usr\share\fpcsrc\2.4.0\rtl\unix\sysutils.pp"/>
    558         <UnitName Value="sysutils"/>
    559         <WindowIndex Value="0"/>
    560         <TopLine Value="1294"/>
    561         <CursorPos X="47" Y="1321"/>
    562         <UsageCount Value="5"/>
    563         <DefaultSyntaxHighlighter Value="Delphi"/>
    564       </Unit54>
    565       <Unit55>
    566         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\ObjectListInterface.tpl"/>
    567         <TopLine Value="1"/>
    568         <CursorPos X="1" Y="13"/>
    569         <UsageCount Value="5"/>
    570         <DefaultSyntaxHighlighter Value="None"/>
    571       </Unit55>
    572       <Unit56>
    573         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\ObjectListImplementation.tpl"/>
    574         <WindowIndex Value="0"/>
    575         <TopLine Value="1"/>
    576         <CursorPos X="7" Y="17"/>
    577         <UsageCount Value="5"/>
    578         <DefaultSyntaxHighlighter Value="None"/>
    579       </Unit56>
    580       <Unit57>
    581         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericObjectList.inc"/>
    582         <WindowIndex Value="0"/>
    583         <TopLine Value="1"/>
    584         <CursorPos X="40" Y="13"/>
    585         <UsageCount Value="15"/>
    586         <DefaultSyntaxHighlighter Value="Delphi"/>
    587       </Unit57>
    588       <Unit58>
    589         <Filename Value="Generics\Generic\GenericObjectList.inc"/>
    590         <WindowIndex Value="0"/>
    591         <TopLine Value="27"/>
    592         <CursorPos X="84" Y="48"/>
    593         <UsageCount Value="27"/>
    594       </Unit58>
    595       <Unit59>
    596         <Filename Value="Generics\Generic\GenericList.inc"/>
    597         <WindowIndex Value="0"/>
    598         <TopLine Value="100"/>
    599         <CursorPos X="43" Y="102"/>
    600         <UsageCount Value="27"/>
    601       </Unit59>
    602       <Unit60>
    603         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    604         <WindowIndex Value="0"/>
    605         <TopLine Value="24"/>
    606         <CursorPos X="14" Y="43"/>
    607         <UsageCount Value="6"/>
    608         <DefaultSyntaxHighlighter Value="Delphi"/>
    609       </Unit60>
    610       <Unit61>
    611         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericDictionary.inc"/>
    612         <WindowIndex Value="0"/>
    613         <TopLine Value="69"/>
    614         <CursorPos X="4" Y="41"/>
    615         <UsageCount Value="6"/>
    616         <DefaultSyntaxHighlighter Value="Delphi"/>
    617       </Unit61>
    618       <Unit62>
    619         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericQueue.inc"/>
    620         <WindowIndex Value="0"/>
    621         <TopLine Value="1"/>
    622         <CursorPos X="8" Y="30"/>
    623         <UsageCount Value="6"/>
    624         <DefaultSyntaxHighlighter Value="Delphi"/>
    625       </Unit62>
    626       <Unit63>
    627         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericSet.inc"/>
    628         <WindowIndex Value="0"/>
    629         <TopLine Value="12"/>
    630         <CursorPos X="8" Y="28"/>
    631         <UsageCount Value="6"/>
    632         <DefaultSyntaxHighlighter Value="Delphi"/>
    633       </Unit63>
    634       <Unit64>
    635         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericStack.inc"/>
    636         <WindowIndex Value="0"/>
    637         <TopLine Value="31"/>
    638         <CursorPos X="4" Y="42"/>
    639         <UsageCount Value="6"/>
    640         <DefaultSyntaxHighlighter Value="Delphi"/>
    641       </Unit64>
    642       <Unit65>
    643         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericTree.inc"/>
    644         <WindowIndex Value="0"/>
    645         <TopLine Value="27"/>
    646         <CursorPos X="4" Y="47"/>
    647         <UsageCount Value="6"/>
    648         <DefaultSyntaxHighlighter Value="Delphi"/>
    649       </Unit65>
    650       <Unit66>
    651         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedList.pas"/>
    652         <UnitName Value="SpecializedList"/>
    653         <WindowIndex Value="0"/>
    654         <TopLine Value="166"/>
    655         <CursorPos X="6" Y="203"/>
    656         <UsageCount Value="6"/>
    657         <DefaultSyntaxHighlighter Value="Delphi"/>
    658       </Unit66>
    659       <Unit67>
    660         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedDictionary.pas"/>
    661         <UnitName Value="SpecializedDictionary"/>
    662         <WindowIndex Value="0"/>
    663         <TopLine Value="2"/>
    664         <CursorPos X="6" Y="39"/>
    665         <UsageCount Value="6"/>
    666         <DefaultSyntaxHighlighter Value="Delphi"/>
    667       </Unit67>
    668       <Unit68>
    669         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedStack.pas"/>
    670         <UnitName Value="SpecializedStack"/>
    671         <WindowIndex Value="0"/>
    672         <TopLine Value="21"/>
    673         <CursorPos X="6" Y="57"/>
    674         <UsageCount Value="6"/>
    675         <DefaultSyntaxHighlighter Value="Delphi"/>
    676       </Unit68>
    677       <Unit69>
    678         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedTree.pas"/>
    679         <UnitName Value="SpecializedTree"/>
    680         <WindowIndex Value="0"/>
    681         <TopLine Value="46"/>
    682         <CursorPos X="6" Y="83"/>
    683         <UsageCount Value="6"/>
    684         <DefaultSyntaxHighlighter Value="Delphi"/>
    685       </Unit69>
    686       <Unit70>
    687         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedQueue.pas"/>
    688         <UnitName Value="SpecializedQueue"/>
    689         <WindowIndex Value="0"/>
    690         <TopLine Value="41"/>
    691         <CursorPos X="6" Y="78"/>
    692         <UsageCount Value="6"/>
    693         <DefaultSyntaxHighlighter Value="Delphi"/>
    694       </Unit70>
    695       <Unit71>
    696         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedSet.pas"/>
    697         <UnitName Value="SpecializedSet"/>
    698         <WindowIndex Value="0"/>
    699         <TopLine Value="21"/>
    700         <CursorPos X="23" Y="32"/>
    701         <UsageCount Value="6"/>
    702         <DefaultSyntaxHighlighter Value="Delphi"/>
    703       </Unit71>
    704       <Unit72>
    705         <Filename Value="E:\Projekty\PascalClassLibrary\Docking\CoolDocking\UCoolDockStyleTabs.pas"/>
    706         <UnitName Value="UCoolDockStyleTabs"/>
    707         <WindowIndex Value="0"/>
    708         <TopLine Value="1"/>
    709         <CursorPos X="44" Y="6"/>
    710         <UsageCount Value="31"/>
    711       </Unit72>
    712       <Unit73>
    713         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\win32\system.pp"/>
    714         <UnitName Value="System"/>
    715         <WindowIndex Value="0"/>
    716         <TopLine Value="22"/>
    717         <CursorPos X="2" Y="35"/>
    718         <UsageCount Value="31"/>
    719       </Unit73>
    720       <Unit74>
    721         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedList.pas"/>
    722         <UnitName Value="SpecializedList"/>
    723         <WindowIndex Value="0"/>
    724         <TopLine Value="5"/>
    725         <CursorPos X="54" Y="17"/>
    726         <UsageCount Value="10"/>
    727       </Unit74>
    728       <Unit75>
    729         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    730         <EditorIndex Value="5"/>
    731         <WindowIndex Value="0"/>
    732         <TopLine Value="71"/>
    733         <CursorPos X="1" Y="85"/>
    734         <UsageCount Value="12"/>
    735         <Loaded Value="True"/>
    736       </Unit75>
    737       <Unit76>
    738         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericObjectList.inc"/>
    739         <WindowIndex Value="0"/>
    740         <TopLine Value="1"/>
    741         <CursorPos X="24" Y="4"/>
    742         <UsageCount Value="10"/>
    743       </Unit76>
    744       <Unit77>
    745         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\sysutils\sysstrh.inc"/>
    746         <EditorIndex Value="10"/>
    747         <WindowIndex Value="0"/>
    748         <TopLine Value="107"/>
    749         <CursorPos X="10" Y="120"/>
    750         <UsageCount Value="12"/>
    751         <Loaded Value="True"/>
    752       </Unit77>
    753       <Unit78>
    754507        <Filename Value="Compiler\Produce\UProducer.pas"/>
    755508        <UnitName Value="UProducer"/>
    … …  
    758511        <TopLine Value="1"/>
    759512        <CursorPos X="1" Y="12"/>
    760         <UsageCount Value="11"/>
    761         <Loaded Value="True"/>
    762       </Unit78>
     513        <UsageCount Value="77"/>
     514        <Loaded Value="True"/>
     515      </Unit48>
    763516    </Units>
    764     <JumpHistory Count="30" HistoryIndex="27">
     517    <JumpHistory Count="30" HistoryIndex="29">
    765518      <Position1>
    766519        <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    767         <Caret Line="308" Column="33" TopLine="295"/>
     520        <Caret Line="8" Column="69" TopLine="6"/>
    768521      </Position1>
    769522      <Position2>
    770523        <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    771         <Caret Line="38" Column="70" TopLine="25"/>
     524        <Caret Line="38" Column="34" TopLine="25"/>
    772525      </Position2>
    773526      <Position3>
    774527        <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    775         <Caret Line="286" Column="25" TopLine="277"/>
     528        <Caret Line="241" Column="68" TopLine="228"/>
    776529      </Position3>
    777530      <Position4>
    778531        <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    779         <Caret Line="281" Column="1" TopLine="276"/>
     532        <Caret Line="277" Column="48" TopLine="264"/>
    780533      </Position4>
    781534      <Position5>
    782535        <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    783         <Caret Line="283" Column="1" TopLine="276"/>
     536        <Caret Line="308" Column="49" TopLine="295"/>
    784537      </Position5>
    785538      <Position6>
    786         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    787         <Caret Line="284" Column="1" TopLine="276"/>
     539        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     540        <Caret Line="398" Column="17" TopLine="395"/>
    788541      </Position6>
    789542      <Position7>
    790         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    791         <Caret Line="290" Column="1" TopLine="276"/>
     543        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     544        <Caret Line="401" Column="14" TopLine="395"/>
    792545      </Position7>
    793546      <Position8>
    794         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    795         <Caret Line="292" Column="1" TopLine="276"/>
     547        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     548        <Caret Line="398" Column="17" TopLine="395"/>
    796549      </Position8>
    797550      <Position9>
    798         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    799         <Caret Line="293" Column="1" TopLine="276"/>
     551        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     552        <Caret Line="431" Column="24" TopLine="426"/>
    800553      </Position9>
    801554      <Position10>
    802         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    803         <Caret Line="316" Column="1" TopLine="303"/>
     555        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     556        <Caret Line="426" Column="57" TopLine="426"/>
    804557      </Position10>
    805558      <Position11>
    806         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    807         <Caret Line="281" Column="1" TopLine="268"/>
     559        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     560        <Caret Line="449" Column="17" TopLine="429"/>
    808561      </Position11>
    809562      <Position12>
    810         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    811         <Caret Line="8" Column="69" TopLine="6"/>
     563        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     564        <Caret Line="1274" Column="15" TopLine="1251"/>
    812565      </Position12>
    813566      <Position13>
    814         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    815         <Caret Line="38" Column="34" TopLine="25"/>
     567        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     568        <Caret Line="1277" Column="14" TopLine="1253"/>
    816569      </Position13>
    817570      <Position14>
    818         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    819         <Caret Line="241" Column="68" TopLine="228"/>
     571        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     572        <Caret Line="449" Column="11" TopLine="435"/>
    820573      </Position14>
    821574      <Position15>
    822         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    823         <Caret Line="277" Column="48" TopLine="264"/>
     575        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     576        <Caret Line="442" Column="27" TopLine="435"/>
    824577      </Position15>
    825578      <Position16>
    826         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    827         <Caret Line="308" Column="49" TopLine="295"/>
     579        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     580        <Caret Line="453" Column="55" TopLine="444"/>
    828581      </Position16>
    829582      <Position17>
    830583        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    831         <Caret Line="398" Column="17" TopLine="395"/>
     584        <Caret Line="455" Column="43" TopLine="438"/>
    832585      </Position17>
    833586      <Position18>
    834587        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    835         <Caret Line="401" Column="14" TopLine="395"/>
     588        <Caret Line="6" Column="43" TopLine="1"/>
    836589      </Position18>
    837590      <Position19>
    838591        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    839         <Caret Line="398" Column="17" TopLine="395"/>
     592        <Caret Line="82" Column="21" TopLine="69"/>
    840593      </Position19>
    841594      <Position20>
    842595        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    843         <Caret Line="431" Column="24" TopLine="426"/>
     596        <Caret Line="398" Column="14" TopLine="390"/>
    844597      </Position20>
    845598      <Position21>
    846599        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    847         <Caret Line="426" Column="57" TopLine="426"/>
     600        <Caret Line="399" Column="19" TopLine="390"/>
    848601      </Position21>
    849602      <Position22>
    850603        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    851         <Caret Line="449" Column="17" TopLine="429"/>
     604        <Caret Line="403" Column="68" TopLine="390"/>
    852605      </Position22>
    853606      <Position23>
    854607        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    855         <Caret Line="1274" Column="15" TopLine="1251"/>
     608        <Caret Line="35" Column="32" TopLine="30"/>
    856609      </Position23>
    857610      <Position24>
    858611        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    859         <Caret Line="1277" Column="14" TopLine="1253"/>
     612        <Caret Line="418" Column="29" TopLine="403"/>
    860613      </Position24>
    861614      <Position25>
    862615        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    863         <Caret Line="449" Column="11" TopLine="435"/>
     616        <Caret Line="399" Column="18" TopLine="386"/>
    864617      </Position25>
    865618      <Position26>
    866619        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    867         <Caret Line="442" Column="27" TopLine="435"/>
     620        <Caret Line="35" Column="90" TopLine="22"/>
    868621      </Position26>
    869622      <Position27>
    870623        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    871         <Caret Line="453" Column="55" TopLine="444"/>
     624        <Caret Line="403" Column="100" TopLine="403"/>
    872625      </Position27>
    873626      <Position28>
    874627        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    875         <Caret Line="455" Column="43" TopLine="438"/>
     628        <Caret Line="269" Column="46" TopLine="258"/>
    876629      </Position28>
    877630      <Position29>
    878         <Filename Value="Compiler\USourceCode.pas"/>
    879         <Caret Line="175" Column="17" TopLine="162"/>
     631        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     632        <Caret Line="266" Column="63" TopLine="258"/>
    880633      </Position29>
    881634      <Position30>
    882         <Filename Value="Compiler\USourceCode.pas"/>
    883         <Caret Line="78" Column="3" TopLine="65"/>
     635        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     636        <Caret Line="276" Column="39" TopLine="263"/>
    884637      </Position30>
    885638    </JumpHistory>
Note: See TracChangeset for help on using the changeset viewer.