t_id
294
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949659169 | 1015615 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0040.pp } { shows the if b1 xor b2 problem where b1,b2 :boolean OK 0.9.9 (FK) } { xor operator bug } { needs fix in pass_1.pas line } { 706. as well as in the code } { generator - secondadd() } var b1,b2: boolean; Begin b1:=true; b2:=false; If (b1 xor b2) Then begin end else begin writeln('Problem with bool xor'); halt; end; b1:=true; b2:=true; If (b1 xor b2) Then begin writeln('Problem with bool xor'); halt; end; writeln('No problem found'); end.