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

   656 isSpeed:= true

   657 isSpeed:= true

   657 end;

   658 end;

   658 

   659 

   659 procedure chSpeedup_m(var s: shortstring);

   660 procedure chSpeedup_m(var s: shortstring);

   660 begin

   661 begin