Changeset 58 for trunk

Timestamp:

Apr 26, 2014, 10:20:38 AM (11 years ago)

Author:

chronos

Message:

• Fixed: Wrong occurence limit checking.

Location:

trunk

Files:

• Languages/LazFuckIDE.cs.po (modified) (4 diffs)
• Target/UTarget.pas (modified) (1 diff)

trunk/Languages/LazFuckIDE.cs.po

@@ -5 +5 @@
 "POT-Creation-Date: \n"
 "PO-Revision-Date: \n"
-"Last-Translator: Jiří Hajda <robie@centrum.cz>\n"
+"Last-Translator: Chronos <robie@centrum.cz>\n"
 "Language-Team: \n"
 "MIME-Version: 1.0\n"
 "Content-Transfer-Encoding: 8bit\n"
+"X-Generator: Poedit 1.5.4\n"
+"Language: cs\n"
 
 #: tcompiledform.caption
@@ -180 +182 @@
 #: tformsourcecode.ageneratenumber.caption
 msgid "Generate number"
-msgstr "Generopvat číslo"
+msgstr "Generovat číslo"
 
 #: tformsourcecode.apastefromclipboard.caption
@@ -493 +495 @@
 msgctxt "tmainform.toolbuttontarget.caption"
 msgid "Target select"
-msgstr ""
+msgstr "VÃœběr cíle"
 
 #: tmainform.toolbuttontarget.hint
 msgctxt "tmainform.toolbuttontarget.hint"
 msgid "Target select"
-msgstr ""
+msgstr "VÃœběr cíle"
 
 #: toptionsform.buttoncancel.caption
@@ -713 +715 @@
 msgid "Read input error"
 msgstr "Chyba čtení vstupu"
-

trunk/Target/UTarget.pas

@@ -507 +507 @@
   Result := 1;
   if Optimization = coNormal then
-  while ((FProgramIndex + 1) <= Length(FProgram)) and (FProgram[FProgramIndex + 1] = C) do begin
+  while ((FProgramIndex + 1) < Length(FProgram)) and (FProgram[FProgramIndex + 1] = C) do begin
     Inc(Result);
     Inc(FProgramIndex);