Test suite results for test file test/talign.pp

Test run data :

Test file "test/talign.pp" information:

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

Detailed test run results:

Record count: 1

No log of 934969.

Source:

{ This is just a small file used to verify the alignment of different
  structures. Only the assembler output should be checked.
}

{$mode objfpc}

type
  tmyclass = class 
    s: ansistring;
    f: real;
  end;
{$M+}  
  tmyotherclass = class(tmyclass)
  public
    procedure tito(var Msg); message 'hello';
    procedure titi(var Msg); message 12;
  published 
    procedure published_method;
  end;
  
  procedure tmyotherclass.tito(var Msg);
   begin
   end;
   
  procedure tmyotherclass.titi(var Msg);
   begin
   end;

  procedure tmyotherclass.published_method;
   begin
   end;
   
  
var
 c: tmyclass;
Begin
end.

Link to SVN view of test/talign.pp source.