Changeset 65 for trunk/Compiler/UAnalyzer.pas

Timestamp:

Jul 18, 2012, 10:57:48 PM (12 years ago)

Author:

chronos

Message:

• Modified: Updated GeneralRegistry package references.

File:

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

trunk/Compiler/UAnalyzer.pas

@@ -45 +45 @@
     CurrentChar: Char;
     TokenCodePosition: TPoint;
+    LineEndingChar: Char;
     procedure GetNextToken;
   public
@@ -125 +126 @@
 begin
   Tokens := TObjectList.Create;
+  {$IFDEF windows}
+  LineEndingChar := LineEnding[1];
+  {$ELSE}
+  LineEndingChar := LineEnding;
+  {$ENDIF}
 end;
 
@@ -374 +380 @@
         // Update cursor position
         Inc(CodePosition.X);
-        if (CurrentChar = LineEnding[1]) then begin
+        if (CurrentChar = LineEndingChar) then begin
           CodePosition.X := 0;
           Inc(CodePosition.Y);