Test suite results for test file webtbf/tw1842.pp

Test run data :

Test file "webtbf/tw1842.pp" information:

t_id 1103
t_adddate 2003/10/14
t_result 0
Flag t_fail set
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015553.

Source:

{ %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.

Link to SVN view of webtbf/tw1842.pp source.