- Timestamp:
- Nov 8, 2010, 7:06:20 AM (14 years ago)
- Location:
- trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Compiler/Analyze/UPascalParser.pas
r7 r8 249 249 if (UseType is TTypeRecord) or (UseType is TTypeClass) then begin 250 250 // 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 256 276 NewExpression := TExpression.Create; 257 277 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; 274 281 end else ErrorMessage(SIllegalExpression, [Identifier]); 275 282 end; -
trunk/Compiler/USourceCode.pas
r7 r8 15 15 16 16 TNodeType = (ntNone, ntVariable, ntFunction, ntConstant, ntOperator, 17 ntValue, ntTypecast );17 ntValue, ntTypecast, ntType); 18 18 19 19 TTypeVisibility = (tvPublic, tvPublished, tvPrivate, tvProtected); -
trunk/Transpascal.lpi
r7 r8 53 53 </Item5> 54 54 </RequiredPackages> 55 <Units Count=" 79">55 <Units Count="49"> 56 56 <Unit0> 57 57 <Filename Value="Transpascal.lpr"/> … … 95 95 <TopLine Value="745"/> 96 96 <CursorPos X="46" Y="759"/> 97 <UsageCount Value="1 35"/>97 <UsageCount Value="122"/> 98 98 <DefaultSyntaxHighlighter Value="Delphi"/> 99 99 </Unit3> … … 104 104 <TopLine Value="1"/> 105 105 <CursorPos X="40" Y="11"/> 106 <UsageCount Value="1 35"/>106 <UsageCount Value="122"/> 107 107 <DefaultSyntaxHighlighter Value="Delphi"/> 108 108 </Unit4> … … 113 113 <TopLine Value="187"/> 114 114 <CursorPos X="34" Y="201"/> 115 <UsageCount Value="1 35"/>115 <UsageCount Value="122"/> 116 116 </Unit5> 117 117 <Unit6> … … 121 121 <TopLine Value="1"/> 122 122 <CursorPos X="1" Y="14"/> 123 <UsageCount Value="1 35"/>123 <UsageCount Value="122"/> 124 124 </Unit6> 125 125 <Unit7> … … 129 129 <TopLine Value="124"/> 130 130 <CursorPos X="42" Y="136"/> 131 <UsageCount Value="1 35"/>131 <UsageCount Value="122"/> 132 132 </Unit7> 133 133 <Unit8> … … 137 137 <TopLine Value="442"/> 138 138 <CursorPos X="47" Y="455"/> 139 <UsageCount Value="1 35"/>139 <UsageCount Value="122"/> 140 140 </Unit8> 141 141 <Unit9> … … 145 145 <TopLine Value="78"/> 146 146 <CursorPos X="27" Y="86"/> 147 <UsageCount Value=" 27"/>147 <UsageCount Value="14"/> 148 148 </Unit9> 149 149 <Unit10> … … 152 152 <TopLine Value="61"/> 153 153 <CursorPos X="7" Y="68"/> 154 <UsageCount Value=" 37"/>154 <UsageCount Value="24"/> 155 155 </Unit10> 156 156 <Unit11> … … 159 159 <TopLine Value="139"/> 160 160 <CursorPos X="16" Y="146"/> 161 <UsageCount Value=" 37"/>161 <UsageCount Value="24"/> 162 162 </Unit11> 163 163 <Unit12> … … 167 167 <TopLine Value="69"/> 168 168 <CursorPos X="1" Y="82"/> 169 <UsageCount Value=" 97"/>169 <UsageCount Value="84"/> 170 170 </Unit12> 171 171 <Unit13> … … 175 175 <TopLine Value="320"/> 176 176 <CursorPos X="1" Y="327"/> 177 <UsageCount Value=" 51"/>177 <UsageCount Value="38"/> 178 178 </Unit13> 179 179 <Unit14> … … 195 195 <TopLine Value="1"/> 196 196 <CursorPos X="33" Y="1"/> 197 <UsageCount Value=" 15"/>197 <UsageCount Value="2"/> 198 198 </Unit15> 199 199 <Unit16> … … 212 212 <EditorIndex Value="0"/> 213 213 <WindowIndex Value="0"/> 214 <TopLine Value=" 162"/>215 <CursorPos X=" 17" Y="175"/>214 <TopLine Value="3"/> 215 <CursorPos X="32" Y="17"/> 216 216 <UsageCount Value="103"/> 217 217 <Loaded Value="True"/> … … 297 297 <TopLine Value="141"/> 298 298 <CursorPos X="93" Y="154"/> 299 <UsageCount Value=" 14"/>299 <UsageCount Value="80"/> 300 300 <Loaded Value="True"/> 301 301 </Unit24> 302 302 <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"/> 309 311 </Unit25> 310 312 <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"/> 316 321 </Unit26> 317 322 <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>338 323 <Filename Value="UApplicationInfo.pas"/> 339 324 <IsPartOfProject Value="True"/> … … 344 329 <UsageCount Value="200"/> 345 330 <DefaultSyntaxHighlighter Value="Delphi"/> 346 </Unit2 9>347 <Unit 30>331 </Unit27> 332 <Unit28> 348 333 <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/> 349 334 <UnitName Value="UProducerDynamicC"/> … … 354 339 <UsageCount Value="113"/> 355 340 <Loaded Value="True"/> 356 </Unit 30>357 <Unit 31>341 </Unit28> 342 <Unit29> 358 343 <Filename Value="Compiler\Produce\UProducerAsm8051.pas"/> 359 344 <UnitName Value="UProducerAsm8051"/> … … 362 347 <TopLine Value="143"/> 363 348 <CursorPos X="68" Y="156"/> 364 <UsageCount Value=" 11"/>365 <Loaded Value="True"/> 366 </Unit 31>367 <Unit3 2>349 <UsageCount Value="77"/> 350 <Loaded Value="True"/> 351 </Unit29> 352 <Unit30> 368 353 <Filename Value="Compiler\Produce\UProducerPascal.pas"/> 369 354 <UnitName Value="UProducerPascal"/> … … 372 357 <TopLine Value="309"/> 373 358 <CursorPos X="64" Y="322"/> 374 <UsageCount Value=" 44"/>375 <Loaded Value="True"/> 376 </Unit3 2>377 <Unit3 3>359 <UsageCount Value="110"/> 360 <Loaded Value="True"/> 361 </Unit30> 362 <Unit31> 378 363 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 379 364 <UnitName Value="UPascalParser"/> … … 381 366 <EditorIndex Value="8"/> 382 367 <WindowIndex Value="0"/> 383 <TopLine Value=" 450"/>384 <CursorPos X=" 17" Y="474"/>368 <TopLine Value="266"/> 369 <CursorPos X="32" Y="279"/> 385 370 <UsageCount Value="110"/> 386 371 <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"/> 387 388 </Unit33> 388 389 <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"/> 395 398 </Unit34> 396 399 <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"/> 403 405 </Unit35> 404 406 <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>438 407 <Filename Value="Compiler\Produce\UProducerGCCC.pas"/> 439 408 <UnitName Value="UProducerGCCC"/> … … 442 411 <TopLine Value="26"/> 443 412 <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"/> 446 449 </Unit40> 447 450 <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"/> 455 457 </Unit41> 456 458 <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"/> 464 464 </Unit42> 465 465 <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"/> 472 471 </Unit43> 473 472 <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"/> 480 479 </Unit44> 481 480 <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"/> 483 483 <WindowIndex Value="0"/> 484 484 <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"/> 488 487 </Unit45> 489 488 <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"/> 496 496 </Unit46> 497 497 <Unit47> 498 <Filename Value="E:\P ascalClassLibrary\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"/> 505 505 </Unit47> 506 506 <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>754 507 <Filename Value="Compiler\Produce\UProducer.pas"/> 755 508 <UnitName Value="UProducer"/> … … 758 511 <TopLine Value="1"/> 759 512 <CursorPos X="1" Y="12"/> 760 <UsageCount Value=" 11"/>761 <Loaded Value="True"/> 762 </Unit 78>513 <UsageCount Value="77"/> 514 <Loaded Value="True"/> 515 </Unit48> 763 516 </Units> 764 <JumpHistory Count="30" HistoryIndex="2 7">517 <JumpHistory Count="30" HistoryIndex="29"> 765 518 <Position1> 766 519 <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/> 767 <Caret Line=" 308" Column="33" TopLine="295"/>520 <Caret Line="8" Column="69" TopLine="6"/> 768 521 </Position1> 769 522 <Position2> 770 523 <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/> 771 <Caret Line="38" Column=" 70" TopLine="25"/>524 <Caret Line="38" Column="34" TopLine="25"/> 772 525 </Position2> 773 526 <Position3> 774 527 <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/> 775 <Caret Line="2 86" Column="25" TopLine="277"/>528 <Caret Line="241" Column="68" TopLine="228"/> 776 529 </Position3> 777 530 <Position4> 778 531 <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/> 779 <Caret Line="2 81" Column="1" TopLine="276"/>532 <Caret Line="277" Column="48" TopLine="264"/> 780 533 </Position4> 781 534 <Position5> 782 535 <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/> 783 <Caret Line=" 283" Column="1" TopLine="276"/>536 <Caret Line="308" Column="49" TopLine="295"/> 784 537 </Position5> 785 538 <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"/> 788 541 </Position6> 789 542 <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"/> 792 545 </Position7> 793 546 <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"/> 796 549 </Position8> 797 550 <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"/> 800 553 </Position9> 801 554 <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"/> 804 557 </Position10> 805 558 <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"/> 808 561 </Position11> 809 562 <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"/> 812 565 </Position12> 813 566 <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"/> 816 569 </Position13> 817 570 <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"/> 820 573 </Position14> 821 574 <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"/> 824 577 </Position15> 825 578 <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"/> 828 581 </Position16> 829 582 <Position17> 830 583 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 831 <Caret Line=" 398" Column="17" TopLine="395"/>584 <Caret Line="455" Column="43" TopLine="438"/> 832 585 </Position17> 833 586 <Position18> 834 587 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 835 <Caret Line=" 401" Column="14" TopLine="395"/>588 <Caret Line="6" Column="43" TopLine="1"/> 836 589 </Position18> 837 590 <Position19> 838 591 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 839 <Caret Line=" 398" Column="17" TopLine="395"/>592 <Caret Line="82" Column="21" TopLine="69"/> 840 593 </Position19> 841 594 <Position20> 842 595 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 843 <Caret Line=" 431" Column="24" TopLine="426"/>596 <Caret Line="398" Column="14" TopLine="390"/> 844 597 </Position20> 845 598 <Position21> 846 599 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 847 <Caret Line=" 426" Column="57" TopLine="426"/>600 <Caret Line="399" Column="19" TopLine="390"/> 848 601 </Position21> 849 602 <Position22> 850 603 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 851 <Caret Line="4 49" Column="17" TopLine="429"/>604 <Caret Line="403" Column="68" TopLine="390"/> 852 605 </Position22> 853 606 <Position23> 854 607 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 855 <Caret Line=" 1274" Column="15" TopLine="1251"/>608 <Caret Line="35" Column="32" TopLine="30"/> 856 609 </Position23> 857 610 <Position24> 858 611 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 859 <Caret Line=" 1277" Column="14" TopLine="1253"/>612 <Caret Line="418" Column="29" TopLine="403"/> 860 613 </Position24> 861 614 <Position25> 862 615 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 863 <Caret Line=" 449" Column="11" TopLine="435"/>616 <Caret Line="399" Column="18" TopLine="386"/> 864 617 </Position25> 865 618 <Position26> 866 619 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 867 <Caret Line=" 442" Column="27" TopLine="435"/>620 <Caret Line="35" Column="90" TopLine="22"/> 868 621 </Position26> 869 622 <Position27> 870 623 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 871 <Caret Line="4 53" Column="55" TopLine="444"/>624 <Caret Line="403" Column="100" TopLine="403"/> 872 625 </Position27> 873 626 <Position28> 874 627 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 875 <Caret Line=" 455" Column="43" TopLine="438"/>628 <Caret Line="269" Column="46" TopLine="258"/> 876 629 </Position28> 877 630 <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"/> 880 633 </Position29> 881 634 <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"/> 884 637 </Position30> 885 638 </JumpHistory>
Note:
See TracChangeset
for help on using the changeset viewer.