RegisterMethod fix for proper end parser position on functions.

git-svn-id: http://code.remobjects.com/svn/pascalscript@183 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
2009-09-25 07:52:31 +00:00 · 2009-09-25 07:52:31 +00:00 · e90a662b16
commit e90a662b16
parent 37ca375cb1
1 changed files with 1 additions and 0 deletions
--- a/Source/uPSCompiler.pas
+++ b/Source/uPSCompiler.pas
@ -2192,6 +2192,7 @@ begin
      Result := False;
      exit;
    end;
+    Parser.Next;
  end
  else if FuncType = 2 then {constructor}
  begin