Test suite results for test file webtbs/tw0555.pp

Test run data :

Run ID:
Operating system: solaris
Processor: sparc
Version: 3.2.3
Fails/OK/Total: 39/7879/7918
Version: 3.2.3
Full version: 3.2.3
Comment: -Agas -Fd
Machine: gcc-solaris10
Category: 1
SVN revisions: bff5cbd:c17a0e2:4f3b619:d1c29e6
Submitter: pierre
Date: 2024/05/08 01:58:00
Previous run: 947385
Next run: 948388

Hide skipped tests

Hide successful tests

Test file "webtbs/tw0555.pp" information:

t_id 1060
t_cpu i386
t_adddate 2003/10/14
t_result 0
t_knownrunerror 0

Detailed test run results:

tr_idruntr_oktr_skiptr_result
522792971947750FalseTrueSkipping test because for other cpu

Record count: 1

No log of 947750.

Source:

{ %CPU=i386 }
{ FPC behaves interestingly once encountered virtual method
 declared as
  procedure TWhateverObject.Method1; assembler; asm ... end;
 if you ever try to overload such method _in another unit_,
 than compile _second unit_, and than try to compile it again (???)-
 you will end up with the message "Function header does not match
 forward declaration of TNewObject.Method1" although in reality
 it does match perfectly.
 sometimes i encounter the same message even on non-assembler methods,
 but i have not been able to reproduce them cleanly nor find the
 reason for such behavior.}

 unit tw0555;


 interface
 uses
   uw0555;

 type
   TBugObjChild = Object(TBugObj)
     procedure Method1;
     procedure Method2;virtual;
     procedure Method3;
     procedure Method4;virtual;
    end;

 implementation

  procedure TBugObjChild.Method1;
  begin
  end;

  procedure TBugObjChild.Method2;
  begin
  end;

{$ASMMODE ATT}
  procedure TBugObjChild.Method3;assembler;
  asm
     movl $1,%eax
  end;

  procedure TBugObjChild.Method4;assembler;
  asm
     movl $1,%eax
  end;


end.

Link to SVN view of webtbs/tw0555.pp source.