Changeset 180 for trunk/Target/TargetPHP.pas

Timestamp:

Aug 26, 2024, 9:15:43 PM (4 weeks ago)

Author:

chronos

Message:

• Added: Ruby target.

File:

• trunk/Target/TargetPHP.pas (modified) (2 diffs)

trunk/Target/TargetPHP.pas

@@ -59 +59 @@
 
   AddLine('<?php // ' + ProgramName);
-  AddLine('');
+  AddLine;
   AddLine('$Memory = str_repeat("\0", ' + IntToStr(MemorySize) + ');');
   AddLine('$Position = 0;');
@@ -76 +76 @@
       cmMultiply: AddLine(GetMemoryCell + ' = chr(ord(' + GetMemoryCell + ') + ord($Memory[$Position]) * ' + IntToStr(FProgram[FProgramIndex].Parameter) + ');');
       cmLoopStart: begin
-        AddLine('while(' + GetMemoryCell + ' != "\0") {');
+        AddLine('while(' + GetMemoryCell + ' != "\0")');
+        AddLine('{');
         Inc(Indent);
       end;