|
@@ -881,8 +881,8 @@ Begin
|
|
Fail;
|
|
Fail;
|
|
Write('wordbool conversion to boolean...');
|
|
Write('wordbool conversion to boolean...');
|
|
result := TRUE;
|
|
result := TRUE;
|
|
- move(values,lb1,sizeof(lb1));
|
|
|
|
- if lb1 <> TRUE then
|
|
|
|
|
|
+ move(values,wb1,sizeof(wb1));
|
|
|
|
+ if wb1 <> TRUE then
|
|
result := false;
|
|
result := false;
|
|
if result then
|
|
if result then
|
|
WriteLn('Success.')
|
|
WriteLn('Success.')
|