t_id
1103
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949673829 | 1015615 | True | False | Success, compilation failed |
Record count: 1
{ %fail } type s8=shortint; s16=smallint; s32=longint; addrtype=pchar; InPacket=pchar; PROCEDURE getlrc1 ( Buffer : AddrType ; StartPos : s32 ; MaxPos : s32 ; LastChar : s32 ; VAR LRCPos : s16 ; VAR LRCVal : s8); CDECL; [Public, alias: 'getlrc']; begin LRCPos:=200; LRCVal:=100; end; PROCEDURE CalcLRC ( APacket : InPacket ; PacketLen : s32; StartPos : s16 ; EndingChar: s16 ; VAR LRCPos : s16 ; VAR LRCVal : s8 ); PROCEDURE getlrc ( Buffer : AddrType ; StartPos : s32 ; MaxPos : s32 ; LastChar : s32 ; VAR LRCPos : s16 ; VAR LRCVal : s8); CDECL; EXTERNAL; BEGIN getlrc (APacket, StartPos - 1, PacketLen, EndingChar, {--ETX or SO--} LRCPos, LRCVal); LRCPos := LRCPos + 1; END; { CalcLRC } VAR LRCPos : s16 ; LRCVal : s8; begin calclrc('12345',5,2,ord('5'),LRCPos,LRCVal); writeln(LRCPos,' ',LRCVal); end.