Changeset 72 for trunk/Compiler/UAnalyzer.pas

Timestamp:

Aug 1, 2012, 12:16:08 PM (12 years ago)

Author:

chronos

Message:

• Added: Introduced concept of graph of source file set converters similar to IntToStr, StrToInt, FloatToStr, StrToFloat, e.g.
• Modified: Some target definitions transformed to loadable modules.

File:

• trunk/Compiler/UAnalyzer.pas (modified) (4 diffs)

trunk/Compiler/UAnalyzer.pas

@@ -8 +8 @@
 uses
   SysUtils, Variants, Classes, Contnrs,
-  Dialogs, USourceCode, FileUtil, SpecializedList;
+  Dialogs, USourceCodePascal, FileUtil, SpecializedList;
 
 type
@@ -53 +53 @@
     CodeStreamPosition: Integer;
     CodePosition: TPoint;
-    SourceCode: string;
+    SourceCode2: string;
     Tokens: TObjectList; // TObjectList<TToken>
     TokenIndex: Integer;
@@ -242 +242 @@
   Tokens.Clear;
   TokenIndex := 0;
-  while CodeStreamPosition < Length(SourceCode) do begin
+  while CodeStreamPosition < Length(SourceCode2) do begin
     NewToken := TToken.Create;
     GetNextToken;
@@ -274 +274 @@
 
     while True do begin
-      if CodeStreamPosition < Length(SourceCode) then begin
-        CurrentChar := SourceCode[CodeStreamPosition];
+      if CodeStreamPosition < Length(SourceCode2) then begin
+        CurrentChar := SourceCode2[CodeStreamPosition];
       end else begin
         FNextToken := '';