Changeset 18 for trunk


Ignore:
Timestamp:
Nov 9, 2010, 8:10:12 AM (14 years ago)
Author:
george
Message:
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/Compiler/Analyze/UAnalyzerPascal.pas

    r17 r18  
    11981198      UseName := NextToken;
    11991199      if NextTokenType = ttIdentifier then begin
    1200         UseType := TypeList.Parent.Types.Search(UseName);
     1200        TTypeArray(Result).IndexType := TypeList.Parent.Types.Search(UseName);
    12011201        if not Assigned(TTypeArray(Result).IndexType) then
    12021202          ErrorMessage(SUndefinedType, [UseName], -1) else
     
    12041204      end else
    12051205      if NextTokenType = ttConstantNumber then begin
    1206         UseType := ParseTypeSubRange(TypeList, Name);
    1207         if not Assigned(UseType) then begin
     1206        TTypeArray(Result).IndexType := ParseTypeSubRange(TypeList, Name);
     1207        if not Assigned(TTypeArray(Result).IndexType) then begin
    12081208          ErrorMessage(SInvalidConstruction, [], -1);
    12091209        end;
  • trunk/Compiler/Produce/UProducerPascal.pas

    r17 r18  
    123123begin
    124124  if AType is TTypeRecord then begin
    125     EmitLn(AType.Name + ' ' + AssignSymbol + ' record');
     125    EmitLn('record');
    126126    Inc(Indetation);
    127     for I := 0 to TTypeRecord(AType).CommonBlock.Types.Count - 1 do begin
    128       GenerateType(TType(TTypeRecord(AType).CommonBlock.Types[I]));
     127    with TTypeRecord(AType).CommonBlock do
     128    for I := 0 to Variables.Count - 1 do begin
     129      Emit(Variables[I].Name + ': ');
     130      GenerateType(Variables[I].ValueType);
    129131      EmitLn(';');
    130132    end;
     
    132134    Emit('end');
    133135  end else
     136  if AType is TTypeSubRange then begin
     137    Emit(TTypeSubRange(AType).Bottom + '..' + TTypeSubRange(AType).Top);
     138  end else
    134139  if AType is TTypeArray then begin
    135     Emit(AType.Name + ' ' + AssignSymbol + ' array ');
     140    Emit('array ');
    136141    if Assigned(TTypeArray(AType).IndexType) then begin
    137142      Emit('[');
     
    142147    if Assigned(TTypeArray(AType).ItemType) then
    143148      GenerateType(TTypeArray(AType).ItemType);
     149  end else
     150  if AType is TTypePointer then begin
     151    Emit('^' + TTypePointer(AType).UsedType.Name);
    144152  end else begin
    145153    Emit(AType.Name);
    146     if Assigned(AType.UsedType) then begin
    147       Emit(' ' + AssignSymbol + ' ');
     154    if AType.Name = '' then begin
    148155      GenerateType(AType.UsedType);
    149156    end;
     
    161168    with TType(Types[I]) do
    162169    if (not Internal) then begin
    163       GenerateType(TType(Types[I]), '=');
     170      Emit(TType(Types[I]).Name + ' = ');
     171      GenerateType(TType(Types[I]));
    164172      EmitLn(';');
    165173    end;
  • trunk/IDE/Transpascal.lpi

    r17 r18  
    5353      </Item5>
    5454    </RequiredPackages>
    55     <Units Count="64">
     55    <Units Count="62">
    5656      <Unit0>
    5757        <Filename Value="Transpascal.lpr"/>
    5858        <IsPartOfProject Value="True"/>
    5959        <UnitName Value="Transpascal"/>
    60         <EditorIndex Value="12"/>
     60        <EditorIndex Value="14"/>
    6161        <WindowIndex Value="0"/>
    6262        <TopLine Value="1"/>
     
    9898        <TopLine Value="745"/>
    9999        <CursorPos X="46" Y="759"/>
    100         <UsageCount Value="122"/>
     100        <UsageCount Value="118"/>
    101101        <DefaultSyntaxHighlighter Value="Delphi"/>
    102102      </Unit3>
     
    107107        <TopLine Value="1"/>
    108108        <CursorPos X="40" Y="11"/>
    109         <UsageCount Value="122"/>
     109        <UsageCount Value="118"/>
    110110        <DefaultSyntaxHighlighter Value="Delphi"/>
    111111      </Unit4>
     
    116116        <TopLine Value="187"/>
    117117        <CursorPos X="34" Y="201"/>
    118         <UsageCount Value="122"/>
     118        <UsageCount Value="118"/>
    119119      </Unit5>
    120120      <Unit6>
     
    124124        <TopLine Value="1"/>
    125125        <CursorPos X="1" Y="14"/>
    126         <UsageCount Value="122"/>
     126        <UsageCount Value="118"/>
    127127      </Unit6>
    128128      <Unit7>
     
    132132        <TopLine Value="124"/>
    133133        <CursorPos X="42" Y="136"/>
    134         <UsageCount Value="122"/>
     134        <UsageCount Value="118"/>
    135135      </Unit7>
    136136      <Unit8>
     
    140140        <TopLine Value="442"/>
    141141        <CursorPos X="47" Y="455"/>
    142         <UsageCount Value="122"/>
     142        <UsageCount Value="118"/>
    143143      </Unit8>
    144144      <Unit9>
     
    148148        <TopLine Value="78"/>
    149149        <CursorPos X="27" Y="86"/>
    150         <UsageCount Value="14"/>
     150        <UsageCount Value="10"/>
    151151      </Unit9>
    152152      <Unit10>
     
    155155        <TopLine Value="61"/>
    156156        <CursorPos X="7" Y="68"/>
    157         <UsageCount Value="24"/>
     157        <UsageCount Value="20"/>
    158158      </Unit10>
    159159      <Unit11>
     
    162162        <TopLine Value="139"/>
    163163        <CursorPos X="16" Y="146"/>
    164         <UsageCount Value="24"/>
     164        <UsageCount Value="20"/>
    165165      </Unit11>
    166166      <Unit12>
     
    170170        <TopLine Value="69"/>
    171171        <CursorPos X="1" Y="82"/>
    172         <UsageCount Value="84"/>
     172        <UsageCount Value="80"/>
    173173      </Unit12>
    174174      <Unit13>
     
    178178        <TopLine Value="320"/>
    179179        <CursorPos X="1" Y="327"/>
    180         <UsageCount Value="38"/>
     180        <UsageCount Value="34"/>
    181181      </Unit13>
    182182      <Unit14>
     
    193193      </Unit14>
    194194      <Unit15>
    195         <Filename Value="Compiler\TranspascalCompiler.pas"/>
    196         <UnitName Value="TranspascalCompiler"/>
    197         <WindowIndex Value="0"/>
    198         <TopLine Value="1"/>
    199         <CursorPos X="33" Y="1"/>
    200         <UsageCount Value="2"/>
     195        <Filename Value="Compiler\UCompiler.pas"/>
     196        <UnitName Value="UCompiler"/>
     197        <WindowIndex Value="0"/>
     198        <TopLine Value="70"/>
     199        <CursorPos X="53" Y="92"/>
     200        <UsageCount Value="98"/>
    201201      </Unit15>
    202202      <Unit16>
    203         <Filename Value="Compiler\UCompiler.pas"/>
    204         <UnitName Value="UCompiler"/>
    205         <WindowIndex Value="0"/>
    206         <TopLine Value="70"/>
    207         <CursorPos X="53" Y="92"/>
    208         <UsageCount Value="102"/>
     203        <Filename Value="Compiler\USourceCode.pas"/>
     204        <UnitName Value="USourceCode"/>
     205        <WindowIndex Value="0"/>
     206        <TopLine Value="3"/>
     207        <CursorPos X="32" Y="17"/>
     208        <UsageCount Value="99"/>
    209209      </Unit16>
    210210      <Unit17>
    211         <Filename Value="Compiler\USourceCode.pas"/>
    212         <UnitName Value="USourceCode"/>
    213         <WindowIndex Value="0"/>
    214         <TopLine Value="3"/>
    215         <CursorPos X="32" Y="17"/>
    216         <UsageCount Value="103"/>
     211        <Filename Value="Compiler\Analyze\UParser.pas"/>
     212        <UnitName Value="UParser"/>
     213        <WindowIndex Value="0"/>
     214        <TopLine Value="45"/>
     215        <CursorPos X="14" Y="58"/>
     216        <UsageCount Value="98"/>
    217217      </Unit17>
    218218      <Unit18>
    219         <Filename Value="Compiler\Analyze\UParser.pas"/>
    220         <UnitName Value="UParser"/>
    221         <WindowIndex Value="0"/>
    222         <TopLine Value="45"/>
    223         <CursorPos X="14" Y="58"/>
    224         <UsageCount Value="102"/>
    225       </Unit18>
    226       <Unit19>
    227219        <Filename Value="Forms\UProjectManager.pas"/>
    228220        <IsPartOfProject Value="True"/>
     
    235227        <UsageCount Value="207"/>
    236228        <DefaultSyntaxHighlighter Value="Delphi"/>
    237       </Unit19>
    238       <Unit20>
     229      </Unit18>
     230      <Unit19>
    239231        <Filename Value="Forms\UCodeForm.pas"/>
    240232        <IsPartOfProject Value="True"/>
     
    247239        <UsageCount Value="207"/>
    248240        <DefaultSyntaxHighlighter Value="Delphi"/>
    249       </Unit20>
    250       <Unit21>
     241      </Unit19>
     242      <Unit20>
    251243        <Filename Value="Forms\UMessagesForm.pas"/>
    252244        <IsPartOfProject Value="True"/>
     
    259251        <UsageCount Value="207"/>
    260252        <DefaultSyntaxHighlighter Value="Delphi"/>
    261       </Unit21>
    262       <Unit22>
     253      </Unit20>
     254      <Unit21>
    263255        <Filename Value="Forms\UCompiledForm.pas"/>
    264256        <IsPartOfProject Value="True"/>
     
    267259        <ResourceBaseClass Value="Form"/>
    268260        <UnitName Value="UCompiledForm"/>
    269         <EditorIndex Value="8"/>
     261        <EditorIndex Value="10"/>
    270262        <WindowIndex Value="0"/>
    271263        <TopLine Value="2"/>
     
    274266        <Loaded Value="True"/>
    275267        <DefaultSyntaxHighlighter Value="Delphi"/>
    276       </Unit22>
    277       <Unit23>
     268      </Unit21>
     269      <Unit22>
    278270        <Filename Value="Forms\UCodeTreeForm.pas"/>
    279271        <IsPartOfProject Value="True"/>
     
    281273        <ResourceBaseClass Value="Form"/>
    282274        <UnitName Value="UCodeTreeForm"/>
    283         <EditorIndex Value="7"/>
     275        <EditorIndex Value="9"/>
    284276        <WindowIndex Value="0"/>
    285277        <TopLine Value="1"/>
     
    288280        <Loaded Value="True"/>
    289281        <DefaultSyntaxHighlighter Value="Delphi"/>
     282      </Unit22>
     283      <Unit23>
     284        <Filename Value="Compiler\Produce\UProducerTreeView.pas"/>
     285        <UnitName Value="UProducerTreeView"/>
     286        <WindowIndex Value="0"/>
     287        <TopLine Value="141"/>
     288        <CursorPos X="93" Y="154"/>
     289        <UsageCount Value="76"/>
    290290      </Unit23>
    291291      <Unit24>
    292         <Filename Value="Compiler\Produce\UProducerTreeView.pas"/>
    293         <UnitName Value="UProducerTreeView"/>
    294         <WindowIndex Value="0"/>
    295         <TopLine Value="141"/>
    296         <CursorPos X="93" Y="154"/>
    297         <UsageCount Value="80"/>
     292        <Filename Value="Common\URegistry.pas"/>
     293        <IsPartOfProject Value="True"/>
     294        <UnitName Value="URegistry"/>
     295        <WindowIndex Value="0"/>
     296        <TopLine Value="1"/>
     297        <CursorPos X="23" Y="22"/>
     298        <UsageCount Value="200"/>
     299        <DefaultSyntaxHighlighter Value="Delphi"/>
    298300      </Unit24>
    299301      <Unit25>
    300         <Filename Value="Common\URegistry.pas"/>
    301         <IsPartOfProject Value="True"/>
    302         <UnitName Value="URegistry"/>
    303         <WindowIndex Value="0"/>
    304         <TopLine Value="1"/>
    305         <CursorPos X="23" Y="22"/>
     302        <Filename Value="Common\ULastOpenedList.pas"/>
     303        <IsPartOfProject Value="True"/>
     304        <UnitName Value="ULastOpenedList"/>
     305        <WindowIndex Value="0"/>
     306        <TopLine Value="1"/>
     307        <CursorPos X="48" Y="11"/>
    306308        <UsageCount Value="200"/>
    307309        <DefaultSyntaxHighlighter Value="Delphi"/>
    308310      </Unit25>
    309311      <Unit26>
    310         <Filename Value="Common\ULastOpenedList.pas"/>
    311         <IsPartOfProject Value="True"/>
    312         <UnitName Value="ULastOpenedList"/>
    313         <WindowIndex Value="0"/>
    314         <TopLine Value="1"/>
    315         <CursorPos X="48" Y="11"/>
    316         <UsageCount Value="200"/>
    317         <DefaultSyntaxHighlighter Value="Delphi"/>
    318       </Unit26>
    319       <Unit27>
    320312        <Filename Value="UApplicationInfo.pas"/>
    321313        <IsPartOfProject Value="True"/>
     
    326318        <UsageCount Value="200"/>
    327319        <DefaultSyntaxHighlighter Value="Delphi"/>
     320      </Unit26>
     321      <Unit27>
     322        <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
     323        <UnitName Value="UProducerDynamicC"/>
     324        <WindowIndex Value="0"/>
     325        <TopLine Value="268"/>
     326        <CursorPos X="39" Y="283"/>
     327        <UsageCount Value="109"/>
    328328      </Unit27>
    329329      <Unit28>
    330         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    331         <UnitName Value="UProducerDynamicC"/>
    332         <WindowIndex Value="0"/>
    333         <TopLine Value="268"/>
    334         <CursorPos X="39" Y="283"/>
    335         <UsageCount Value="113"/>
     330        <Filename Value="Compiler\Produce\UProducerAsm8051.pas"/>
     331        <UnitName Value="UProducerAsm8051"/>
     332        <WindowIndex Value="0"/>
     333        <TopLine Value="143"/>
     334        <CursorPos X="68" Y="156"/>
     335        <UsageCount Value="73"/>
    336336      </Unit28>
    337337      <Unit29>
    338         <Filename Value="Compiler\Produce\UProducerAsm8051.pas"/>
    339         <UnitName Value="UProducerAsm8051"/>
    340         <WindowIndex Value="0"/>
    341         <TopLine Value="143"/>
    342         <CursorPos X="68" Y="156"/>
    343         <UsageCount Value="77"/>
     338        <Filename Value="Compiler\Produce\UProducerPascal.pas"/>
     339        <UnitName Value="UProducerPascal"/>
     340        <WindowIndex Value="0"/>
     341        <TopLine Value="309"/>
     342        <CursorPos X="64" Y="322"/>
     343        <UsageCount Value="106"/>
    344344      </Unit29>
    345345      <Unit30>
    346         <Filename Value="Compiler\Produce\UProducerPascal.pas"/>
    347         <UnitName Value="UProducerPascal"/>
    348         <WindowIndex Value="0"/>
    349         <TopLine Value="309"/>
    350         <CursorPos X="64" Y="322"/>
    351         <UsageCount Value="110"/>
     346        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     347        <UnitName Value="UPascalParser"/>
     348        <WindowIndex Value="0"/>
     349        <TopLine Value="266"/>
     350        <CursorPos X="32" Y="279"/>
     351        <UsageCount Value="106"/>
    352352      </Unit30>
    353353      <Unit31>
    354         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    355         <UnitName Value="UPascalParser"/>
    356         <WindowIndex Value="0"/>
    357         <TopLine Value="266"/>
    358         <CursorPos X="32" Y="279"/>
    359         <UsageCount Value="110"/>
     354        <Filename Value="Compiler\Analyze\UGrammer.pas"/>
     355        <UnitName Value="UGrammer"/>
     356        <WindowIndex Value="0"/>
     357        <TopLine Value="15"/>
     358        <CursorPos X="1" Y="28"/>
     359        <UsageCount Value="23"/>
    360360      </Unit31>
    361361      <Unit32>
    362         <Filename Value="Compiler\Analyze\UGrammer.pas"/>
    363         <UnitName Value="UGrammer"/>
    364         <WindowIndex Value="0"/>
    365         <TopLine Value="15"/>
    366         <CursorPos X="1" Y="28"/>
    367         <UsageCount Value="27"/>
     362        <Filename Value="Common\UDebugLog.pas"/>
     363        <IsPartOfProject Value="True"/>
     364        <UnitName Value="UDebugLog"/>
     365        <WindowIndex Value="0"/>
     366        <TopLine Value="1"/>
     367        <CursorPos X="28" Y="22"/>
     368        <UsageCount Value="328"/>
     369        <DefaultSyntaxHighlighter Value="Delphi"/>
    368370      </Unit32>
    369371      <Unit33>
    370         <Filename Value="E:\Programy\Lazarus\components\synedit\synedit.pp"/>
    371         <UnitName Value="SynEdit"/>
    372         <WindowIndex Value="0"/>
    373         <TopLine Value="828"/>
    374         <CursorPos X="27" Y="841"/>
     372        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\streams.inc"/>
     373        <WindowIndex Value="0"/>
     374        <TopLine Value="365"/>
     375        <CursorPos X="5" Y="370"/>
    375376        <UsageCount Value="3"/>
    376377      </Unit33>
    377378      <Unit34>
    378         <Filename Value="Common\UDebugLog.pas"/>
    379         <IsPartOfProject Value="True"/>
    380         <UnitName Value="UDebugLog"/>
    381         <WindowIndex Value="0"/>
    382         <TopLine Value="1"/>
    383         <CursorPos X="28" Y="22"/>
    384         <UsageCount Value="328"/>
    385         <DefaultSyntaxHighlighter Value="Delphi"/>
     379        <Filename Value="Compiler\Produce\UProducerGCCC.pas"/>
     380        <UnitName Value="UProducerGCCC"/>
     381        <WindowIndex Value="0"/>
     382        <TopLine Value="26"/>
     383        <CursorPos X="14" Y="39"/>
     384        <UsageCount Value="103"/>
    386385      </Unit34>
    387386      <Unit35>
    388         <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\streams.inc"/>
    389         <WindowIndex Value="0"/>
    390         <TopLine Value="365"/>
    391         <CursorPos X="5" Y="370"/>
    392         <UsageCount Value="7"/>
     387        <Filename Value="Forms\UMainForm.lfm"/>
     388        <WindowIndex Value="0"/>
     389        <TopLine Value="1"/>
     390        <CursorPos X="1" Y="1"/>
     391        <UsageCount Value="136"/>
     392        <Loaded Value="True"/>
     393        <DefaultSyntaxHighlighter Value="LFM"/>
    393394      </Unit35>
    394395      <Unit36>
    395         <Filename Value="Compiler\Produce\UProducerGCCC.pas"/>
    396         <UnitName Value="UProducerGCCC"/>
    397         <WindowIndex Value="0"/>
    398         <TopLine Value="26"/>
    399         <CursorPos X="14" Y="39"/>
    400         <UsageCount Value="107"/>
     396        <Filename Value="E:\usr\share\fpcsrc\packages\fcl-registry\src\registry.pp"/>
     397        <UnitName Value="registry"/>
     398        <WindowIndex Value="0"/>
     399        <TopLine Value="1"/>
     400        <CursorPos X="36" Y="55"/>
     401        <UsageCount Value="16"/>
     402        <DefaultSyntaxHighlighter Value="Delphi"/>
    401403      </Unit36>
    402404      <Unit37>
    403         <Filename Value="Forms\UMainForm.lfm"/>
    404         <WindowIndex Value="0"/>
    405         <TopLine Value="1"/>
    406         <CursorPos X="1" Y="1"/>
    407         <UsageCount Value="136"/>
    408         <Loaded Value="True"/>
    409         <DefaultSyntaxHighlighter Value="LFM"/>
     405        <Filename Value="E:\usr\share\fpcsrc\packages\fcl-registry\src\regdef.inc"/>
     406        <WindowIndex Value="0"/>
     407        <TopLine Value="1"/>
     408        <CursorPos X="3" Y="21"/>
     409        <UsageCount Value="16"/>
     410        <DefaultSyntaxHighlighter Value="Delphi"/>
    410411      </Unit37>
    411412      <Unit38>
    412         <Filename Value="E:\usr\share\fpcsrc\packages\fcl-registry\src\registry.pp"/>
    413         <UnitName Value="registry"/>
    414         <WindowIndex Value="0"/>
    415         <TopLine Value="1"/>
    416         <CursorPos X="36" Y="55"/>
    417         <UsageCount Value="20"/>
     413        <Filename Value="E:\lazarus\trunk\lcl\interfaces\gtk2\gtk2widgetset.inc"/>
     414        <WindowIndex Value="0"/>
     415        <TopLine Value="1377"/>
     416        <CursorPos X="32" Y="1396"/>
     417        <UsageCount Value="16"/>
    418418        <DefaultSyntaxHighlighter Value="Delphi"/>
    419419      </Unit38>
    420420      <Unit39>
    421         <Filename Value="E:\usr\share\fpcsrc\packages\fcl-registry\src\regdef.inc"/>
    422         <WindowIndex Value="0"/>
    423         <TopLine Value="1"/>
    424         <CursorPos X="3" Y="21"/>
    425         <UsageCount Value="20"/>
    426         <DefaultSyntaxHighlighter Value="Delphi"/>
     421        <Filename Value="Generics\Generic\GenericObjectList.inc"/>
     422        <WindowIndex Value="0"/>
     423        <TopLine Value="27"/>
     424        <CursorPos X="84" Y="48"/>
     425        <UsageCount Value="10"/>
    427426      </Unit39>
    428427      <Unit40>
    429         <Filename Value="E:\lazarus\trunk\lcl\interfaces\gtk2\gtk2widgetset.inc"/>
    430         <WindowIndex Value="0"/>
    431         <TopLine Value="1377"/>
    432         <CursorPos X="32" Y="1396"/>
    433         <UsageCount Value="20"/>
    434         <DefaultSyntaxHighlighter Value="Delphi"/>
     428        <Filename Value="Generics\Generic\GenericList.inc"/>
     429        <WindowIndex Value="0"/>
     430        <TopLine Value="100"/>
     431        <CursorPos X="43" Y="102"/>
     432        <UsageCount Value="10"/>
    435433      </Unit40>
    436434      <Unit41>
    437         <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericObjectList.inc"/>
    438         <WindowIndex Value="0"/>
    439         <TopLine Value="1"/>
    440         <CursorPos X="40" Y="13"/>
    441         <UsageCount Value="2"/>
    442         <DefaultSyntaxHighlighter Value="Delphi"/>
     435        <Filename Value="E:\Projekty\PascalClassLibrary\Docking\CoolDocking\UCoolDockStyleTabs.pas"/>
     436        <UnitName Value="UCoolDockStyleTabs"/>
     437        <WindowIndex Value="0"/>
     438        <TopLine Value="1"/>
     439        <CursorPos X="44" Y="6"/>
     440        <UsageCount Value="14"/>
    443441      </Unit41>
    444442      <Unit42>
    445         <Filename Value="Generics\Generic\GenericObjectList.inc"/>
    446         <WindowIndex Value="0"/>
    447         <TopLine Value="27"/>
    448         <CursorPos X="84" Y="48"/>
     443        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\win32\system.pp"/>
     444        <UnitName Value="System"/>
     445        <WindowIndex Value="0"/>
     446        <TopLine Value="22"/>
     447        <CursorPos X="2" Y="35"/>
    449448        <UsageCount Value="14"/>
    450449      </Unit42>
    451450      <Unit43>
    452         <Filename Value="Generics\Generic\GenericList.inc"/>
    453         <WindowIndex Value="0"/>
    454         <TopLine Value="100"/>
    455         <CursorPos X="43" Y="102"/>
    456         <UsageCount Value="14"/>
     451        <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
     452        <WindowIndex Value="0"/>
     453        <TopLine Value="1"/>
     454        <CursorPos X="60" Y="13"/>
     455        <UsageCount Value="74"/>
    457456      </Unit43>
    458457      <Unit44>
    459         <Filename Value="E:\Projekty\PascalClassLibrary\Docking\CoolDocking\UCoolDockStyleTabs.pas"/>
    460         <UnitName Value="UCoolDockStyleTabs"/>
    461         <WindowIndex Value="0"/>
    462         <TopLine Value="1"/>
    463         <CursorPos X="44" Y="6"/>
    464         <UsageCount Value="18"/>
     458        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\sysutils\sysstrh.inc"/>
     459        <WindowIndex Value="0"/>
     460        <TopLine Value="107"/>
     461        <CursorPos X="10" Y="120"/>
     462        <UsageCount Value="74"/>
    465463      </Unit44>
    466464      <Unit45>
    467         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\win32\system.pp"/>
    468         <UnitName Value="System"/>
    469         <WindowIndex Value="0"/>
    470         <TopLine Value="22"/>
    471         <CursorPos X="2" Y="35"/>
    472         <UsageCount Value="18"/>
     465        <Filename Value="Compiler\Produce\UProducer.pas"/>
     466        <UnitName Value="UProducer"/>
     467        <WindowIndex Value="0"/>
     468        <TopLine Value="1"/>
     469        <CursorPos X="1" Y="12"/>
     470        <UsageCount Value="73"/>
    473471      </Unit45>
    474472      <Unit46>
    475         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    476         <WindowIndex Value="0"/>
    477         <TopLine Value="1"/>
    478         <CursorPos X="60" Y="13"/>
    479         <UsageCount Value="78"/>
    480       </Unit46>
    481       <Unit47>
    482         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\sysutils\sysstrh.inc"/>
    483         <WindowIndex Value="0"/>
    484         <TopLine Value="107"/>
    485         <CursorPos X="10" Y="120"/>
    486         <UsageCount Value="78"/>
    487       </Unit47>
    488       <Unit48>
    489         <Filename Value="Compiler\Produce\UProducer.pas"/>
    490         <UnitName Value="UProducer"/>
    491         <WindowIndex Value="0"/>
    492         <TopLine Value="1"/>
    493         <CursorPos X="1" Y="12"/>
    494         <UsageCount Value="77"/>
    495       </Unit48>
    496       <Unit49>
    497473        <Filename Value="..\Compiler\UCompiler.pas"/>
    498474        <UnitName Value="UCompiler"/>
     
    501477        <TopLine Value="63"/>
    502478        <CursorPos X="19" Y="79"/>
    503         <UsageCount Value="13"/>
    504         <Loaded Value="True"/>
    505       </Unit49>
    506       <Unit50>
     479        <UsageCount Value="31"/>
     480        <Loaded Value="True"/>
     481      </Unit46>
     482      <Unit47>
    507483        <Filename Value="..\Compiler\Produce\UProducer.pas"/>
    508484        <UnitName Value="UProducer"/>
    509         <EditorIndex Value="11"/>
     485        <EditorIndex Value="13"/>
    510486        <WindowIndex Value="0"/>
    511487        <TopLine Value="10"/>
    512488        <CursorPos X="15" Y="23"/>
    513         <UsageCount Value="12"/>
    514         <Loaded Value="True"/>
    515       </Unit50>
    516       <Unit51>
     489        <UsageCount Value="30"/>
     490        <Loaded Value="True"/>
     491      </Unit47>
     492      <Unit48>
    517493        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    518494        <UnitName Value="UAnalyzer"/>
     
    521497        <TopLine Value="22"/>
    522498        <CursorPos X="14" Y="77"/>
    523         <UsageCount Value="12"/>
     499        <UsageCount Value="30"/>
     500        <Loaded Value="True"/>
     501      </Unit48>
     502      <Unit49>
     503        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     504        <UnitName Value="UAnalyzerPascal"/>
     505        <IsVisibleTab Value="True"/>
     506        <EditorIndex Value="12"/>
     507        <WindowIndex Value="0"/>
     508        <TopLine Value="1194"/>
     509        <CursorPos X="44" Y="1207"/>
     510        <UsageCount Value="30"/>
     511        <Loaded Value="True"/>
     512      </Unit49>
     513      <Unit50>
     514        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
     515        <UnitName Value="UProducerPascal"/>
     516        <EditorIndex Value="5"/>
     517        <WindowIndex Value="0"/>
     518        <TopLine Value="126"/>
     519        <CursorPos X="25" Y="140"/>
     520        <UsageCount Value="30"/>
     521        <Loaded Value="True"/>
     522      </Unit50>
     523      <Unit51>
     524        <Filename Value="..\Compiler\Produce\UProducerDynamicC.pas"/>
     525        <UnitName Value="UProducerDynamicC"/>
     526        <EditorIndex Value="8"/>
     527        <WindowIndex Value="0"/>
     528        <TopLine Value="10"/>
     529        <CursorPos X="40" Y="23"/>
     530        <UsageCount Value="29"/>
    524531        <Loaded Value="True"/>
    525532      </Unit51>
    526533      <Unit52>
    527         <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    528         <UnitName Value="UAnalyzerPascal"/>
    529         <EditorIndex Value="10"/>
    530         <WindowIndex Value="0"/>
    531         <TopLine Value="1267"/>
    532         <CursorPos X="46" Y="1281"/>
    533         <UsageCount Value="12"/>
    534         <Loaded Value="True"/>
     534        <Filename Value="..\Compiler\Produce\UProducerAsm8051.pas"/>
     535        <UnitName Value="UProducerAsm8051"/>
     536        <WindowIndex Value="0"/>
     537        <TopLine Value="107"/>
     538        <CursorPos X="22" Y="110"/>
     539        <UsageCount Value="6"/>
    535540      </Unit52>
    536541      <Unit53>
    537         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    538         <UnitName Value="UProducerPascal"/>
    539         <IsVisibleTab Value="True"/>
    540         <EditorIndex Value="5"/>
    541         <WindowIndex Value="0"/>
    542         <TopLine Value="101"/>
    543         <CursorPos X="1" Y="110"/>
    544         <UsageCount Value="12"/>
     542        <Filename Value="..\Compiler\Produce\UProducerGCCC.pas"/>
     543        <UnitName Value="UProducerGCCC"/>
     544        <EditorIndex Value="7"/>
     545        <WindowIndex Value="0"/>
     546        <TopLine Value="16"/>
     547        <CursorPos X="33" Y="26"/>
     548        <UsageCount Value="10"/>
    545549        <Loaded Value="True"/>
    546550      </Unit53>
    547551      <Unit54>
    548         <Filename Value="..\Compiler\Produce\UProducerDynamicC.pas"/>
    549         <UnitName Value="UProducerDynamicC"/>
    550         <EditorIndex Value="6"/>
    551         <WindowIndex Value="0"/>
    552         <TopLine Value="46"/>
    553         <CursorPos X="47" Y="56"/>
    554         <UsageCount Value="11"/>
     552        <Filename Value="..\Compiler\USourceCode.pas"/>
     553        <UnitName Value="USourceCode"/>
     554        <EditorIndex Value="11"/>
     555        <WindowIndex Value="0"/>
     556        <TopLine Value="208"/>
     557        <CursorPos X="3" Y="221"/>
     558        <UsageCount Value="30"/>
    555559        <Loaded Value="True"/>
    556560      </Unit54>
    557561      <Unit55>
    558         <Filename Value="..\Compiler\Produce\UProducerAsm8051.pas"/>
    559         <UnitName Value="UProducerAsm8051"/>
    560         <WindowIndex Value="0"/>
    561         <TopLine Value="107"/>
    562         <CursorPos X="22" Y="110"/>
    563         <UsageCount Value="10"/>
     562        <Filename Value="..\Compiler\TranspascalCompiler.pas"/>
     563        <UnitName Value="TranspascalCompiler"/>
     564        <WindowIndex Value="0"/>
     565        <TopLine Value="1"/>
     566        <CursorPos X="55" Y="19"/>
     567        <UsageCount Value="6"/>
    564568      </Unit55>
    565569      <Unit56>
    566         <Filename Value="..\Compiler\Produce\UProducerGCCC.pas"/>
    567         <UnitName Value="UProducerGCCC"/>
    568         <WindowIndex Value="0"/>
    569         <TopLine Value="54"/>
    570         <CursorPos X="30" Y="68"/>
    571         <UsageCount Value="10"/>
     570        <Filename Value="..\Compiler\Analyze\UGrammer.pas"/>
     571        <UnitName Value="UGrammer"/>
     572        <WindowIndex Value="0"/>
     573        <TopLine Value="1"/>
     574        <CursorPos X="26" Y="5"/>
     575        <UsageCount Value="6"/>
    572576      </Unit56>
    573577      <Unit57>
    574         <Filename Value="..\Compiler\USourceCode.pas"/>
    575         <UnitName Value="USourceCode"/>
    576         <EditorIndex Value="9"/>
    577         <WindowIndex Value="0"/>
    578         <TopLine Value="359"/>
    579         <CursorPos X="5" Y="373"/>
    580         <UsageCount Value="12"/>
     578        <Filename Value="..\Compiler\Analyze\UAnalyzers.pas"/>
     579        <UnitName Value="UAnalyzers"/>
     580        <EditorIndex Value="15"/>
     581        <WindowIndex Value="0"/>
     582        <TopLine Value="1"/>
     583        <CursorPos X="37" Y="12"/>
     584        <UsageCount Value="30"/>
    581585        <Loaded Value="True"/>
    582586      </Unit57>
    583587      <Unit58>
    584         <Filename Value="..\Compiler\TranspascalCompiler.pas"/>
    585         <UnitName Value="TranspascalCompiler"/>
    586         <WindowIndex Value="0"/>
    587         <TopLine Value="1"/>
    588         <CursorPos X="55" Y="19"/>
    589         <UsageCount Value="10"/>
     588        <Filename Value="..\Compiler\Produce\UProducers.pas"/>
     589        <UnitName Value="UProducers"/>
     590        <EditorIndex Value="16"/>
     591        <WindowIndex Value="0"/>
     592        <TopLine Value="12"/>
     593        <CursorPos X="55" Y="26"/>
     594        <UsageCount Value="30"/>
     595        <Loaded Value="True"/>
    590596      </Unit58>
    591597      <Unit59>
    592         <Filename Value="..\Compiler\Analyze\UGrammer.pas"/>
    593         <UnitName Value="UGrammer"/>
    594         <WindowIndex Value="0"/>
    595         <TopLine Value="1"/>
    596         <CursorPos X="26" Y="5"/>
    597         <UsageCount Value="10"/>
     598        <Filename Value="E:\Programy\Lazarus\lcl\stdctrls.pp"/>
     599        <UnitName Value="StdCtrls"/>
     600        <WindowIndex Value="0"/>
     601        <TopLine Value="438"/>
     602        <CursorPos X="3" Y="406"/>
     603        <UsageCount Value="6"/>
    598604      </Unit59>
    599605      <Unit60>
    600         <Filename Value="..\Compiler\Analyze\UAnalyzers.pas"/>
    601         <UnitName Value="UAnalyzers"/>
    602         <EditorIndex Value="13"/>
    603         <WindowIndex Value="0"/>
    604         <TopLine Value="1"/>
    605         <CursorPos X="37" Y="12"/>
    606         <UsageCount Value="12"/>
     606        <Filename Value="E:\Programy\Lazarus\lcl\include\fileutil.inc"/>
     607        <EditorIndex Value="1"/>
     608        <WindowIndex Value="0"/>
     609        <TopLine Value="628"/>
     610        <CursorPos X="1" Y="649"/>
     611        <UsageCount Value="29"/>
    607612        <Loaded Value="True"/>
    608613      </Unit60>
    609614      <Unit61>
    610         <Filename Value="..\Compiler\Produce\UProducers.pas"/>
    611         <UnitName Value="UProducers"/>
    612         <EditorIndex Value="14"/>
    613         <WindowIndex Value="0"/>
    614         <TopLine Value="12"/>
    615         <CursorPos X="55" Y="26"/>
    616         <UsageCount Value="12"/>
     615        <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericObjectList.inc"/>
     616        <EditorIndex Value="6"/>
     617        <WindowIndex Value="0"/>
     618        <TopLine Value="1"/>
     619        <CursorPos X="24" Y="4"/>
     620        <UsageCount Value="10"/>
    617621        <Loaded Value="True"/>
    618622      </Unit61>
    619       <Unit62>
    620         <Filename Value="E:\Programy\Lazarus\lcl\stdctrls.pp"/>
    621         <UnitName Value="StdCtrls"/>
    622         <WindowIndex Value="0"/>
    623         <TopLine Value="438"/>
    624         <CursorPos X="3" Y="406"/>
    625         <UsageCount Value="10"/>
    626       </Unit62>
    627       <Unit63>
    628         <Filename Value="E:\Programy\Lazarus\lcl\include\fileutil.inc"/>
    629         <EditorIndex Value="1"/>
    630         <WindowIndex Value="0"/>
    631         <TopLine Value="628"/>
    632         <CursorPos X="1" Y="649"/>
    633         <UsageCount Value="11"/>
    634         <Loaded Value="True"/>
    635       </Unit63>
    636623    </Units>
    637624    <JumpHistory Count="30" HistoryIndex="29">
    638625      <Position1>
    639626        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    640         <Caret Line="60" Column="60" TopLine="60"/>
     627        <Caret Line="176" Column="41" TopLine="158"/>
    641628      </Position1>
    642629      <Position2>
    643630        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    644         <Caret Line="70" Column="109" TopLine="60"/>
     631        <Caret Line="69" Column="28" TopLine="59"/>
    645632      </Position2>
    646633      <Position3>
    647634        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    648         <Caret Line="177" Column="3" TopLine="173"/>
     635        <Caret Line="73" Column="61" TopLine="59"/>
    649636      </Position3>
    650637      <Position4>
    651         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    652         <Caret Line="192" Column="1" TopLine="173"/>
     638        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     639        <Caret Line="29" Column="27" TopLine="15"/>
    653640      </Position4>
    654641      <Position5>
    655642        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    656         <Caret Line="193" Column="1" TopLine="173"/>
     643        <Caret Line="143" Column="17" TopLine="123"/>
    657644      </Position5>
    658645      <Position6>
    659         <Filename Value="Forms\UMainForm.pas"/>
    660         <Caret Line="107" Column="21" TopLine="93"/>
     646        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
     647        <Caret Line="128" Column="26" TopLine="120"/>
    661648      </Position6>
    662649      <Position7>
    663         <Filename Value="..\Compiler\UCompiler.pas"/>
    664         <Caret Line="79" Column="19" TopLine="63"/>
     650        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
     651        <Caret Line="130" Column="14" TopLine="120"/>
    665652      </Position7>
    666653      <Position8>
    667         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    668         <Caret Line="173" Column="1" TopLine="173"/>
     654        <Filename Value="..\Compiler\USourceCode.pas"/>
     655        <Caret Line="173" Column="21" TopLine="160"/>
    669656      </Position8>
    670657      <Position9>
    671         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    672         <Caret Line="171" Column="8" TopLine="166"/>
     658        <Filename Value="..\Compiler\USourceCode.pas"/>
     659        <Caret Line="26" Column="15" TopLine="13"/>
    673660      </Position9>
    674661      <Position10>
    675         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    676         <Caret Line="174" Column="19" TopLine="158"/>
     662        <Filename Value="..\Compiler\USourceCode.pas"/>
     663        <Caret Line="301" Column="66" TopLine="286"/>
    677664      </Position10>
    678665      <Position11>
    679666        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    680         <Caret Line="176" Column="7" TopLine="158"/>
     667        <Caret Line="130" Column="25" TopLine="118"/>
    681668      </Position11>
    682669      <Position12>
    683         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    684         <Caret Line="173" Column="1" TopLine="158"/>
     670        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     671        <Caret Line="1227" Column="4" TopLine="1221"/>
    685672      </Position12>
    686673      <Position13>
    687         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    688         <Caret Line="174" Column="1" TopLine="158"/>
     674        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     675        <Caret Line="1225" Column="1" TopLine="1220"/>
    689676      </Position13>
    690677      <Position14>
    691         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    692         <Caret Line="175" Column="1" TopLine="158"/>
     678        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     679        <Caret Line="1226" Column="1" TopLine="1220"/>
    693680      </Position14>
    694681      <Position15>
    695         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    696         <Caret Line="178" Column="1" TopLine="158"/>
     682        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     683        <Caret Line="1232" Column="1" TopLine="1220"/>
    697684      </Position15>
    698685      <Position16>
    699         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    700         <Caret Line="179" Column="1" TopLine="158"/>
     686        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     687        <Caret Line="1233" Column="1" TopLine="1220"/>
    701688      </Position16>
    702689      <Position17>
    703690        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    704         <Caret Line="173" Column="1" TopLine="158"/>
     691        <Caret Line="137" Column="13" TopLine="126"/>
    705692      </Position17>
    706693      <Position18>
    707694        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    708         <Caret Line="174" Column="1" TopLine="158"/>
     695        <Caret Line="143" Column="19" TopLine="126"/>
    709696      </Position18>
    710697      <Position19>
    711         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    712         <Caret Line="175" Column="1" TopLine="158"/>
     698        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     699        <Caret Line="1197" Column="28" TopLine="1178"/>
    713700      </Position19>
    714701      <Position20>
    715         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    716         <Caret Line="178" Column="1" TopLine="158"/>
     702        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     703        <Caret Line="1196" Column="1" TopLine="1178"/>
    717704      </Position20>
    718705      <Position21>
    719         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    720         <Caret Line="179" Column="1" TopLine="158"/>
     706        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     707        <Caret Line="1213" Column="1" TopLine="1191"/>
    721708      </Position21>
    722709      <Position22>
    723         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    724         <Caret Line="173" Column="1" TopLine="158"/>
     710        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     711        <Caret Line="1197" Column="1" TopLine="1191"/>
    725712      </Position22>
    726713      <Position23>
    727         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    728         <Caret Line="174" Column="1" TopLine="158"/>
     714        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     715        <Caret Line="1198" Column="1" TopLine="1191"/>
    729716      </Position23>
    730717      <Position24>
    731         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    732         <Caret Line="175" Column="1" TopLine="158"/>
     718        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     719        <Caret Line="1199" Column="1" TopLine="1191"/>
    733720      </Position24>
    734721      <Position25>
    735         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    736         <Caret Line="178" Column="1" TopLine="158"/>
     722        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     723        <Caret Line="1205" Column="1" TopLine="1191"/>
    737724      </Position25>
    738725      <Position26>
    739         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    740         <Caret Line="179" Column="1" TopLine="158"/>
     726        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     727        <Caret Line="1206" Column="1" TopLine="1191"/>
    741728      </Position26>
    742729      <Position27>
    743         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    744         <Caret Line="176" Column="41" TopLine="158"/>
     730        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     731        <Caret Line="1207" Column="1" TopLine="1191"/>
    745732      </Position27>
    746733      <Position28>
    747         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    748         <Caret Line="69" Column="28" TopLine="59"/>
     734        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     735        <Caret Line="1193" Column="21" TopLine="1188"/>
    749736      </Position28>
    750737      <Position29>
    751         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    752         <Caret Line="73" Column="61" TopLine="59"/>
     738        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     739        <Caret Line="1207" Column="34" TopLine="1188"/>
    753740      </Position29>
    754741      <Position30>
    755742        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    756         <Caret Line="29" Column="27" TopLine="15"/>
     743        <Caret Line="1206" Column="28" TopLine="1187"/>
    757744      </Position30>
    758745    </JumpHistory>
     
    797784  </CompilerOptions>
    798785  <Debugging>
     786    <BreakPoints Count="1">
     787      <Item1>
     788        <Source Value="..\Compiler\Produce\UProducerPascal.pas"/>
     789        <Line Value="143"/>
     790      </Item1>
     791    </BreakPoints>
    799792    <Exceptions Count="3">
    800793      <Item1>
Note: See TracChangeset for help on using the changeset viewer.