[fpc-pascal] Codepage + class helper raises "Error identifier idents no member ..."

[silvioprog]

Hello,

Consider the following code:

=== code ===

program project1;

{$mode objfpc}{$H+}
*//{$codepage utf8}*

uses Classes;

type
  TFoo = class helper for TStream
  public
    procedure Bar;
  end;

  procedure TFoo.Bar;
  begin
  end;

var
  s: string = '';
  m: TStream;
begin
  m := TMemoryStream.Create;
  try
    m.Bar;
  finally
    m.Free;
  end;
end.

=== /code ===

It compiles fine, but when you uncomment the line "//{$codepage utf8}", it
raises:

'Error: identifier idents no member "Bar"'

If you confirm it as bug I can open a issue on bugtracker.

-- 
Silvio Clécio
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20160226/3bf9d9c4/attachment.html>