t_id
1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
{ 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.