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.