[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

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal