Return to gcollect.s CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / rt

Annotation of 43BSD/contrib/icon/rt/gcollect.s, revision 1.1.1.1

1.1       root        1: #include "../h/config.h"
                      2: /*
                      3:  * gcollect(n) - switch to expression stack for &main and call collect(n),
                      4:  *  switch back to current expression stack when done.
                      5:  */
                      6: Global(_collect)               /* Garbage collection */
                      7: Global(_boundary)              /* Icon/C boundary */
                      8: Global(_current)               /* Current co-expression */
                      9: Global(_k_main)                        /* Main co-expression */
                     10: 
                     11: Global(_gcollect)
                     12: #ifdef VAX
                     13: _gcollect:
                     14:        Mask    0x0                     # Don't need to save any registers
                     15: 
                     16:        movl    _current+4,r0           # Get pointer to heap block for
                     17:                                        #  current co-expression.
                     18:        movl    sp,16(r0)               # Save sp,
                     19:        movl    ap,20(r0)               #  ap,
                     20:        movl    _boundary,24(r0)        #  and current boundary in block.
                     21:        movl    _k_main+4,r0            # Get pointer to heap block for
                     22:                                        #  &main.
                     23:        movl    16(r0),sp               # Restore sp,
                     24:        movl    20(r0),ap               #  ap,
                     25:        movl    24(r0),_boundary        #  and boundary for &main
                     26:        pushl   4(ap)                   # Push n on stack
                     27:        calls   $1,_collect             # collect(n)
                     28:        movl    _current+4,r0           # Get pointer to heap block for
                     29:                                        #  current co-expression
                     30:        movl    16(r0),sp               # Restore sp,
                     31:        movl    20(r0),ap               #  ap,
                     32:        movl    24(r0),_boundary        #  and boundary
                     33:        ret                             # Return from garbage collection
                     34: #endif VAX
                     35: 
                     36: #ifdef PORT
                     37: DummyFcn(_gcollect)
                     38: #endif PORT
                     39: 
                     40: #ifdef PDP11
                     41: / gcollect(n) - switch to expression stack for &main and call collect(n),
                     42: /              switch to current expression stack when done.
                     43: 
                     44: / Register Usage:
                     45: /      r0-r1           general utility
                     46: _gcollect:
                     47:        mov     _current+2,r0           / r0 <- pointer to current stack header
                     48:        mov     sp,8.(r0)                / save current stack pointer
                     49:        mov     _boundary,12.(r0)        / save current boundary
                     50:        mov     sp,r1                   / r1 <- saved stack pointer
                     51:        mov     _k_main+2,r0            / r0 <- pointer to main stack header
                     52:        mov     8.(r0),sp                / get stack pointer for &main
                     53:        mov     12.(r0),_boundary        / get boundary for &main
                     54:        mov     2(r1),-(sp)             / move n to this stack
                     55:        jsr     pc,_collect             / call collect(n)
                     56:        tst     (sp)+                   / pop n off of this stack
                     57:        mov     _current+2,r0           / r0 <- pointer to current stack header
                     58:        mov     8.(r0),sp                / restore current stack pointer
                     59:        mov     12.(r0),_boundary        / restore current boundary
                     60:        rts     pc                      / return
                     61: #endif PDP11

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.