Changeset 20 for trunk/Compiler/UCompiler.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/UCompiler.pas (modified) (1 diff)

trunk/Compiler/UCompiler.pas

@@ -71 +71 @@
     ProducedCode := TStringList.Create;
     Analyzer.FileName := ModuleName;
-    Analyzer.SourceCodeText := Source;
+    Analyzer.SourceCode := Source.Text;
     Analyzer.Process;
     //ShowMessage(IntToHex(Integer(Addr(Analyzer.OnGetSource)), 8));