Changeset 32 for trunk/Target/UTargetC.pas

Timestamp:

Feb 18, 2012, 8:44:10 PM (13 years ago)

Author:

chronos

Message:

• Modified: Target specific options is maintained by target class in registry.
• Modified: Integer index TargetIndex replaced by object reference CurrentTarget.

File:

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

trunk/Target/UTargetC.pas

@@ -13 +13 @@
 
   TTargetC = class(TTarget)
+  private
+  public
     constructor Create; override;
     procedure Compile; override;
@@ -48 +50 @@
   Result := 1;
   if Optimization = coNormal then
-  while ((I + 1) <= Length(Source)) and (Source[I + 1] = C) do begin
+  while ((I + 1) <= Length(FSource)) and (FSource[I + 1] = C) do begin
     Inc(Result);
     Inc(I)
@@ -69 +71 @@
   AddLine('Pos = 0;');
   I := 1;
-  while (I <= Length(Source)) do begin
-    case Source[I] of
+  while (I <= Length(FSource)) do begin
+    case FSource[I] of
       '>': begin
         Sum := CheckOccurence('>');