Changeset 33 for trunk/Target/UTargetC.pas

Timestamp:

Feb 18, 2012, 11:08:44 PM (13 years ago)

Author:

chronos

Message:

• Modified: CompiledForm replaced by compiled source tab in PageControl on MainForm.
• Added: Function for switching position between source code and target code.

File:

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

trunk/Target/UTargetC.pas

@@ -50 +50 @@
   Result := 1;
   if Optimization = coNormal then
-  while ((I + 1) <= Length(FSource)) and (FSource[I + 1] = C) do begin
+  while ((I + 1) <= Length(FSourceCode)) and (FSourceCode[I + 1] = C) do begin
     Inc(Result);
     Inc(I)
@@ -58 +58 @@
 begin
   Indent := 0;
-  Output := '';
+  FTargetCode := '';
 
   AddLine('#include <stdio.h>');
@@ -71 +71 @@
   AddLine('Pos = 0;');
   I := 1;
-  while (I <= Length(FSource)) do begin
-    case FSource[I] of
+  while (I <= Length(FSourceCode)) do begin
+    case FSourceCode[I] of
       '>': begin
         Sum := CheckOccurence('>');
@@ -119 +119 @@
   with TStringList.Create do
   try
-    Text := Output;
+    Text := FTargetCode;
     SaveToFile(CompiledFile);
   finally