[comp.sys.mac.hypercard] problem with glues strtoext and exttostr

holla@eedsp.eedsp.gatech.edu (Craig Hollabaugh) (03/03/90)

Here is a problem that I am having with glues strtoext and exttostr. I have
written the simplest code: param > str > ext > str > returnvalue. The 
returnvalue isn't even close to param one.

Can anyone help?


unit traceunit;
interface
	uses
		XCmdIntf, XCmdUtils;

	procedure main (paramptr: XCmdPtr);

implementation

	procedure trace (paramptr: XCmdPtr);
		var
			myext: Extended;
			str: Str255;
			mystr: str31;

	begin
		ZeroToPas(paramptr, paramptr^.params[1]^, str);

		myext := strtoext(paramptr, str);

		str := exttostr(paramptr, myext);

		paramPtr^.returnValue := PasToZero(paramptr, str);
	end;


	procedure main;
	begin
		trace(paramptr);
	end;

end.