fcl-pas: parser: asm: add first empty line to Tokens

git-svn-id: trunk@36668 -

packages/fcl-passrc/src/pscanner.pp

@@ -2278,23 +2278,19 @@ var
     OldLen: Integer;
   begin
     AddLen:=TokenStr-StartPos;
-    if AddLen=0 then exit;
-    OldLen:=length(FCurTokenString);
-    SetLength(FCurTokenString,OldLen+AddLen);
-    Move(StartPos^,PChar(PChar(FCurTokenString)+OldLen)^,AddLen);
-    StartPos:=TokenStr;
+    if AddLen=0 then
+      FCurTokenString:=''
+    else
+      begin
+      OldLen:=length(FCurTokenString);
+      SetLength(FCurTokenString,OldLen+AddLen);
+      Move(StartPos^,PChar(PChar(FCurTokenString)+OldLen)^,AddLen);
+      StartPos:=TokenStr;
+      end;
   end;
 
 begin
   FCurTokenString := '';
-  if (TokenStr = nil) or (TokenStr^ = #0) then
-    if not FetchLine then
-    begin
-      Result := tkEOF;
-      FCurToken := Result;
-      exit;
-    end;
-
   StartPos:=TokenStr;
   repeat
     case TokenStr[0] of
@@ -2305,6 +2301,7 @@ begin
             begin
             Result := tkLineEnding;
             FCurToken := Result;
+            FetchLine;
             exit;
             end;
           if not FetchLine then