Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/misc/volume2/pstrings/part01/initvalparamS.p

Text File | 1991-08-07 | 276 b | 17 lines

# include "strings.h"

procedure initvalparamS{(var s: String)};
{
* Initialises s, which should be a value parameter, to be
* safely useable within the current procedure.
*
* increase ref count for a by-value param
}
begin
    s^.REFS := s^.REFS + 1
end{ -- initvalparamS};