Re: Inverse of BUILD

Please mention which processors this sample code is
good for. On my i386 (on PC/104 board), this code
will crash as it does not re-calculate the JMP
offsets.

 --- "Bulgrien, Dennis"
<Dennis.Bulgrien_at_TripointGlobal.com> a écrit :
> {
>
====================================================================
> Round Robin
>
> ->ROBIN Removes from the round-robin all tasks after
> the current to the task
> with status address aS.
>
> -ROBIN Removes the task with status address aS from
> the round-robin.
>
====================================================================
> }
>
> : ->ROBIN ( aS -- )
> >R
> STATUS DUP
> BEGIN
> >FOLLOWER ( aS aS1 ) 2DUP DUP R@ =
> IF >FOLLOWER SWAP FOLLOWER ITS ! ELSE 2DROP
> THEN
> 2DUP
> =
> UNTIL
> 2DROP
> R> DROP
> ;
>
> : -ROBIN ( aS -- )
> >R
> STATUS DUP ( aS aS )
> BEGIN
> DUP
> >FOLLOWER ( aS aS1 aS2 ) 2DUP DUP R@ =
> IF >FOLLOWER SWAP FOLLOWER ITS ( aS3 aF1 ) !
> ELSE 2DROP THEN
> NIP
> 2DUP
> =
> UNTIL
> 2DROP
> R> DROP
> ;
>
> -----Original Message-----
> From: swiftx-bounce_at_forth.com
> [mailto:swiftx-bounce_at_forth.com]On Behalf
> Of Frank Boon [Metatronics]
> Sent: Friday, December 17, 2004 5:51
> Subject: [swiftx] Inverse of BUILD
>
> Does anybody have the inverse word of BUILD ?? e.g.
> to unlink a task
> from the round-bobin? nothing more?
> ...
>
----------------------------------------------------------------------
> swiftx_at_forth.com The SwiftX programming
> discussion email list
> To unsubscribe, send subject "unsubscribe" to
> swiftx-request_at_forth.com
> For list command help, send subject "help" to
> swiftx-request_at_forth.com
> Message archives are located at
> http://www.forth.com/archive/swiftx
>
----------------------------------------------------------------------
> This list is a forum for SwiftX users. For product
> support and bug
> reports, please send email to support_at_forth.com
>
----------------------------------------------------------------------
>
>

        
                
Découvrez le nouveau Yahoo! Mail : 250 Mo d'espace de stockage pour vos mails !
Créez votre Yahoo! Mail sur http://fr.mail.yahoo.com/
----------------------------------------------------------------------
swiftx_at_forth.com The SwiftX programming discussion email list
To unsubscribe, send subject "unsubscribe" to swiftx-request_at_forth.com
For list command help, send subject "help" to swiftx-request_at_forth.com
Message archives are located at http://www.forth.com/archive/swiftx
----------------------------------------------------------------------
This list is a forum for SwiftX users. For product support and bug
reports, please send email to support_at_forth.com
----------------------------------------------------------------------
Received on Fri Dec 17 2004 - 08:26:26 PST