Return to swap_supp.c CVS log

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

Annotation of researchv10no/cmd/cfront/libC/task/swap_supp.c, revision 1.1.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.