Changeset 48 for trunk/Target/UTargetDelphi.pas

Timestamp:

Jul 12, 2012, 9:15:02 AM (12 years ago)

Author:

chronos

Message:

• Added: Tool button with drop down menu of available targets.
• Added Target list have icons.

File:

• trunk/Target/UTargetDelphi.pas (modified) (3 diffs)

trunk/Target/UTargetDelphi.pas

@@ -29 +29 @@
   Name := 'Delphi';
   SourceExtension := '.pas';
+  ImageIndex := 22;
   CompiledExtension := '.exe';
   Capabilities := [tcCompile, tcRun];
@@ -49 +50 @@
     Inc(I)
   end;
+end;
+
+function CheckClear: Boolean;
+begin
+  Result := (FSourceCode[I] = '[') and (Length(FSourceCode) >= I + 2) and
+    (FSourceCode[I + 1] = '-') and (FSourceCode[I + 2] = ']');
 end;
 
@@ -89 +96 @@
       ',': AddLine('Read(ReadChar); Memory[Pos] := Ord(ReadChar);');
       '[': begin
-        AddLine('while Memory[Pos] <> 0 do begin');
-        Inc(Indent);
+        if CheckClear then begin
+          AddLine('Memory[Pos] := 0;');
+          Inc(I, 2);
+        end else begin
+          AddLine('while Memory[Pos] <> 0 do begin');
+          Inc(Indent);
+        end;
       end;
       ']': begin