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

Timestamp:

Oct 22, 2010, 3:39:58 PM (14 years ago)

Author:

george

Message:

• Modified: Better parse righ assignment side with expression.

File:

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

branches/Transpascal/Compiler/Analyze/UParser.pas

@@ -146 +146 @@
 function TBaseParser.IsString(Text: string): Boolean;
 begin
-
+  raise Exception.Create('Not implemented');
 end;
 
@@ -267 +267 @@
       if FParserState = psBlockComment1First then begin
         if CurrentChar = '$' then FParserState := psCompilerDirective
-        else FParserSTate := psBlockComment1;
+          else FParserSTate := psBlockComment1;
       end else
       if FParserState = psBlockComment1 then begin
@@ -276 +276 @@
       if FParserState = psCompilerDirective then begin
         if (CurrentChar = '}') then begin
-          FParserState := psNone;
+          FParserState := psNoneShift;
           FNextTokenType := ttCompilerDirective;
-          Break;
-        end;
+          FNextToken := '';
+          //Break;
+        end else FNextToken := FNextToken + CurrentChar;
       end else
       if FParserState = psBlockComment2 then begin