Changeset 83 for branches/Transpascal/Compiler/Analyze/UParser.pas

Timestamp:

Oct 31, 2010, 9:40:18 PM (14 years ago)

Author:

george

Message:

• Modified: TObjectList replaced by generics templates.

File:

• branches/Transpascal/Compiler/Analyze/UParser.pas (modified) (1 diff)

branches/Transpascal/Compiler/Analyze/UParser.pas

@@ -360 +360 @@
         // Update cursor position
         Inc(CodePosition.X);
-        if (CurrentChar = #13) then begin
+        if (CurrentChar = LineEnding) then begin
           CodePosition.X := 0;
           Inc(CodePosition.Y);