BUT, (there's always a but...) it doesn't assemble.

I do...

ppc386 mwcustomedit.pas
..
..
...
Assembling mwcustomedit
mwcustomedit.s: Assembler messages;
mwcustomedit.s:1273: Error: expecting operand before ","; got nothing Warning: error while assembling exitcode 1
Fatal: There were 1 errors compiling module, stopping ...

..

Suggestions?

Shane

Maybe it's fixed, there was typo in the assembler instructions

Peter

There is still something wrong with the assmebler. I did a ppc386 -al and

Line 1506 has the error. I'll give you the code here starting with line 1505...

# [1091] Result := inherited Font;
movl ,&eax
movl 420(%eax),%edi
..
...

As you can see, it expects something before the comma. Can someone look at this please....want me to send the .s file to someone?

Shane

>> Florian Klaempfl 10/27/99 03:57PM >>>

Please compile with -al and have a file (-al includes source lines into the assembler output), and tell us the source line (I don't have installed lazarus here).

_________________________________________________________________ To unsubscribe: mail with
"unsubscribe" as the Subject
archives at http://www.miraclec.com/list_archives/lazarus

Please compile with -al and have a file (-al includes source lines into the assembler output), and tell us the source line (I don't have installed lazarus here).

I get the following messages

  Compiling ./lcl/menus.pp
  menus.pp(73,47) Error: Identifier not found TMENUITEM
  menus.pp(73,47) Error: Type identifier expected
  menus.pp(73,59) Error: Illegal symbol for property access
  menus.pp(74,32) Error: Identifier not found TMENUITEM
  menus.pp(74,32) Error: Type identifier expected
  menus.pp(74,46) Error: Illegal symbol for property access

when compiling:

  TMenuItem = class(TWinControl) //TComponent
  private
    FItems: TList;
    FShortCut: TShortCut;
    FOnClick: TNotifyEvent;
    function GetCount: Integer;
    function GetItem(Index: Integer): TMenuItem;   <-- OK
    function GetParent: TMenuItem;   <-- OK
  protected
  public
    procedure Add(Item: TMenuItem);
    constructor Create(AOwner: TComponent); override;
    procedure Delete(Index: Integer);
    procedure Insert(Index: Integer; Item: TMenuItem);   <-- OK
    procedure Remove(Item: TMenuItem);   <-- OK
    procedure Show; override;
    property Count: Integer read GetCount;
    property Handle: HMenu read GetHandle;
    property Items[Index: Integer]: TMenuItem read GetItem; default; <--
NOT OK
    property Parent: TMenuItem read GetParent;  <-- NOT OK !!
  end;

It seems that TMenuItem is ok for vars and functions, but not for properties ???
adding the line

  TMenuItem = class;

before the definition wil solve the problem, but it shouldn't be needed.

Marc