Changeset 137
- Timestamp:
- Mar 5, 2022, 4:38:34 PM (3 years ago)
- Location:
- trunk
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Languages/LazFuck.cs.po
r136 r137 599 599 msgstr "SpouÅ¡tÄÄ \"%s\" nenalezen" 600 600 601 #: utarget.sfirstindexhigherthanlastindex 602 msgid "First index higher than last index" 603 msgstr "Prvnà index vÄtÅ¡Ã neÅŸ poslednà index" 604 605 #: utarget.sfirstindexoutofrange 606 msgid "First index out of range" 607 msgstr "Prvnà index mimo rozsah" 608 609 #: utarget.slastindexoutofrange 610 msgid "Last index out of range" 611 msgstr "Poslednà index mimo rozsah" 612 601 613 #: utarget.snone 602 614 msgid "None" … … 610 622 msgid "Paused" 611 623 msgstr "Zastaveno" 624 625 #: utarget.sprogramindexerror 626 #, object-pascal-format 627 msgid "Old program index higher than new (old: %d, new: %d)" 628 msgstr "StarÃœ programová index vyÅ¡Å¡Ã neÅŸ novÃœ (stará: %d, novÃœ: %d)" 612 629 613 630 #: utarget.srunning -
trunk/Languages/LazFuck.pot
r136 r137 589 589 msgstr "" 590 590 591 #: utarget.sfirstindexhigherthanlastindex 592 msgid "First index higher than last index" 593 msgstr "" 594 595 #: utarget.sfirstindexoutofrange 596 msgid "First index out of range" 597 msgstr "" 598 599 #: utarget.slastindexoutofrange 600 msgid "Last index out of range" 601 msgstr "" 602 591 603 #: utarget.snone 592 604 msgid "None" … … 599 611 #: utarget.spaused 600 612 msgid "Paused" 613 msgstr "" 614 615 #: utarget.sprogramindexerror 616 #, object-pascal-format 617 msgid "Old program index higher than new (old: %d, new: %d)" 601 618 msgstr "" 602 619 -
trunk/Target/UTargetInterpretter.pas
r136 r137 317 317 Memory[I] := 0; 318 318 MemoryChanged := True; 319 OutputChanged := True; 319 320 FStepCount := 0; 320 321 PrepareBreakPoints; -
trunk/UBFTarget.pas
r136 r137 267 267 if NewProgram[NewProgram.Index - 1].Command = cmPointerInc then 268 268 NewProgram.Operations[NewProgram.Index - 1].Parameter := NewProgram[NewProgram.Index - 1].Parameter + 269 FProgram[FProgram .Index].Parameter269 FProgram[FProgramIndex].Parameter 270 270 else 271 271 if NewProgram[NewProgram.Index - 1].Command = cmPointerDec then 272 272 NewProgram.Operations[NewProgram.Index - 1].Parameter := NewProgram[NewProgram.Index - 1].Parameter - 273 FProgram[FProgram .Index].Parameter;273 FProgram[FProgramIndex].Parameter; 274 274 // If value negative then change command 275 275 if NewProgram[NewProgram.Index - 1].Parameter < 0 then begin -
trunk/UTarget.pas
r136 r137 167 167 SNone = 'None'; 168 168 SNormal = 'Normal'; 169 SProgramIndexError = 'Old program index higher than new (old: %d, new: %d)'; 170 SFirstIndexHigherThanLastIndex = 'First index higher than last index'; 171 SFirstIndexOutOfRange = 'First index out of range'; 172 SLastIndexOutOfRange = 'Last index out of range'; 169 173 170 174 const … … 319 323 320 324 procedure TDebugSteps.UpdateTargetPos(OldProgramFrom, OldProgramTo, NewProgramFrom, 321 325 NewProgramTo: Integer; NewTarget: Integer = 0); 322 326 var 323 327 I: Integer; … … 329 333 if (First <> -1) and (Last <> -1) then begin 330 334 if First > Last then 331 raise Exception.Create( 'First index higher than last index');335 raise Exception.Create(SFirstIndexHigherThanLastIndex); 332 336 if (First < 0) or (First >= Count) then 333 raise Exception.Create( 'First index out of range');337 raise Exception.Create(SFirstIndexOutOfRange); 334 338 if (Last < 0) or (Last >= Count) then 335 raise Exception.Create( 'Last index out of range');339 raise Exception.Create(SLastIndexOutOfRange); 336 340 for I := Last downto First + 1 do Delete(I); 337 341 … … 343 347 Items[First].TargetPosition := NewTarget; 344 348 end else 345 raise Exception.Create( 'Old program index higher than new');349 raise Exception.Create(Format(SProgramIndexError, [SProgramIndexError, NewProgramTo])); 346 350 end; 347 351 end;
Note:
See TracChangeset
for help on using the changeset viewer.