Return to swap_supp.c CVS log

Up to [Research Unix] / researchv10dc / cmd / cfront / libC / task

Annotation of researchv10dc/cmd/cfront/libC/task/swap_supp.c, revision 1.1

1.1     ! root        1: /*ident        "%W%" */
        !             2: /**************************************************************************
        !             3:                        Copyright (c) 1984 AT&T
        !             4:                          All Rights Reserved   
        !             5: 
        !             6:        THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T
        !             7:        
        !             8:        The copyright notice above does not evidence any        
        !             9:        actual or intended publication of such source code.
        !            10: 
        !            11: *****************************************************************************/
        !            12: #include <task.h>
        !            13: 
        !            14: /* Functions with C linkage, for sswap to call, to avoid dependency
        !            15:  * on internal name-encoding algorithm.  These functions call the ones
        !            16:  * sswap really wants.
        !            17:  */
        !            18: 
        !            19: extern "C" {
        !            20: int* swap_call_new(int);
        !            21: void swap_call_delete(int*);
        !            22: }
        !            23: 
        !            24: int*
        !            25: swap_call_new(int size)
        !            26: {
        !            27:        int*    p;
        !            28:        p = new int[size];
        !            29:        while (p == 0) object::task_error(E_STORE, (object*)0);
        !            30:        return p;
        !            31: }
        !            32: 
        !            33: void
        !            34: swap_call_delete(int* p)
        !            35: {
        !            36:        delete p;
        !            37: }

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