Changeset 124 for trunk/UBFTarget.pas

Timestamp:

Jan 14, 2022, 3:03:42 PM (3 years ago)

Author:

chronos

Message:

• Modified: Use IFDEF UNIX instead of IFDEF LINUX.
• Modified: Localized error message.

File:

• trunk/UBFTarget.pas (modified) (3 diffs)

trunk/UBFTarget.pas

@@ -63 +63 @@
 implementation
 
+resourcestring
+  SUnsupportedCommand = 'Unsupported command %d';
+
 { TMachineOperation }
 
@@ -336 +339 @@
         NewProgram[NewProgramIndex] := FProgram[FProgramIndex];
       end;
-      else raise Exception.Create(Format('Unsupported command %d', [FProgram[FProgramIndex].Command]));
+      else raise Exception.Create(Format(SUnsupportedCommand, [FProgram[FProgramIndex].Command]));
     end;
     DebugSteps.UpdateTargetPos(FirstIndex, FProgramIndex, NewProgramIndex, NewTargetIndex);
@@ -440 +443 @@
         end;
       end;
-      else raise Exception.Create(Format('Unsupported command %d', [FProgram[FProgramIndex].Command]));
+      else raise Exception.Create(Format(SUnsupportedCommand, [FProgram[FProgramIndex].Command]));
     end;
     DebugSteps.UpdateTargetPos(FirstIndex, FProgramIndex, NewProgramIndex, NewTextIndex);