t_id
1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
928369680 | 1012237 | False | True | Skipping run test |
Record count: 1
{ 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.