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

Timestamp:

Oct 19, 2010, 1:11:59 PM (14 years ago)

Author:

george

Message:

• Minor modifications.

File:

• branches/Transpascal/Compiler/Analyze/UParser.pas (modified) (4 diffs)

branches/Transpascal/Compiler/Analyze/UParser.pas

@@ -35 +35 @@
     CodeStreamPosition: integer;
     CodePosition: TPoint;
-    LastTokenPosition: TPoint;
+    LastTokenEnd: TPoint;
+    LastTokenStart: TPoint;
     SourceCodeText: TStringList;
     function IsAlphanumeric(Character: char): boolean;
@@ -74 +75 @@
 begin
   if Assigned(FOnErrorMessage) then
-    FOnErrorMessage(Format(Text, Arguments), LastTokenPosition, FileName);
+    FOnErrorMessage(Format(Text, Arguments), LastTokenStart, FileName);
 end;
 
@@ -80 +81 @@
 begin
   Log('Expected: ' + Code + '  Readed: ' + FNextToken);
-  if FNextToken <> Code then
-  begin
+  if FNextToken <> Code then begin
+    //ReadCode;
     ErrorMessage(SExpectedButFound, [Code, FNextToken]);
 
@@ -185 +186 @@
   DoubleSpecChar: array[0..6] of string = (':=', '..', '<=', '>=', '<>', '+=', '-=');
 begin
-  LastTokenPosition := CodePosition;
+  LastTokenStart := LastTokenEnd;
+  LastTokenEnd := CodePosition;
   FNextToken := '';
   FNextTokenType := ttNone;