Changeset 18
- Timestamp:
- Nov 9, 2010, 8:10:12 AM (14 years ago)
- Location:
- trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Compiler/Analyze/UAnalyzerPascal.pas
r17 r18 1198 1198 UseName := NextToken; 1199 1199 if NextTokenType = ttIdentifier then begin 1200 UseType := TypeList.Parent.Types.Search(UseName);1200 TTypeArray(Result).IndexType := TypeList.Parent.Types.Search(UseName); 1201 1201 if not Assigned(TTypeArray(Result).IndexType) then 1202 1202 ErrorMessage(SUndefinedType, [UseName], -1) else … … 1204 1204 end else 1205 1205 if NextTokenType = ttConstantNumber then begin 1206 UseType := ParseTypeSubRange(TypeList, Name);1207 if not Assigned( UseType) then begin1206 TTypeArray(Result).IndexType := ParseTypeSubRange(TypeList, Name); 1207 if not Assigned(TTypeArray(Result).IndexType) then begin 1208 1208 ErrorMessage(SInvalidConstruction, [], -1); 1209 1209 end; -
trunk/Compiler/Produce/UProducerPascal.pas
r17 r18 123 123 begin 124 124 if AType is TTypeRecord then begin 125 EmitLn( AType.Name + ' ' + AssignSymbol + 'record');125 EmitLn('record'); 126 126 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); 129 131 EmitLn(';'); 130 132 end; … … 132 134 Emit('end'); 133 135 end else 136 if AType is TTypeSubRange then begin 137 Emit(TTypeSubRange(AType).Bottom + '..' + TTypeSubRange(AType).Top); 138 end else 134 139 if AType is TTypeArray then begin 135 Emit( AType.Name + ' ' + AssignSymbol + 'array ');140 Emit('array '); 136 141 if Assigned(TTypeArray(AType).IndexType) then begin 137 142 Emit('['); … … 142 147 if Assigned(TTypeArray(AType).ItemType) then 143 148 GenerateType(TTypeArray(AType).ItemType); 149 end else 150 if AType is TTypePointer then begin 151 Emit('^' + TTypePointer(AType).UsedType.Name); 144 152 end else begin 145 153 Emit(AType.Name); 146 if Assigned(AType.UsedType) then begin 147 Emit(' ' + AssignSymbol + ' '); 154 if AType.Name = '' then begin 148 155 GenerateType(AType.UsedType); 149 156 end; … … 161 168 with TType(Types[I]) do 162 169 if (not Internal) then begin 163 GenerateType(TType(Types[I]), '='); 170 Emit(TType(Types[I]).Name + ' = '); 171 GenerateType(TType(Types[I])); 164 172 EmitLn(';'); 165 173 end; -
trunk/IDE/Transpascal.lpi
r17 r18 53 53 </Item5> 54 54 </RequiredPackages> 55 <Units Count="6 4">55 <Units Count="62"> 56 56 <Unit0> 57 57 <Filename Value="Transpascal.lpr"/> 58 58 <IsPartOfProject Value="True"/> 59 59 <UnitName Value="Transpascal"/> 60 <EditorIndex Value="1 2"/>60 <EditorIndex Value="14"/> 61 61 <WindowIndex Value="0"/> 62 62 <TopLine Value="1"/> … … 98 98 <TopLine Value="745"/> 99 99 <CursorPos X="46" Y="759"/> 100 <UsageCount Value="1 22"/>100 <UsageCount Value="118"/> 101 101 <DefaultSyntaxHighlighter Value="Delphi"/> 102 102 </Unit3> … … 107 107 <TopLine Value="1"/> 108 108 <CursorPos X="40" Y="11"/> 109 <UsageCount Value="1 22"/>109 <UsageCount Value="118"/> 110 110 <DefaultSyntaxHighlighter Value="Delphi"/> 111 111 </Unit4> … … 116 116 <TopLine Value="187"/> 117 117 <CursorPos X="34" Y="201"/> 118 <UsageCount Value="1 22"/>118 <UsageCount Value="118"/> 119 119 </Unit5> 120 120 <Unit6> … … 124 124 <TopLine Value="1"/> 125 125 <CursorPos X="1" Y="14"/> 126 <UsageCount Value="1 22"/>126 <UsageCount Value="118"/> 127 127 </Unit6> 128 128 <Unit7> … … 132 132 <TopLine Value="124"/> 133 133 <CursorPos X="42" Y="136"/> 134 <UsageCount Value="1 22"/>134 <UsageCount Value="118"/> 135 135 </Unit7> 136 136 <Unit8> … … 140 140 <TopLine Value="442"/> 141 141 <CursorPos X="47" Y="455"/> 142 <UsageCount Value="1 22"/>142 <UsageCount Value="118"/> 143 143 </Unit8> 144 144 <Unit9> … … 148 148 <TopLine Value="78"/> 149 149 <CursorPos X="27" Y="86"/> 150 <UsageCount Value="1 4"/>150 <UsageCount Value="10"/> 151 151 </Unit9> 152 152 <Unit10> … … 155 155 <TopLine Value="61"/> 156 156 <CursorPos X="7" Y="68"/> 157 <UsageCount Value="2 4"/>157 <UsageCount Value="20"/> 158 158 </Unit10> 159 159 <Unit11> … … 162 162 <TopLine Value="139"/> 163 163 <CursorPos X="16" Y="146"/> 164 <UsageCount Value="2 4"/>164 <UsageCount Value="20"/> 165 165 </Unit11> 166 166 <Unit12> … … 170 170 <TopLine Value="69"/> 171 171 <CursorPos X="1" Y="82"/> 172 <UsageCount Value="8 4"/>172 <UsageCount Value="80"/> 173 173 </Unit12> 174 174 <Unit13> … … 178 178 <TopLine Value="320"/> 179 179 <CursorPos X="1" Y="327"/> 180 <UsageCount Value="3 8"/>180 <UsageCount Value="34"/> 181 181 </Unit13> 182 182 <Unit14> … … 193 193 </Unit14> 194 194 <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"/> 201 201 </Unit15> 202 202 <Unit16> 203 <Filename Value="Compiler\U Compiler.pas"/>204 <UnitName Value="U Compiler"/>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"/> 209 209 </Unit16> 210 210 <Unit17> 211 <Filename Value="Compiler\ USourceCode.pas"/>212 <UnitName Value="U SourceCode"/>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"/> 217 217 </Unit17> 218 218 <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>227 219 <Filename Value="Forms\UProjectManager.pas"/> 228 220 <IsPartOfProject Value="True"/> … … 235 227 <UsageCount Value="207"/> 236 228 <DefaultSyntaxHighlighter Value="Delphi"/> 237 </Unit1 9>238 <Unit 20>229 </Unit18> 230 <Unit19> 239 231 <Filename Value="Forms\UCodeForm.pas"/> 240 232 <IsPartOfProject Value="True"/> … … 247 239 <UsageCount Value="207"/> 248 240 <DefaultSyntaxHighlighter Value="Delphi"/> 249 </Unit 20>250 <Unit2 1>241 </Unit19> 242 <Unit20> 251 243 <Filename Value="Forms\UMessagesForm.pas"/> 252 244 <IsPartOfProject Value="True"/> … … 259 251 <UsageCount Value="207"/> 260 252 <DefaultSyntaxHighlighter Value="Delphi"/> 261 </Unit2 1>262 <Unit2 2>253 </Unit20> 254 <Unit21> 263 255 <Filename Value="Forms\UCompiledForm.pas"/> 264 256 <IsPartOfProject Value="True"/> … … 267 259 <ResourceBaseClass Value="Form"/> 268 260 <UnitName Value="UCompiledForm"/> 269 <EditorIndex Value=" 8"/>261 <EditorIndex Value="10"/> 270 262 <WindowIndex Value="0"/> 271 263 <TopLine Value="2"/> … … 274 266 <Loaded Value="True"/> 275 267 <DefaultSyntaxHighlighter Value="Delphi"/> 276 </Unit2 2>277 <Unit2 3>268 </Unit21> 269 <Unit22> 278 270 <Filename Value="Forms\UCodeTreeForm.pas"/> 279 271 <IsPartOfProject Value="True"/> … … 281 273 <ResourceBaseClass Value="Form"/> 282 274 <UnitName Value="UCodeTreeForm"/> 283 <EditorIndex Value=" 7"/>275 <EditorIndex Value="9"/> 284 276 <WindowIndex Value="0"/> 285 277 <TopLine Value="1"/> … … 288 280 <Loaded Value="True"/> 289 281 <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"/> 290 290 </Unit23> 291 291 <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"/> 298 300 </Unit24> 299 301 <Unit25> 300 <Filename Value="Common\U Registry.pas"/>301 <IsPartOfProject Value="True"/> 302 <UnitName Value="U Registry"/>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"/> 306 308 <UsageCount Value="200"/> 307 309 <DefaultSyntaxHighlighter Value="Delphi"/> 308 310 </Unit25> 309 311 <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>320 312 <Filename Value="UApplicationInfo.pas"/> 321 313 <IsPartOfProject Value="True"/> … … 326 318 <UsageCount Value="200"/> 327 319 <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"/> 328 328 </Unit27> 329 329 <Unit28> 330 <Filename Value="Compiler\Produce\UProducer DynamicC.pas"/>331 <UnitName Value="UProducer DynamicC"/>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"/> 336 336 </Unit28> 337 337 <Unit29> 338 <Filename Value="Compiler\Produce\UProducer Asm8051.pas"/>339 <UnitName Value="UProducer Asm8051"/>340 <WindowIndex Value="0"/> 341 <TopLine Value=" 143"/>342 <CursorPos X="6 8" 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"/> 344 344 </Unit29> 345 345 <Unit30> 346 <Filename Value="Compiler\ Produce\UProducerPascal.pas"/>347 <UnitName Value="UP roducerPascal"/>348 <WindowIndex Value="0"/> 349 <TopLine Value=" 309"/>350 <CursorPos X=" 64" Y="322"/>351 <UsageCount Value="1 10"/>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"/> 352 352 </Unit30> 353 353 <Unit31> 354 <Filename Value="Compiler\Analyze\U PascalParser.pas"/>355 <UnitName Value="U PascalParser"/>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"/> 360 360 </Unit31> 361 361 <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"/> 368 370 </Unit32> 369 371 <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"/> 375 376 <UsageCount Value="3"/> 376 377 </Unit33> 377 378 <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"/> 386 385 </Unit34> 387 386 <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"/> 393 394 </Unit35> 394 395 <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"/> 401 403 </Unit36> 402 404 <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"/> 410 411 </Unit37> 411 412 <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"/> 418 418 <DefaultSyntaxHighlighter Value="Delphi"/> 419 419 </Unit38> 420 420 <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"/> 427 426 </Unit39> 428 427 <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"/> 435 433 </Unit40> 436 434 <Unit41> 437 <Filename Value="E:\P ascalClassLibrary\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"/> 443 441 </Unit41> 444 442 <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"/> 449 448 <UsageCount Value="14"/> 450 449 </Unit42> 451 450 <Unit43> 452 <Filename Value=" Generics\Generic\GenericList.inc"/>453 <WindowIndex Value="0"/> 454 <TopLine Value="1 00"/>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"/> 457 456 </Unit43> 458 457 <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"/> 465 463 </Unit44> 466 464 <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"/> 473 471 </Unit45> 474 472 <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>497 473 <Filename Value="..\Compiler\UCompiler.pas"/> 498 474 <UnitName Value="UCompiler"/> … … 501 477 <TopLine Value="63"/> 502 478 <CursorPos X="19" Y="79"/> 503 <UsageCount Value=" 13"/>504 <Loaded Value="True"/> 505 </Unit4 9>506 <Unit 50>479 <UsageCount Value="31"/> 480 <Loaded Value="True"/> 481 </Unit46> 482 <Unit47> 507 483 <Filename Value="..\Compiler\Produce\UProducer.pas"/> 508 484 <UnitName Value="UProducer"/> 509 <EditorIndex Value="1 1"/>485 <EditorIndex Value="13"/> 510 486 <WindowIndex Value="0"/> 511 487 <TopLine Value="10"/> 512 488 <CursorPos X="15" Y="23"/> 513 <UsageCount Value=" 12"/>514 <Loaded Value="True"/> 515 </Unit 50>516 <Unit 51>489 <UsageCount Value="30"/> 490 <Loaded Value="True"/> 491 </Unit47> 492 <Unit48> 517 493 <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/> 518 494 <UnitName Value="UAnalyzer"/> … … 521 497 <TopLine Value="22"/> 522 498 <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"/> 524 531 <Loaded Value="True"/> 525 532 </Unit51> 526 533 <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"/> 535 540 </Unit52> 536 541 <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"/> 545 549 <Loaded Value="True"/> 546 550 </Unit53> 547 551 <Unit54> 548 <Filename Value="..\Compiler\ Produce\UProducerDynamicC.pas"/>549 <UnitName Value="U ProducerDynamicC"/>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"/> 555 559 <Loaded Value="True"/> 556 560 </Unit54> 557 561 <Unit55> 558 <Filename Value="..\Compiler\ Produce\UProducerAsm8051.pas"/>559 <UnitName Value=" UProducerAsm8051"/>560 <WindowIndex Value="0"/> 561 <TopLine Value="1 07"/>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"/> 564 568 </Unit55> 565 569 <Unit56> 566 <Filename Value="..\Compiler\ Produce\UProducerGCCC.pas"/>567 <UnitName Value="U ProducerGCCC"/>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"/> 572 576 </Unit56> 573 577 <Unit57> 574 <Filename Value="..\Compiler\ USourceCode.pas"/>575 <UnitName Value="U SourceCode"/>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"/> 581 585 <Loaded Value="True"/> 582 586 </Unit57> 583 587 <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"/> 590 596 </Unit58> 591 597 <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"/> 598 604 </Unit59> 599 605 <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"/> 607 612 <Loaded Value="True"/> 608 613 </Unit60> 609 614 <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"/> 617 621 <Loaded Value="True"/> 618 622 </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>636 623 </Units> 637 624 <JumpHistory Count="30" HistoryIndex="29"> 638 625 <Position1> 639 626 <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/> 640 <Caret Line=" 60" Column="60" TopLine="60"/>627 <Caret Line="176" Column="41" TopLine="158"/> 641 628 </Position1> 642 629 <Position2> 643 630 <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/> 644 <Caret Line=" 70" Column="109" TopLine="60"/>631 <Caret Line="69" Column="28" TopLine="59"/> 645 632 </Position2> 646 633 <Position3> 647 634 <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/> 648 <Caret Line=" 177" Column="3" TopLine="173"/>635 <Caret Line="73" Column="61" TopLine="59"/> 649 636 </Position3> 650 637 <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"/> 653 640 </Position4> 654 641 <Position5> 655 642 <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/> 656 <Caret Line="1 93" Column="1" TopLine="173"/>643 <Caret Line="143" Column="17" TopLine="123"/> 657 644 </Position5> 658 645 <Position6> 659 <Filename Value=" Forms\UMainForm.pas"/>660 <Caret Line="1 07" Column="21" TopLine="93"/>646 <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/> 647 <Caret Line="128" Column="26" TopLine="120"/> 661 648 </Position6> 662 649 <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"/> 665 652 </Position7> 666 653 <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"/> 669 656 </Position8> 670 657 <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"/> 673 660 </Position9> 674 661 <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"/> 677 664 </Position10> 678 665 <Position11> 679 666 <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/> 680 <Caret Line="1 76" Column="7" TopLine="158"/>667 <Caret Line="130" Column="25" TopLine="118"/> 681 668 </Position11> 682 669 <Position12> 683 <Filename Value="..\Compiler\ Produce\UProducerPascal.pas"/>684 <Caret Line="1 73" Column="1" TopLine="158"/>670 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 671 <Caret Line="1227" Column="4" TopLine="1221"/> 685 672 </Position12> 686 673 <Position13> 687 <Filename Value="..\Compiler\ Produce\UProducerPascal.pas"/>688 <Caret Line="1 74" Column="1" TopLine="158"/>674 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 675 <Caret Line="1225" Column="1" TopLine="1220"/> 689 676 </Position13> 690 677 <Position14> 691 <Filename Value="..\Compiler\ Produce\UProducerPascal.pas"/>692 <Caret Line="1 75" Column="1" TopLine="158"/>678 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 679 <Caret Line="1226" Column="1" TopLine="1220"/> 693 680 </Position14> 694 681 <Position15> 695 <Filename Value="..\Compiler\ Produce\UProducerPascal.pas"/>696 <Caret Line="1 78" Column="1" TopLine="158"/>682 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 683 <Caret Line="1232" Column="1" TopLine="1220"/> 697 684 </Position15> 698 685 <Position16> 699 <Filename Value="..\Compiler\ Produce\UProducerPascal.pas"/>700 <Caret Line="1 79" Column="1" TopLine="158"/>686 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 687 <Caret Line="1233" Column="1" TopLine="1220"/> 701 688 </Position16> 702 689 <Position17> 703 690 <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/> 704 <Caret Line="1 73" Column="1" TopLine="158"/>691 <Caret Line="137" Column="13" TopLine="126"/> 705 692 </Position17> 706 693 <Position18> 707 694 <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/> 708 <Caret Line="1 74" Column="1" TopLine="158"/>695 <Caret Line="143" Column="19" TopLine="126"/> 709 696 </Position18> 710 697 <Position19> 711 <Filename Value="..\Compiler\ Produce\UProducerPascal.pas"/>712 <Caret Line="1 75" Column="1" TopLine="158"/>698 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 699 <Caret Line="1197" Column="28" TopLine="1178"/> 713 700 </Position19> 714 701 <Position20> 715 <Filename Value="..\Compiler\ Produce\UProducerPascal.pas"/>716 <Caret Line="1 78" Column="1" TopLine="158"/>702 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 703 <Caret Line="1196" Column="1" TopLine="1178"/> 717 704 </Position20> 718 705 <Position21> 719 <Filename Value="..\Compiler\ Produce\UProducerPascal.pas"/>720 <Caret Line="1 79" Column="1" TopLine="158"/>706 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 707 <Caret Line="1213" Column="1" TopLine="1191"/> 721 708 </Position21> 722 709 <Position22> 723 <Filename Value="..\Compiler\ Produce\UProducerPascal.pas"/>724 <Caret Line="1 73" Column="1" TopLine="158"/>710 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 711 <Caret Line="1197" Column="1" TopLine="1191"/> 725 712 </Position22> 726 713 <Position23> 727 <Filename Value="..\Compiler\ Produce\UProducerPascal.pas"/>728 <Caret Line="1 74" Column="1" TopLine="158"/>714 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 715 <Caret Line="1198" Column="1" TopLine="1191"/> 729 716 </Position23> 730 717 <Position24> 731 <Filename Value="..\Compiler\ Produce\UProducerPascal.pas"/>732 <Caret Line="1 75" Column="1" TopLine="158"/>718 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 719 <Caret Line="1199" Column="1" TopLine="1191"/> 733 720 </Position24> 734 721 <Position25> 735 <Filename Value="..\Compiler\ Produce\UProducerPascal.pas"/>736 <Caret Line="1 78" Column="1" TopLine="158"/>722 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 723 <Caret Line="1205" Column="1" TopLine="1191"/> 737 724 </Position25> 738 725 <Position26> 739 <Filename Value="..\Compiler\ Produce\UProducerPascal.pas"/>740 <Caret Line="1 79" Column="1" TopLine="158"/>726 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 727 <Caret Line="1206" Column="1" TopLine="1191"/> 741 728 </Position26> 742 729 <Position27> 743 <Filename Value="..\Compiler\ Produce\UProducerPascal.pas"/>744 <Caret Line="1 76" Column="41" TopLine="158"/>730 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 731 <Caret Line="1207" Column="1" TopLine="1191"/> 745 732 </Position27> 746 733 <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"/> 749 736 </Position28> 750 737 <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"/> 753 740 </Position29> 754 741 <Position30> 755 742 <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/> 756 <Caret Line=" 29" Column="27" TopLine="15"/>743 <Caret Line="1206" Column="28" TopLine="1187"/> 757 744 </Position30> 758 745 </JumpHistory> … … 797 784 </CompilerOptions> 798 785 <Debugging> 786 <BreakPoints Count="1"> 787 <Item1> 788 <Source Value="..\Compiler\Produce\UProducerPascal.pas"/> 789 <Line Value="143"/> 790 </Item1> 791 </BreakPoints> 799 792 <Exceptions Count="3"> 800 793 <Item1>
Note:
See TracChangeset
for help on using the changeset viewer.