Re: FSL auxiliary files: proposed reorganization of words

On Mar 13, 10:50=A0pm, George Hubert <georgeahub...@[EMAIL PROTECTED]
> wrote:
> The win32Forth fsl_util file has a few errors in }MALLOC }}MAllOC}FREE
AND=
 }}FREE which could all be eliminated by adding the
>
> =A0following to the file, deleting the allocation words and using
> dynmem.seq
>
> \ Code to allow relative addressing W32Fs to function correctly
> \ with dynmem.seq dynamic arrays
>
> 0 0 rel>abs 0=3D [IF] warning @[EMAIL PROTECTED]
 warning off checkstack
> .( NOTE: ALLOCATE is redefined so that when it fails a-addr)
> .( is 0, which is not standard, but required by the FSL)
> : ALLOCATE ( u -- a-addr ior )
> =A0 =A0 =A0 =A0 =A0 =A0ALLOCATE DUP IF NIP 0 SWAP THEN ;
> warning ! [THEN}
>
> George Hubert

Oops the first line should be

0 0 rel>abs =3D 0=3D [IF] warning @[EMAIL PROTECTED]
 warning off checkstack

(it's getting late here; that's my excuse).

George Hubert