equal
deleted
inserted
replaced
485 end; |
485 end; |
486 |
486 |
487 procedure chCapture(var s: shortstring); |
487 procedure chCapture(var s: shortstring); |
488 begin |
488 begin |
489 s:= s; // avoid compiler hint |
489 s:= s; // avoid compiler hint |
490 flagMakeCapture:= true |
490 flagMakeCapture:= true; |
|
491 flagDumpLand:= LocalMessage and gmPrecise <> 0; |
491 end; |
492 end; |
492 |
493 |
493 procedure chRecord(var s: shortstring); |
494 procedure chRecord(var s: shortstring); |
494 begin |
495 begin |
495 s:= s; // avoid compiler hint |
496 s:= s; // avoid compiler hint |