Changeset 52 for trunk/Target/UTargetC.pas

Timestamp:

Jul 26, 2012, 3:11:08 PM (12 years ago)

Author:

chronos

Message:

• Modified: Optimization functions moved to shared place in TTarget.
• Modified: Text source is loaded to program source array of brainfuck commands for better processing.

File:

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

trunk/Target/UTargetC.pas

@@ -35 +35 @@
   Capabilities := [tcCompile, tcRun];
   {$IFDEF Windows}
-  CompilerPath := 'c:\Program Files\MinGW\bin\gcc.exe -o %1:s';
+  CompilerPath := 'c:\Program Files\MinGW\bin\gcc.exe';
   {$ENDIF}
   {$IFDEF Linux}
@@ -44 +44 @@
 procedure TTargetC.Compile;
 var
-  I: Integer;
   Sum: Integer;
-
-function CheckOccurence(C: Char): Integer;
-begin
-  Result := 1;
-  if Optimization = coNormal then
-  while ((I + 1) <= Length(FSourceCode)) and (FSourceCode[I + 1] = C) do begin
-    Inc(Result);
-    Inc(I)
-  end;
-end;
-
 begin
   inherited;
@@ -72 +60 @@
   AddLine('');
   AddLine('Pos = 0;');
-  I := 1;
-  while (I <= Length(FSourceCode)) do begin
-    case FSourceCode[I] of
-      '>': begin
-        Sum := CheckOccurence('>');
+  FProgramIndex := 0;
+  while (FProgramIndex < Length(FProgram)) do begin
+    case FProgram[FProgramIndex] of
+      cmPointerInc: begin
+        Sum := CheckOccurence(cmPointerInc);
         AddLine('Pos = Pos + ' + IntToStr(Sum) + ';');
       end;
-      '<': begin
-        Sum := CheckOccurence('<');
+      cmPointerDec: begin
+        Sum := CheckOccurence(cmPointerDec);
         AddLine('Pos = Pos - ' + IntToStr(Sum) + ';');
       end;
-      '+': begin
-        Sum := CheckOccurence('+');
+      cmInc: begin
+        Sum := CheckOccurence(cmInc);
         AddLine('Memory[Pos] = Memory[Pos] + ' + IntToStr(Sum) + ';');
       end;
-      '-': begin
-        Sum := CheckOccurence('-');
+      cmDec: begin
+        Sum := CheckOccurence(cmDec);
         AddLine('Memory[Pos] = Memory[Pos] - ' + IntToStr(Sum) + ';');
       end;
-      '.': AddLine('putchar(Memory[Pos]);');
-      ',': AddLine('Memory[Pos] = getchar();');
-      '[': begin
-        AddLine('while(Memory[Pos] != 0)');
-        AddLine('{');
-        Inc(Indent);
+      cmOutput: AddLine('putchar(Memory[Pos]);');
+      cmInput: AddLine('Memory[Pos] = getchar();');
+      cmLoopStart: begin
+        if CheckClear then begin
+          AddLine('Memory[Pos] = 0;');
+          Inc(FProgramIndex, 2);
+        end else begin
+          AddLine('while(Memory[Pos] != 0)');
+          AddLine('{');
+          Inc(Indent);
+        end;
       end;
-      ']': begin
+      cmLoopEnd: begin
         Dec(Indent);
         AddLine('}');
       end;
     end;
-    Inc(I);
+    Inc(FProgramIndex);
   end;
   AddLine('return 0;');