- Timestamp:
- Nov 4, 2010, 12:19:14 PM (14 years ago)
- Location:
- trunk
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk
-
Property svn:ignore
set to
lib
-
Property svn:ignore
set to
-
trunk/Compiler
-
Property svn:ignore
set to
lib
-
Property svn:ignore
set to
-
trunk/Compiler/Analyze/UParser.pas
r2 r3 360 360 // Update cursor position 361 361 Inc(CodePosition.X); 362 if (CurrentChar = LineEnding ) then begin362 if (CurrentChar = LineEnding[1]) then begin 363 363 CodePosition.X := 0; 364 364 Inc(CodePosition.Y); -
trunk/Compiler/Analyze/UPascalParser.pas
r2 r3 18 18 public 19 19 function ParseFile(Name: string): Boolean; 20 procedure ParseWhileDo(SourceCode: TWhileDo);20 function ParseWhileDo(var WhileDo: TWhileDo; SourceCode: TCommonBlock): Boolean; 21 21 procedure ParseExpression(SourceCode: TExpression); 22 22 function ParseRightValue(SourceCode: TExpression): TObject; 23 23 function ParseFunctionCall(SourceCode: TExpression): TObject; 24 procedure ParseUses(SourceCode: TUsedModuleList; AExported: Boolean);24 function ParseUses(SourceCode: TUsedModuleList; AExported: Boolean): Boolean; 25 25 function ParseModule(ProgramCode: TProgram): TModule; 26 procedure ParseUnit(SourceCode: TModuleUnit);27 procedure ParseUnitInterface(SourceCode: TModuleUnit);28 procedure ParseUnitImplementation(SourceCode: TModuleUnit);26 function ParseUnit(var SourceCode: TModuleUnit; ProgramCode: TProgram): Boolean; 27 function ParseUnitInterface(SourceCode: TModuleUnit): Boolean; 28 function ParseUnitImplementation(SourceCode: TModuleUnit): Boolean; 29 29 procedure ParseProgram(SourceCode: TModuleProgram); 30 30 procedure ParseCommonBlock(SourceCode: TCommonBlock; EndSymbol: char = ';'; … … 32 32 procedure ParseCommonBlockInterface(SourceCode: TCommonBlock); 33 33 function ParseCommand(SourceCode: TCommonBlock): TCommand; 34 procedure ParseBeginEnd(SourceCode: TBeginEnd);34 function ParseBeginEnd(var BeginEnd: TBeginEnd; SourceCode: TCommonBlock): Boolean; 35 35 function ParseFunctionList(SourceCode: TFunctionList; Exported: Boolean = False): Boolean; 36 36 procedure ParseFunctionParameters(SourceCode: TFunction; ValidateParams: Boolean = False); 37 procedure ParseIfThenElse(SourceCode: TIfThenElse);38 procedure ParseForToDo(SourceCode: TForToDo);37 function ParseIfThenElse(var IfThenElse: TIfThenElse; SourceCode: TCommonBlock): Boolean; 38 function ParseForToDo(var ForToDo: TForToDo; SourceCode: TCommonBlock): Boolean; 39 39 function ParseVariableList(SourceCode: TVariableList; Exported: Boolean = False): Boolean; 40 40 procedure ParseVariable(SourceCode: TVariableList; Exported: Boolean = False); … … 107 107 end; 108 108 109 procedure TPascalParser.ParseWhileDo(SourceCode: TWhileDo); 110 begin 111 with SourceCode do 112 begin 109 function TPascalParser.ParseWhileDo(var WhileDo: TWhileDo; SourceCode: TCommonBlock): Boolean; 110 begin 111 if NextToken = 'while' then begin 113 112 Expect('while'); 114 Condition.CommonBlock := CommonBlock; 115 ParseExpression(Condition); 116 Expect('do'); 117 Command := ParseCommand(CommonBlock); 118 end; 113 WhileDo := TWhileDo.Create; 114 WhileDo.CommonBlock := SourceCode; 115 with WhileDo do begin 116 Condition.CommonBlock := CommonBlock; 117 ParseExpression(Condition); 118 Expect('do'); 119 Command := ParseCommand(CommonBlock); 120 end; 121 Result := True; 122 end else Result := False; 119 123 end; 120 124 … … 311 315 begin 312 316 begin 313 if NextToken = 'begin' then begin 314 Result := TBeginEnd.Create; 315 TBeginEnd(Result).CommonBlock := SourceCode; 316 //ShowMessage(IntToStr(Integer(SourceCode)) 317 // + ' ' + IntToStr(Integer(Result))); 318 ParseBeginEnd(TBeginEnd(Result)); 319 end else 320 if NextToken = 'if' then begin 321 Result := TIfThenElse.Create; 322 TIfThenElse(Result).CommonBlock := SourceCode; 323 ParseIfThenElse(TIfThenElse(Result)); 324 end else 325 if NextToken = 'while' then begin 326 Result := TWhileDo.Create; 327 TWhileDo(Result).CommonBlock := SourceCode; 328 ParseWhileDo(TWhileDo(Result)); 329 end else 330 if NextToken = 'for' then begin 331 Result := TForToDo.Create; 332 TForToDo(Result).CommonBlock := SourceCode; 333 ParseForToDo(TForToDo(Result)); 334 end else 317 if not ParseBeginEnd(TBeginEnd(Result), SourceCode) then 318 if not ParseIfThenElse(TIfThenElse(Result), SourceCode) then 319 if not ParseWhileDo(TWhileDo(Result), SourceCode) then 320 if not ParseForToDo(TForToDo(Result), SourceCode) then 335 321 if IsIdentificator(NextToken) then begin 336 322 if Assigned(SourceCode.Variables.Search(NextToken)) then begin … … 381 367 begin 382 368 Self.ProgramCode := ProgramCode; 383 if NextToken = 'unit' then begin 384 Result := TModuleUnit.Create; 385 Result.ParentProgram := ProgramCode; 386 ParseUnit(TModuleUnit(Result)); 387 end else 388 if NextToken = 'program' then begin 369 if not ParseUnit(TModuleUnit(Result), ProgramCode) then begin 389 370 Result := TModuleProgram.Create; 390 371 Result.ParentProgram := ProgramCode; … … 414 395 end; 415 396 416 procedure TPascalParser.ParseUnit(SourceCode: TModuleUnit);397 function TPascalParser.ParseUnit(var SourceCode: TModuleUnit; ProgramCode: TProgram): Boolean; 417 398 var 418 399 NewModule: TModule; 419 400 begin 420 Expect('unit'); 421 with Sourcecode do begin 422 Name := ReadToken; 423 end; 424 Expect(';'); 425 426 ParseUnitInterface(SourceCode); 427 if NextToken = 'implementation' then 428 ParseUnitImplementation(SourceCode); 429 430 SourceCode.ParentProgram.Modules.Add(SourceCode); 431 432 if NextToken = 'initialization' then begin 433 Expect('initialization'); 434 end; 435 if NextToken = 'finalization' then begin 436 Expect('finalization'); 437 end; 438 end; 439 440 procedure TPascalParser.ParseUnitInterface(SourceCode: TModuleUnit); 441 begin 442 Expect('interface'); 443 // Uses section 444 if NextToken = 'uses' then 401 if NextToken = 'unit' then begin 402 SourceCode := TModuleUnit.Create; 403 SourceCode.ParentProgram := ProgramCode; 404 Expect('unit'); 405 with Sourcecode do begin 406 Name := ReadToken; 407 end; 408 Expect(';'); 409 410 if not ParseUnitInterface(SourceCode) then 411 ErrorMessage(SExpectedButFound, ['interface', NextToken]); 412 413 if not ParseUnitImplementation(SourceCode) then 414 ErrorMessage(SExpectedButFound, ['implementation', NextToken]); 415 416 SourceCode.ParentProgram.Modules.Add(SourceCode); 417 418 if NextToken = 'initialization' then begin 419 Expect('initialization'); 420 end; 421 if NextToken = 'finalization' then begin 422 Expect('finalization'); 423 end; 424 Result := True; 425 end else Result := False; 426 end; 427 428 function TPascalParser.ParseUnitInterface(SourceCode: TModuleUnit): Boolean; 429 begin 430 if NextToken = 'interface' then begin 431 Expect('interface'); 432 // Uses section 445 433 ParseUses(SourceCode.UsedModules, True); 446 434 447 ParseCommonBlockInterface(SourceCode.Body); 448 end; 449 450 procedure TPascalParser.ParseUnitImplementation(SourceCode: TModuleUnit); 451 begin 452 Expect('implementation'); 453 454 // Uses section 455 if NextToken = 'uses' then 456 ParseUses(SourceCode.UsedModules, False); 457 458 ParseCommonBlock(SourceCode.Body, '.', False); 435 ParseCommonBlockInterface(SourceCode.Body); 436 Result := True; 437 end else Result := False; 438 end; 439 440 function TPascalParser.ParseUnitImplementation(SourceCode: TModuleUnit): Boolean; 441 begin 442 if NextToken = 'implementation' then begin 443 Expect('implementation'); 444 445 // Uses section 446 if NextToken = 'uses' then 447 ParseUses(SourceCode.UsedModules, False); 448 449 ParseCommonBlock(SourceCode.Body, '.', False); 450 Result := True; 451 end else Result := False; 459 452 end; 460 453 … … 471 464 if not ParseFunctionList(Functions) then begin 472 465 if WithBody then 473 ParseBeginEnd(Code); 466 if not ParseBeginEnd(Code, SourceCode) then 467 ErrorMessage(SExpectedButFound, ['begin', NextToken]); 474 468 Break; 475 469 end; … … 496 490 { TParserBeginEnd } 497 491 498 procedure TPascalParser.ParseBeginEnd(SourceCode: TBeginEnd);492 function TPascalParser.ParseBeginEnd(var BeginEnd: TBeginEnd; SourceCode: TCommonBlock): Boolean; 499 493 var 500 494 NewCommand: TCommand; 501 495 begin 502 //ShowMessage(IntToStr(Integer(SourceCode)) + ' ' + IntToStr(Integer(SourceCode.CommonBlock)));503 with SourceCode do504 begin505 Expect('begin');506 w hile (NextToken <> 'end') and (NextTokenType <> ttEndOfFile)do496 if NextToken = 'begin' then begin 497 //ShowMessage(IntToStr(Integer(SourceCode)) + ' ' + IntToStr(Integer(SourceCode.CommonBlock))); 498 BeginEnd := TBeginEnd.Create; 499 TBeginEnd(BeginEnd).CommonBlock := SourceCode; 500 with BeginEnd do 507 501 begin 508 NewCommand := ParseCommand(CommonBlock); 509 if Assigned(NewCommand) then 510 Commands.Add(NewCommand); 511 //ShowMessage(NextCode); 512 if NextToken = ';' then 513 ReadToken; 514 end; 515 Expect('end'); 516 end; 502 Expect('begin'); 503 while (NextToken <> 'end') and (NextTokenType <> ttEndOfFile) do 504 begin 505 NewCommand := ParseCommand(CommonBlock); 506 if Assigned(NewCommand) then 507 Commands.Add(NewCommand); 508 //ShowMessage(NextCode); 509 if NextToken = ';' then 510 ReadToken; 511 end; 512 Expect('end'); 513 end; 514 Result := True; 515 end else Result := False; 517 516 end; 518 517 … … 680 679 { TParserIfThenElse } 681 680 682 procedure TPascalParser.ParseIfThenElse(SourceCode: TIfThenElse); 683 begin 684 with SourceCode do begin 685 Expect('if'); 686 Condition.CommonBlock := CommonBlock; 687 ParseExpression(Condition); 688 Expect('then'); 689 Command := ParseCommand(CommonBlock); 690 if NextToken = 'else' then 691 begin 692 Expect('else'); 693 ElseCommand := ParseCommand(CommonBlock); 694 end; 695 end; 696 end; 697 698 procedure TPascalParser.ParseForToDo(SourceCode: TForToDo); 681 function TPascalParser.ParseIfThenElse(var IfThenElse: TIfThenElse; SourceCode: TCommonBlock): Boolean; 682 begin 683 if NextToken = 'if' then begin 684 IfThenElse := TIfThenElse.Create; 685 IfThenElse.CommonBlock := SourceCode; 686 with IfThenElse do begin 687 Expect('if'); 688 Condition.CommonBlock := CommonBlock; 689 ParseExpression(Condition); 690 Expect('then'); 691 Command := ParseCommand(CommonBlock); 692 if NextToken = 'else' then 693 begin 694 Expect('else'); 695 ElseCommand := ParseCommand(CommonBlock); 696 end; 697 end; 698 Result := True; 699 end else Result := False; 700 end; 701 702 function TPascalParser.ParseForToDo(var ForToDo: TForToDo; SourceCode: TCommonBlock): Boolean; 699 703 var 700 704 VariableName: string; 701 705 begin 702 with SourceCode do 703 begin 704 Expect('for'); 705 VariableName := ReadToken; 706 ControlVariable := SourceCode.CommonBlock.Variables.Search(VariableName); 707 if not Assigned(ControlVariable) then 708 ErrorMessage(SUndefinedVariable, [VariableName], -1); 709 Expect(':='); 710 Start.CommonBlock := CommonBlock; 711 ParseExpression(Start); 712 Expect('to'); 713 Stop.CommonBlock := CommonBlock; 714 ParseExpression(Stop); 715 Expect('do'); 716 Command := ParseCommand(CommonBlock); 717 end; 706 if NextToken = 'for' then begin 707 ForToDo := TForToDo.Create; 708 ForToDo.CommonBlock := SourceCode; 709 with ForToDo do begin 710 Expect('for'); 711 VariableName := ReadToken; 712 ControlVariable := ForToDo.CommonBlock.Variables.Search(VariableName); 713 if not Assigned(ControlVariable) then 714 ErrorMessage(SUndefinedVariable, [VariableName], -1); 715 Expect(':='); 716 Start.CommonBlock := CommonBlock; 717 ParseExpression(Start); 718 Expect('to'); 719 Stop.CommonBlock := CommonBlock; 720 ParseExpression(Stop); 721 Expect('do'); 722 Command := ParseCommand(CommonBlock); 723 end; 724 Result := True; 725 end else Result := False; 718 726 end; 719 727 … … 1128 1136 { TParserUsedModuleList } 1129 1137 1130 procedure TPascalParser.ParseUses(SourceCode: TUsedModuleList; AExported: Boolean = False);1138 function TPascalParser.ParseUses(SourceCode: TUsedModuleList; AExported: Boolean = False): Boolean; 1131 1139 var 1132 1140 NewUsedModule: TUsedModule; 1133 1141 begin 1134 Expect('uses'); 1135 with TUsedModule(SourceCode.Items[SourceCode.Add(TUsedModule.Create)]) do 1136 begin 1137 Name := ReadToken; 1138 if NextToken = 'in' then begin 1139 Expect('in'); 1140 Location := ReadToken; 1141 end else Location := Name + '.pas'; 1142 Module := SourceCode.ParentModule.ParentProgram.Modules.Search(Name); 1143 if not Assigned(Module) then begin 1144 if ParseFile(Name) then begin 1145 Module := SourceCode.ParentModule.ParentProgram.Modules.Search(Name); 1146 Exported := AExported; 1147 end else begin 1148 ErrorMessage(SUnitNotFound, [Name], -2); 1149 SourceCode.Delete(SourceCode.Count - 1); 1150 end; 1151 end; 1152 end; 1153 while NextToken = ',' do begin 1154 Expect(','); 1155 with TUsedModule(SourceCode.Items[SourceCode.Add(TUsedModule.Create)]) do 1156 begin 1142 if NextToken = 'uses' then begin 1143 Expect('uses'); 1144 with TUsedModule(SourceCode.Items[SourceCode.Add(TUsedModule.Create)]) do begin 1157 1145 Name := ReadToken; 1158 1146 if NextToken = 'in' then begin … … 1162 1150 Module := SourceCode.ParentModule.ParentProgram.Modules.Search(Name); 1163 1151 if not Assigned(Module) then begin 1164 if not ParseFile(Name) then begin 1152 if ParseFile(Name) then begin 1153 Module := SourceCode.ParentModule.ParentProgram.Modules.Search(Name); 1154 Exported := AExported; 1155 end else begin 1165 1156 ErrorMessage(SUnitNotFound, [Name], -2); 1166 1157 SourceCode.Delete(SourceCode.Count - 1); … … 1168 1159 end; 1169 1160 end; 1170 end; 1171 Expect(';'); 1161 while NextToken = ',' do begin 1162 Expect(','); 1163 with TUsedModule(SourceCode.Items[SourceCode.Add(TUsedModule.Create)]) do 1164 begin 1165 Name := ReadToken; 1166 if NextToken = 'in' then begin 1167 Expect('in'); 1168 Location := ReadToken; 1169 end else Location := Name + '.pas'; 1170 Module := SourceCode.ParentModule.ParentProgram.Modules.Search(Name); 1171 if not Assigned(Module) then begin 1172 if not ParseFile(Name) then begin 1173 ErrorMessage(SUnitNotFound, [Name], -2); 1174 SourceCode.Delete(SourceCode.Count - 1); 1175 end; 1176 end; 1177 end; 1178 end; 1179 Expect(';'); 1180 Result := True; 1181 end else Result := False; 1172 1182 end; 1173 1183 -
trunk/Compiler/TranspascalCompiler.lpk
r2 r3 15 15 </Other> 16 16 </CompilerOptions> 17 <Version Minor="1"/> 17 18 <Files Count="11"> 18 19 <Item1> -
trunk/Forms/UMainForm.pas
r2 r3 150 150 CompiledForm.Show; 151 151 152 //TCoolDockManager(Container2.Panel.DockManager).DockStyle := dsTabs;152 TCoolDockManager(Container2.Panel.DockManager).DockStyle := dsTabs; 153 153 154 154 ProjectManager.Parent.Parent.Width := 200; -
trunk/Transpascal.lpi
r2 r3 20 20 <StringTable ProductVersion=""/> 21 21 </VersionInfo> 22 <BuildModes Count="1"> 23 <Item1 Name="default" Default="True"/> 24 </BuildModes> 22 25 <PublishOptions> 23 26 <Version Value="2"/> … … 50 53 </Item5> 51 54 </RequiredPackages> 52 <Units Count=" 79">55 <Units Count="81"> 53 56 <Unit0> 54 57 <Filename Value="Transpascal.lpr"/> … … 68 71 <ResourceBaseClass Value="Form"/> 69 72 <UnitName Value="UMainForm"/> 70 <EditorIndex Value=" 14"/>71 <WindowIndex Value="0"/> 72 <TopLine Value=" 1"/>73 <CursorPos X=" 20" Y="11"/>73 <EditorIndex Value="2"/> 74 <WindowIndex Value="0"/> 75 <TopLine Value="82"/> 76 <CursorPos X="1" Y="103"/> 74 77 <UsageCount Value="215"/> 75 78 <Loaded Value="True"/> … … 143 146 <CursorPos X="27" Y="86"/> 144 147 <UsageCount Value="31"/> 145 <DefaultSyntaxHighlighter Value="Delphi"/>146 148 </Unit9> 147 149 <Unit10> … … 151 153 <CursorPos X="7" Y="68"/> 152 154 <UsageCount Value="41"/> 153 <DefaultSyntaxHighlighter Value="Delphi"/>154 155 </Unit10> 155 156 <Unit11> … … 159 160 <CursorPos X="16" Y="146"/> 160 161 <UsageCount Value="41"/> 161 <DefaultSyntaxHighlighter Value="Delphi"/>162 162 </Unit11> 163 163 <Unit12> … … 175 175 <CursorPos X="3" Y="604"/> 176 176 <UsageCount Value="3"/> 177 <DefaultSyntaxHighlighter Value="Delphi"/>178 177 </Unit13> 179 178 <Unit14> … … 189 188 <IsPartOfProject Value="True"/> 190 189 <UnitName Value="UProject"/> 191 <EditorIndex Value="15"/> 192 <WindowIndex Value="0"/> 193 <TopLine Value="68"/> 194 <CursorPos X="12" Y="77"/> 195 <FoldState Value=" TM HP215"/> 190 <EditorIndex Value="7"/> 191 <WindowIndex Value="0"/> 192 <TopLine Value="4"/> 193 <CursorPos X="25" Y="16"/> 196 194 <UsageCount Value="223"/> 197 195 <Loaded Value="True"/> … … 204 202 <CursorPos X="11" Y="30"/> 205 203 <UsageCount Value="4"/> 206 <DefaultSyntaxHighlighter Value="Delphi"/>207 204 </Unit16> 208 205 <Unit17> … … 217 214 <Filename Value="Compiler\UCompiler.pas"/> 218 215 <UnitName Value="UCompiler"/> 219 <WindowIndex Value="0"/> 220 <TopLine Value="55"/> 221 <CursorPos X="15" Y="63"/> 216 <IsVisibleTab Value="True"/> 217 <EditorIndex Value="4"/> 218 <WindowIndex Value="0"/> 219 <TopLine Value="59"/> 220 <CursorPos X="14" Y="68"/> 222 221 <UsageCount Value="102"/> 222 <Loaded Value="True"/> 223 223 </Unit18> 224 224 <Unit19> 225 225 <Filename Value="Compiler\USourceCode.pas"/> 226 226 <UnitName Value="USourceCode"/> 227 <IsVisibleTab Value="True"/>228 227 <EditorIndex Value="0"/> 229 228 <WindowIndex Value="0"/> 230 229 <TopLine Value="1037"/> 231 <CursorPos X=" 71" Y="1063"/>230 <CursorPos X="60" Y="1040"/> 232 231 <UsageCount Value="103"/> 233 232 <Loaded Value="True"/> … … 236 235 <Filename Value="Compiler\Analyze\UParser.pas"/> 237 236 <UnitName Value="UParser"/> 238 <WindowIndex Value="0"/> 239 <TopLine Value="295"/> 240 <CursorPos X="1" Y="362"/> 237 <EditorIndex Value="3"/> 238 <WindowIndex Value="0"/> 239 <TopLine Value="53"/> 240 <CursorPos X="15" Y="66"/> 241 241 <UsageCount Value="102"/> 242 <Loaded Value="True"/> 242 243 </Unit20> 243 244 <Unit21> … … 317 318 <CursorPos X="14" Y="329"/> 318 319 <UsageCount Value="17"/> 319 <DefaultSyntaxHighlighter Value="Delphi"/>320 320 </Unit27> 321 321 <Unit28> … … 325 325 <CursorPos X="1" Y="1769"/> 326 326 <UsageCount Value="17"/> 327 <DefaultSyntaxHighlighter Value="Delphi"/>328 327 </Unit28> 329 328 <Unit29> … … 384 383 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 385 384 <UnitName Value="UPascalParser"/> 386 <WindowIndex Value="0"/> 387 <TopLine Value="187"/> 388 <CursorPos X="17" Y="246"/> 385 <EditorIndex Value="5"/> 386 <WindowIndex Value="0"/> 387 <TopLine Value="878"/> 388 <CursorPos X="3" Y="891"/> 389 389 <UsageCount Value="110"/> 390 <Loaded Value="True"/> 390 391 </Unit35> 391 392 <Unit36> … … 404 405 <CursorPos X="27" Y="841"/> 405 406 <UsageCount Value="20"/> 406 <DefaultSyntaxHighlighter Value="Delphi"/>407 407 </Unit37> 408 408 <Unit38> … … 413 413 <CursorPos X="3" Y="69"/> 414 414 <UsageCount Value="4"/> 415 <DefaultSyntaxHighlighter Value="Delphi"/>416 415 </Unit38> 417 416 <Unit39> … … 422 421 <CursorPos X="3" Y="120"/> 423 422 <UsageCount Value="4"/> 424 <DefaultSyntaxHighlighter Value="Delphi"/>425 423 </Unit39> 426 424 <Unit40> … … 430 428 <CursorPos X="24" Y="11"/> 431 429 <UsageCount Value="4"/> 432 <DefaultSyntaxHighlighter Value="Delphi"/>433 430 </Unit40> 434 431 <Unit41> … … 455 452 <TopLine Value="1"/> 456 453 <CursorPos X="28" Y="22"/> 457 <UsageCount Value="14 5"/>454 <UsageCount Value="149"/> 458 455 <DefaultSyntaxHighlighter Value="Delphi"/> 459 456 </Unit43> … … 464 461 <CursorPos X="5" Y="370"/> 465 462 <UsageCount Value="24"/> 466 <DefaultSyntaxHighlighter Value="Delphi"/>467 463 </Unit44> 468 464 <Unit45> … … 473 469 <CursorPos X="6" Y="16"/> 474 470 <UsageCount Value="3"/> 475 <DefaultSyntaxHighlighter Value="Delphi"/>476 471 </Unit45> 477 472 <Unit46> … … 490 485 <CursorPos X="14" Y="91"/> 491 486 <UsageCount Value="4"/> 492 <DefaultSyntaxHighlighter Value="Delphi"/>493 487 </Unit47> 494 488 <Unit48> … … 497 491 <TopLine Value="1"/> 498 492 <CursorPos X="1" Y="1"/> 499 <UsageCount Value="4 5"/>493 <UsageCount Value="47"/> 500 494 <Loaded Value="True"/> 501 495 <DefaultSyntaxHighlighter Value="LFM"/> 502 496 </Unit48> 503 497 <Unit49> 504 <Filename Value=" ..\..\..\..\..\..\..\usr\share\fpcsrc\packages\fcl-registry\src\registry.pp"/>498 <Filename Value="E:\usr\share\fpcsrc\packages\fcl-registry\src\registry.pp"/> 505 499 <UnitName Value="registry"/> 506 500 <WindowIndex Value="0"/> … … 511 505 </Unit49> 512 506 <Unit50> 513 <Filename Value=" ..\..\..\..\..\..\..\usr\share\fpcsrc\packages\fcl-registry\src\regdef.inc"/>507 <Filename Value="E:\usr\share\fpcsrc\packages\fcl-registry\src\regdef.inc"/> 514 508 <WindowIndex Value="0"/> 515 509 <TopLine Value="1"/> … … 519 513 </Unit50> 520 514 <Unit51> 521 <Filename Value=" ..\..\..\..\lazarus\trunk\lcl\interfaces\gtk2\gtk2widgetset.inc"/>515 <Filename Value="E:\lazarus\trunk\lcl\interfaces\gtk2\gtk2widgetset.inc"/> 522 516 <WindowIndex Value="0"/> 523 517 <TopLine Value="1377"/> 524 518 <CursorPos X="32" Y="1396"/> 525 519 <UsageCount Value="37"/> 520 <DefaultSyntaxHighlighter Value="Delphi"/> 526 521 </Unit51> 527 522 <Unit52> 528 <Filename Value=" ..\..\..\PascalClassLibrary\Generics\TemplateGenerics\List\GenericListInterface.tpl"/>523 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\List\GenericListInterface.tpl"/> 529 524 <WindowIndex Value="0"/> 530 525 <TopLine Value="22"/> … … 534 529 </Unit52> 535 530 <Unit53> 536 <Filename Value=" ..\..\..\PascalClassLibrary\Generics\TemplateGenerics\List\GenericListImplementation.tpl"/>531 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\List\GenericListImplementation.tpl"/> 537 532 <WindowIndex Value="0"/> 538 533 <TopLine Value="171"/> … … 542 537 </Unit53> 543 538 <Unit54> 544 <Filename Value=" ..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Specialized\ListObject.pas"/>539 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Specialized\ListObject.pas"/> 545 540 <UnitName Value="ListObject"/> 546 541 <WindowIndex Value="0"/> … … 548 543 <CursorPos X="1" Y="74"/> 549 544 <UsageCount Value="11"/> 545 <DefaultSyntaxHighlighter Value="Delphi"/> 550 546 </Unit54> 551 547 <Unit55> 552 <Filename Value=" ..\..\..\..\lazarus\trunk\lcl\include\listitem.inc"/>548 <Filename Value="E:\lazarus\trunk\lcl\include\listitem.inc"/> 553 549 <WindowIndex Value="0"/> 554 550 <TopLine Value="525"/> 555 551 <CursorPos X="24" Y="548"/> 556 552 <UsageCount Value="9"/> 553 <DefaultSyntaxHighlighter Value="Delphi"/> 557 554 </Unit55> 558 555 <Unit56> 559 <Filename Value=" ..\..\..\PascalClassLibrary\Docking\CoolDocking\UCoolDocking.pas"/>556 <Filename Value="E:\PascalClassLibrary\Docking\CoolDocking\UCoolDocking.pas"/> 560 557 <UnitName Value="UCoolDocking"/> 561 558 <WindowIndex Value="0"/> … … 563 560 <CursorPos X="19" Y="828"/> 564 561 <UsageCount Value="10"/> 562 <DefaultSyntaxHighlighter Value="Delphi"/> 565 563 </Unit56> 566 564 <Unit57> 567 <Filename Value=" ..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\unix\sysunixh.inc"/>565 <Filename Value="E:\usr\share\fpcsrc\2.4.0\rtl\unix\sysunixh.inc"/> 568 566 <WindowIndex Value="0"/> 569 567 <TopLine Value="15"/> … … 573 571 </Unit57> 574 572 <Unit58> 575 <Filename Value=" ..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\packages\fcl-registry\src\registry.pp"/>573 <Filename Value="E:\usr\share\fpcsrc\2.4.0\packages\fcl-registry\src\registry.pp"/> 576 574 <UnitName Value="registry"/> 577 575 <WindowIndex Value="0"/> … … 582 580 </Unit58> 583 581 <Unit59> 584 <Filename Value=" ..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\packages\fcl-registry\src\xregreg.inc"/>582 <Filename Value="E:\usr\share\fpcsrc\2.4.0\packages\fcl-registry\src\xregreg.inc"/> 585 583 <WindowIndex Value="0"/> 586 584 <TopLine Value="1"/> … … 590 588 </Unit59> 591 589 <Unit60> 592 <Filename Value=" ..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\objpas\sysutils\osutilsh.inc"/>590 <Filename Value="E:\usr\share\fpcsrc\2.4.0\rtl\objpas\sysutils\osutilsh.inc"/> 593 591 <WindowIndex Value="0"/> 594 592 <TopLine Value="22"/> … … 598 596 </Unit60> 599 597 <Unit61> 600 <Filename Value=" ..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\unix\sysutils.pp"/>598 <Filename Value="E:\usr\share\fpcsrc\2.4.0\rtl\unix\sysutils.pp"/> 601 599 <UnitName Value="sysutils"/> 602 600 <WindowIndex Value="0"/> … … 607 605 </Unit61> 608 606 <Unit62> 609 <Filename Value=" ..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Generic\ObjectListInterface.tpl"/>607 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\ObjectListInterface.tpl"/> 610 608 <TopLine Value="1"/> 611 609 <CursorPos X="1" Y="13"/> … … 614 612 </Unit62> 615 613 <Unit63> 616 <Filename Value=" ..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Generic\ObjectListImplementation.tpl"/>614 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\ObjectListImplementation.tpl"/> 617 615 <WindowIndex Value="0"/> 618 616 <TopLine Value="1"/> … … 622 620 </Unit63> 623 621 <Unit64> 624 <Filename Value="..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericObjectList.inc"/> 625 <EditorIndex Value="3"/> 622 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericObjectList.inc"/> 626 623 <WindowIndex Value="0"/> 627 624 <TopLine Value="1"/> 628 625 <CursorPos X="40" Y="13"/> 629 626 <UsageCount Value="19"/> 630 < Loaded Value="True"/>627 <DefaultSyntaxHighlighter Value="Delphi"/> 631 628 </Unit64> 632 629 <Unit65> … … 645 642 </Unit66> 646 643 <Unit67> 647 <Filename Value="..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/> 648 <EditorIndex Value="2"/> 644 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/> 649 645 <WindowIndex Value="0"/> 650 646 <TopLine Value="24"/> 651 647 <CursorPos X="14" Y="43"/> 652 648 <UsageCount Value="10"/> 653 < Loaded Value="True"/>649 <DefaultSyntaxHighlighter Value="Delphi"/> 654 650 </Unit67> 655 651 <Unit68> 656 <Filename Value="..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericDictionary.inc"/> 657 <EditorIndex Value="1"/> 652 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericDictionary.inc"/> 658 653 <WindowIndex Value="0"/> 659 654 <TopLine Value="69"/> 660 655 <CursorPos X="4" Y="41"/> 661 656 <UsageCount Value="10"/> 662 < Loaded Value="True"/>657 <DefaultSyntaxHighlighter Value="Delphi"/> 663 658 </Unit68> 664 659 <Unit69> 665 <Filename Value="..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericQueue.inc"/> 666 <EditorIndex Value="4"/> 660 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericQueue.inc"/> 667 661 <WindowIndex Value="0"/> 668 662 <TopLine Value="1"/> 669 663 <CursorPos X="8" Y="30"/> 670 664 <UsageCount Value="10"/> 671 < Loaded Value="True"/>665 <DefaultSyntaxHighlighter Value="Delphi"/> 672 666 </Unit69> 673 667 <Unit70> 674 <Filename Value="..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericSet.inc"/> 675 <EditorIndex Value="5"/> 668 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericSet.inc"/> 676 669 <WindowIndex Value="0"/> 677 670 <TopLine Value="12"/> 678 671 <CursorPos X="8" Y="28"/> 679 672 <UsageCount Value="10"/> 680 < Loaded Value="True"/>673 <DefaultSyntaxHighlighter Value="Delphi"/> 681 674 </Unit70> 682 675 <Unit71> 683 <Filename Value="..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericStack.inc"/> 684 <EditorIndex Value="6"/> 676 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericStack.inc"/> 685 677 <WindowIndex Value="0"/> 686 678 <TopLine Value="31"/> 687 679 <CursorPos X="4" Y="42"/> 688 680 <UsageCount Value="10"/> 689 < Loaded Value="True"/>681 <DefaultSyntaxHighlighter Value="Delphi"/> 690 682 </Unit71> 691 683 <Unit72> 692 <Filename Value="..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericTree.inc"/> 693 <EditorIndex Value="7"/> 684 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericTree.inc"/> 694 685 <WindowIndex Value="0"/> 695 686 <TopLine Value="27"/> 696 687 <CursorPos X="4" Y="47"/> 697 688 <UsageCount Value="10"/> 698 < Loaded Value="True"/>689 <DefaultSyntaxHighlighter Value="Delphi"/> 699 690 </Unit72> 700 691 <Unit73> 701 <Filename Value=" ..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedList.pas"/>692 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedList.pas"/> 702 693 <UnitName Value="SpecializedList"/> 703 <EditorIndex Value="8"/>704 694 <WindowIndex Value="0"/> 705 695 <TopLine Value="166"/> 706 696 <CursorPos X="6" Y="203"/> 707 697 <UsageCount Value="10"/> 708 < Loaded Value="True"/>698 <DefaultSyntaxHighlighter Value="Delphi"/> 709 699 </Unit73> 710 700 <Unit74> 711 <Filename Value=" ..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedDictionary.pas"/>701 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedDictionary.pas"/> 712 702 <UnitName Value="SpecializedDictionary"/> 713 <EditorIndex Value="9"/>714 703 <WindowIndex Value="0"/> 715 704 <TopLine Value="2"/> 716 705 <CursorPos X="6" Y="39"/> 717 706 <UsageCount Value="10"/> 718 < Loaded Value="True"/>707 <DefaultSyntaxHighlighter Value="Delphi"/> 719 708 </Unit74> 720 709 <Unit75> 721 <Filename Value=" ..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedStack.pas"/>710 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedStack.pas"/> 722 711 <UnitName Value="SpecializedStack"/> 723 <EditorIndex Value="10"/>724 712 <WindowIndex Value="0"/> 725 713 <TopLine Value="21"/> 726 714 <CursorPos X="6" Y="57"/> 727 715 <UsageCount Value="10"/> 728 < Loaded Value="True"/>716 <DefaultSyntaxHighlighter Value="Delphi"/> 729 717 </Unit75> 730 718 <Unit76> 731 <Filename Value=" ..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedTree.pas"/>719 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedTree.pas"/> 732 720 <UnitName Value="SpecializedTree"/> 733 <EditorIndex Value="11"/>734 721 <WindowIndex Value="0"/> 735 722 <TopLine Value="46"/> 736 723 <CursorPos X="6" Y="83"/> 737 724 <UsageCount Value="10"/> 738 < Loaded Value="True"/>725 <DefaultSyntaxHighlighter Value="Delphi"/> 739 726 </Unit76> 740 727 <Unit77> 741 <Filename Value=" ..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedQueue.pas"/>728 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedQueue.pas"/> 742 729 <UnitName Value="SpecializedQueue"/> 743 <EditorIndex Value="12"/>744 730 <WindowIndex Value="0"/> 745 731 <TopLine Value="41"/> 746 732 <CursorPos X="6" Y="78"/> 747 733 <UsageCount Value="10"/> 748 < Loaded Value="True"/>734 <DefaultSyntaxHighlighter Value="Delphi"/> 749 735 </Unit77> 750 736 <Unit78> 751 <Filename Value=" ..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedSet.pas"/>737 <Filename Value="E:\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedSet.pas"/> 752 738 <UnitName Value="SpecializedSet"/> 753 <EditorIndex Value="13"/>754 739 <WindowIndex Value="0"/> 755 740 <TopLine Value="21"/> 756 741 <CursorPos X="23" Y="32"/> 757 742 <UsageCount Value="10"/> 743 <DefaultSyntaxHighlighter Value="Delphi"/> 744 </Unit78> 745 <Unit79> 746 <Filename Value="E:\Projekty\PascalClassLibrary\Docking\CoolDocking\UCoolDockStyleTabs.pas"/> 747 <UnitName Value="UCoolDockStyleTabs"/> 748 <EditorIndex Value="1"/> 749 <WindowIndex Value="0"/> 750 <TopLine Value="1"/> 751 <CursorPos X="44" Y="6"/> 752 <UsageCount Value="12"/> 758 753 <Loaded Value="True"/> 759 </Unit78> 754 </Unit79> 755 <Unit80> 756 <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\win32\system.pp"/> 757 <UnitName Value="System"/> 758 <EditorIndex Value="6"/> 759 <WindowIndex Value="0"/> 760 <TopLine Value="22"/> 761 <CursorPos X="2" Y="35"/> 762 <UsageCount Value="12"/> 763 <Loaded Value="True"/> 764 </Unit80> 760 765 </Units> 761 <JumpHistory Count="30" HistoryIndex="2 8">766 <JumpHistory Count="30" HistoryIndex="29"> 762 767 <Position1> 763 <Filename Value="Compiler\ USourceCode.pas"/>764 <Caret Line=" 63" Column="1" TopLine="44"/>768 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 769 <Caret Line="329" Column="19" TopLine="136"/> 765 770 </Position1> 766 771 <Position2> 767 <Filename Value="Compiler\ USourceCode.pas"/>768 <Caret Line=" 494" Column="34" TopLine="458"/>772 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 773 <Caret Line="20" Column="51" TopLine="7"/> 769 774 </Position2> 770 775 <Position3> 771 <Filename Value="Compiler\ USourceCode.pas"/>772 <Caret Line=" 478" Column="31" TopLine="460"/>776 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 777 <Caret Line="115" Column="37" TopLine="102"/> 773 778 </Position3> 774 779 <Position4> 775 <Filename Value="Compiler\ USourceCode.pas"/>776 <Caret Line=" 472" Column="42" TopLine="306"/>780 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 781 <Caret Line="20" Column="31" TopLine="7"/> 777 782 </Position4> 778 783 <Position5> 779 <Filename Value="Compiler\ USourceCode.pas"/>780 <Caret Line=" 468" Column="46" TopLine="460"/>784 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 785 <Caret Line="119" Column="44" TopLine="109"/> 781 786 </Position5> 782 787 <Position6> 783 <Filename Value="Compiler\ USourceCode.pas"/>784 <Caret Line=" 890" Column="36" TopLine="871"/>788 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 789 <Caret Line="330" Column="20" TopLine="319"/> 785 790 </Position6> 786 791 <Position7> 787 <Filename Value="Compiler\ USourceCode.pas"/>788 <Caret Line=" 917" Column="41" TopLine="898"/>792 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 793 <Caret Line="38" Column="13" TopLine="25"/> 789 794 </Position7> 790 795 <Position8> 791 <Filename Value="Compiler\ USourceCode.pas"/>792 <Caret Line=" 1051" Column="25" TopLine="1032"/>796 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 797 <Caret Line="697" Column="41" TopLine="697"/> 793 798 </Position8> 794 799 <Position9> 795 <Filename Value=" Forms\UMainForm.pas"/>796 <Caret Line="3 0" Column="51" TopLine="1"/>800 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 801 <Caret Line="38" Column="31" TopLine="37"/> 797 802 </Position9> 798 803 <Position10> 799 <Filename Value=" UProject.pas"/>800 <Caret Line=" 62" Column="58" TopLine="51"/>804 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 805 <Caret Line="720" Column="28" TopLine="697"/> 801 806 </Position10> 802 807 <Position11> 803 <Filename Value=" UProject.pas"/>804 <Caret Line=" 8" Column="22" TopLine="1"/>808 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 809 <Caret Line="471" Column="18" TopLine="462"/> 805 810 </Position11> 806 811 <Position12> 807 <Filename Value=" UProject.pas"/>808 <Caret Line=" 78" Column="1" TopLine="62"/>812 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 813 <Caret Line="472" Column="22" TopLine="459"/> 809 814 </Position12> 810 815 <Position13> 811 <Filename Value=" UProject.pas"/>812 <Caret Line=" 10" Column="67" TopLine="1"/>816 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 817 <Caret Line="508" Column="31" TopLine="497"/> 813 818 </Position13> 814 819 <Position14> 815 <Filename Value=" UProject.pas"/>816 <Caret Line=" 4" Column="8" TopLine="1"/>820 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 821 <Caret Line="312" Column="62" TopLine="298"/> 817 822 </Position14> 818 823 <Position15> 819 <Filename Value="Compiler\ USourceCode.pas"/>820 <Caret Line=" 192" Column="74" TopLine="177"/>824 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 825 <Caret Line="322" Column="17" TopLine="307"/> 821 826 </Position15> 822 827 <Position16> 823 <Filename Value="Compiler\ USourceCode.pas"/>824 <Caret Line=" 62" Column="43" TopLine="47"/>828 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 829 <Caret Line="34" Column="53" TopLine="21"/> 825 830 </Position16> 826 831 <Position17> 827 <Filename Value=" ..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedList.pas"/>828 <Caret Line=" 20" Column="6" TopLine="1"/>832 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 833 <Caret Line="317" Column="19" TopLine="304"/> 829 834 </Position17> 830 835 <Position18> 831 <Filename Value="Compiler\ USourceCode.pas"/>832 <Caret Line=" 66" Column="4" TopLine="47"/>836 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 837 <Caret Line="491" Column="50" TopLine="491"/> 833 838 </Position18> 834 839 <Position19> 835 <Filename Value="Compiler\ USourceCode.pas"/>836 <Caret Line=" 36" Column="38" TopLine="23"/>840 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 841 <Caret Line="498" Column="23" TopLine="492"/> 837 842 </Position19> 838 843 <Position20> 839 <Filename Value="Compiler\ USourceCode.pas"/>840 <Caret Line=" 241" Column="6" TopLine="222"/>844 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 845 <Caret Line="466" Column="27" TopLine="453"/> 841 846 </Position20> 842 847 <Position21> 843 <Filename Value="Compiler\ USourceCode.pas"/>844 <Caret Line=" 273" Column="6" TopLine="254"/>848 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 849 <Caret Line="37" Column="63" TopLine="21"/> 845 850 </Position21> 846 851 <Position22> 847 <Filename Value="Compiler\ USourceCode.pas"/>848 <Caret Line=" 296" Column="8" TopLine="277"/>852 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 853 <Caret Line="680" Column="40" TopLine="680"/> 849 854 </Position22> 850 855 <Position23> 851 <Filename Value="Compiler\ USourceCode.pas"/>852 <Caret Line="31 5" Column="8" TopLine="296"/>856 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 857 <Caret Line="318" Column="18" TopLine="304"/> 853 858 </Position23> 854 859 <Position24> 855 <Filename Value="Compiler\ USourceCode.pas"/>856 <Caret Line=" 365" Column="8" TopLine="346"/>860 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 861 <Caret Line="692" Column="3" TopLine="676"/> 857 862 </Position24> 858 863 <Position25> 859 <Filename Value="Compiler\ USourceCode.pas"/>860 <Caret Line=" 388" Column="8" TopLine="369"/>864 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 865 <Caret Line="27" Column="66" TopLine="14"/> 861 866 </Position25> 862 867 <Position26> 863 <Filename Value="Compiler\ USourceCode.pas"/>864 <Caret Line=" 439" Column="8" TopLine="420"/>868 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 869 <Caret Line="8" Column="62" TopLine="4"/> 865 870 </Position26> 866 871 <Position27> 867 <Filename Value="Compiler\ USourceCode.pas"/>868 <Caret Line=" 468" Column="6" TopLine="449"/>872 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 873 <Caret Line="20" Column="26" TopLine="4"/> 869 874 </Position27> 870 875 <Position28> 871 <Filename Value="Compiler\ USourceCode.pas"/>872 <Caret Line=" 627" Column="35" TopLine="599"/>876 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 877 <Caret Line="3" Column="67" TopLine="1"/> 873 878 </Position28> 874 879 <Position29> 875 <Filename Value="Compiler\ USourceCode.pas"/>876 <Caret Line=" 730" Column="45" TopLine="711"/>880 <Filename Value="Compiler\Analyze\UPascalParser.pas"/> 881 <Caret Line="27" Column="32" TopLine="14"/> 877 882 </Position29> 878 883 <Position30> 879 <Filename Value=" ..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericObjectList.inc"/>880 <Caret Line=" 13" Column="40" TopLine="1"/>884 <Filename Value="Compiler\UCompiler.pas"/> 885 <Caret Line="82" Column="20" TopLine="70"/> 881 886 </Position30> 882 887 </JumpHistory> … … 886 891 <PathDelim Value="\"/> 887 892 <SearchPaths> 888 <OtherUnitFiles Value="Forms \;Common\"/>893 <OtherUnitFiles Value="Forms;Common"/> 889 894 <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> 890 895 </SearchPaths> … … 904 909 <StackChecks Value="True"/> 905 910 </Checks> 906 <VerifyObjMethodCallValidity Value="True"/>907 911 </CodeGeneration> 908 912 <Linking> … … 918 922 </Linking> 919 923 <Other> 920 <CompilerMessages>921 <IgnoredMessages idx5023="True" idx5024="True" idx5025="True" idx5028="True" idx5029="True" idx5031="True"/>922 <UseMsgFile Value="True"/>923 </CompilerMessages>924 924 <CompilerPath Value="$(CompPath)"/> 925 925 </Other>
Note:
See TracChangeset
for help on using the changeset viewer.