Changeset 20 for trunk/Compiler/Analyze/UAnalyzerPascal.pas

Timestamp:

Nov 9, 2010, 12:21:56 PM (13 years ago)

Author:

george

Message:

• Modified: Tokenizer was using slow Text property of TStringList. Replaced by fast native string variable.

File:

• trunk/Compiler/Analyze/UAnalyzerPascal.pas (modified) (3 diffs)

trunk/Compiler/Analyze/UAnalyzerPascal.pas

@@ -91 +91 @@
   try
     Parser := TAnalyzerPascal.Create;
-    Parser.SourceCodeText := TStringList.Create;
     Parser.OnDebugLog := OnDebugLog;
     Parser.ProgramCode := ProgramCode;
     Parser.OnGetSource := OnGetSource;
     if Assigned(OnGetSource) then begin
-      if OnGetSource(Name, Parser.SourceCodeText) then begin
+      if OnGetSource(Name, Parser.SourceCode) then begin
         Parser.Process;
         Parser.FileName := Name;
@@ -107 +106 @@
     end else Result := False;
   finally
-    Parser.SourceCodeText.Free;
     Parser.Free;
   end;
@@ -560 +558 @@
   NewType: TType;
 begin
+  Log('ParseCommonBlockInterface');
   with SourceCode do begin
     while (NextToken <> 'implementation') and (NextTokenType <> ttEndOfFile) do begin