Test suite results for test file tbs/tb0118.pp

Test run data :

Run ID:
Operating system: linux
Processor: mipsel
Version: 3.3.1
Fails/OK/Total: 42/9172/9214
Version: 3.3.1
Full version: 3.3.1-15588-g902c93f3c3
Comment: -ao-xgot -fPIC -XR/home/pierre/sys-root/mipsel-linux -Xd -Xr/home/pierre/sys-root/mipsel-linux
Machine: gcclocal
Category: 1
SVN revisions: 902c93f3c3:484dab553b:3f8bbd3b00:902c93f3c3
Submitter: pierre
Date: 2024/04/21 08:50:00 <> 2024/04/20
Previous run: 935603
Next run: 936930

Hide skipped tests

Hide successful tests

Test file "tbs/tb0118.pp" information:

t_id 366
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

tr_idruntr_oktr_skiptr_result
452037777936315FalseTrueSkipping test because compiler version too high

Record count: 1

No log of 936315.

Source:

{ Old file: tbs0138.pp }
{ with problem, %esi can be crushed and is not restored OK 0.99.6 (PM) }

{program p; uncomment for a crash}
type
  tpt=^tpo;
  tpo=object
    constructor init;
    procedure pi1;
    procedure pi2;
  end;
constructor tpo.init;
begin
end;
procedure tpo.pi1;
begin
end;
procedure tpo.pi2;
begin
end;
procedure crushesi;assembler;
{$ifdef CPUI386}
asm
        movl %eax,%esi
end ['EAX','ESI'];
{$endif CPUI386}
{$ifdef CPU68K}
asm
        move.l d0,a5
end ['d0','a5'];
{$endif CPU68K}
var
  p1 : tpt;
begin
  p1:=new(tpt,init);
  with p1^ do
   begin
     pi1;
     crushesi;  { After this the %esi should be reloaded from the tempvariable }
     pi1;
   end;
{ There is here already a tempvar for %esi, why not use it here too ? }
  p1^.pi2;
  p1^.pi2;
end.

Link to SVN view of tbs/tb0118.pp source.