Changeset 65 for trunk/Compiler

Timestamp:

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

Author:

chronos

Message:

• Modified: Updated GeneralRegistry package references.

Location:

trunk/Compiler

Files:

• Target/Delphi/UProducerPascal.pas (modified) (1 diff)
• UAnalyzer.pas (modified) (3 diffs)

trunk/Compiler/Target/Delphi/UProducerPascal.pas

@@ -102 +102 @@
     EmitLn('program ' + Name + ';');
     EmitLn;
-    EnitLn('{$APPTYPE Console}');
+    EmitLn('{$APPTYPE Console}');
     EmitLn;
     GenerateUses(UsedModules);

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);