/* --- Copyright University of Sussex 1991. All rights reserved. ----------
 > File:            C.all/x/pop/auto/XptExaccString.p
 > Purpose:			Access procedure for XptString
 > Author:          John Gibson, Nov  1 1991
 > Documentation:	REF *XT_LIBS
 */
compile_mode:pop11 +strict;

section;

define global XptExaccString(addr);
	lvars addr;
	exacc :exptr.exacc_ntstring addr -> addr;
	;;; exacc_ntstring reterns termin for a NULL - we want false!
	if addr == termin then false else addr endif;
enddefine;

define updaterof XptExaccString(addr);
	lvars addr;
	-> exacc :exptr[].XptExaccPopObj#XptCoerceSaveString addr;
enddefine;

endsection;
