Return to setbound.s CVS log

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

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

1.1       root        1: #include "../h/config.h"
                      2: Global(_boundary)      /* Icon/C boundary */
                      3: Global(_setbound)      /* Set the Icon/C boundary */
                      4: Global(_clrbound)      /* Clear the Icon/C boundary */
                      5: 
                      6: #ifdef VAX
                      7: /*
                      8:  * setbound sets the boundary to the value of the fp of the
                      9:  *  calling procedure.
                     10:  */
                     11: _setbound:
                     12:        Mask    0x0             # Don't need to save any registers
                     13:        tstl    _boundary       # If the boundary is already set
                     14:        jneq    f1              #  just leave it alone
                     15:        movl    12(fp),_boundary # Otherwise, set boundary to fp of
                     16:                                #  calling procedure.  Must use saved
                     17:                                #  fp because current fp points to
                     18:                                #  frame made upon entry to setbound.
                     19: f1:    ret                     # Return
                     20: /*
                     21:  * clrbound clears the Icon/C boundary if returning to Icon
                     22:  *  code from C code.
                     23:  */
                     24: _clrbound:
                     25:        Mask    0x0             # Don't need to save any registers
                     26:        cmpl    12(fp),_boundary # If the fp of the caller is equal
                     27:                                #  to the boundary, the return is
                     28:                                #  from C to Icon.
                     29:        jneq    f11             # If that is the case,
                     30:        clrl    _boundary       #  clear the boundary, otherwise,
                     31: f11:   ret                     #  just return.
                     32: #endif VAX
                     33: 
                     34: #ifdef PORT
                     35: DummyFcn(_setbound)
                     36: DummyFcn(_clrbound)
                     37: #endif PORT
                     38: 
                     39: #ifdef PDP11
                     40: DummyFcn(_setbound)
                     41: DummyFcn(_clrbound)
                     42: #endif PDP11

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