[fpc-pascal] Error, WinCE/ARM and inherit from TForm and IInterface.

[zaher dirkey]

Only when i try to compile for WinCE/ARM i have this error, Is that bug or i
have a problem?

----------
type
  IMyInterface = interface(IInterface)
  ['{A51D99BE-9A99-4DFC-89D5-31FEFDC150E7}']
    procedure MyUpdate(State: Boolean);
  end;

  TForm1 = class(TForm, IMyInterface)
  private
  public
    procedure MyUpdate(State: Boolean);
  end;
---------

it also happen when i use IInterface directly
---------
  TForm1 = class(TForm, IInterface)
  private
  public
  end;
------

the error
---------
unit1.pas(19,24) Hint: Parameter "State" not used
unit1.s: Assembler messages:
unit1.s:730: Error: register expected, not 'ireg16,#1024' -- `mov
ireg16,#1024'
unit1.s:731: Error: register expected, not 'ireg16,ireg16,#68' -- `orr
ireg16,ireg16,#68'
unit1.s:732: Error: register or shift expression expected -- `sub
r0,r0,ireg16'
unit1.s:740: Error: register expected, not 'ireg16,#1024' -- `mov
ireg16,#1024'
unit1.s:741: Error: register expected, not 'ireg16,ireg16,#68' -- `orr
ireg16,ireg16,#68'
unit1.s:742: Error: register or shift expression expected -- `sub
r0,r0,ireg16'
unit1.s:748: Error: register expected, not 'ireg16,#1024' -- `mov
ireg16,#1024'
unit1.s:749: Error: register expected, not 'ireg16,ireg16,#68' -- `orr
ireg16,ireg16,#68'
unit1.s:750: Error: register or shift expression expected -- `sub
r0,r0,ireg16'
unit1.s:756: Error: register expected, not 'ireg16,#1024' -- `mov
ireg16,#1024'
unit1.s:757: Error: register expected, not 'ireg16,ireg16,#68' -- `orr
ireg16,ireg16,#68'
unit1.s:758: Error: register or shift expression expected -- `sub
r0,r0,ireg16'
unit1.pas(35) Error: Error while assembling exitcode 1
unit1.pas(35) Fatal: There were 2 errors compiling module, stopping
--------
I tried to reproduce it when Pascal code but the error not accord, my
project use Lazarus.

Lazarus and FPC 2.3.1 is svn build before 2 week.
I must give the revision number for both, but how to get what revision i
compiled,  my original svn folder up to date every day, may be i must save
the revision when i compile it).

Thanks

Zaher Dirkey
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20080213/4f1f7b91/attachment.html>