651 end;

   651 end;

   652 

   652 

   653 procedure chSpeedup_p(var s: shortstring);

   653 procedure chSpeedup_p(var s: shortstring);

   654 begin

   654 begin

   655 s:= s; // avoid compiler hint

   655 s:= s; // avoid compiler hint

   657 isSpeed:= true

   657 isSpeed:= true

   658 end;

   658 end;

   659 

   659 

   660 procedure chSpeedup_m(var s: shortstring);

   660 procedure chSpeedup_m(var s: shortstring);

   661 begin

   661 begin