Return to alloc.c CVS log

Up to [MW Coherent from dump] / coherent / d / 286_KERNEL / USRSRC / coh

Annotation of coherent/d/286_KERNEL/USRSRC/coh/alloc.c, revision 1.1.1.1

1.1       root        1: /* $Header: /newbits/286_KERNEL/USRSRC/coh/RCS/alloc.c,v 1.1 92/01/09 13:25:51 bin Exp Locker: bin $ */
                      2: /* (lgl-
                      3:  *     The information contained herein is a trade secret of Mark Williams
                      4:  *     Company, and  is confidential information.  It is provided  under a
                      5:  *     license agreement,  and may be  copied or disclosed  only under the
                      6:  *     terms of  that agreement.  Any  reproduction or disclosure  of this
                      7:  *     material without the express written authorization of Mark Williams
                      8:  *     Company or persuant to the license agreement is unlawful.
                      9:  *
                     10:  *     COHERENT Version 2.3.37
                     11:  *     Copyright (c) 1982, 1983, 1984.
                     12:  *     An unpublished work by Mark Williams Company, Chicago.
                     13:  *     All rights reserved.
                     14:  -lgl) */
                     15: /*
                     16:  * Coherent.
                     17:  * Storage allocator.
                     18:  *
                     19:  * $Log:       alloc.c,v $
                     20:  * Revision 1.1  92/01/09  13:25:51  bin
                     21:  * Initial revision
                     22:  * 
                     23:  * Revision 1.1        88/03/24  16:13:25      src
                     24:  * Initial revision
                     25:  * 
                     26:  */
                     27: #include <sys/coherent.h>
                     28: #include <sys/alloc.h>
                     29: #include <errno.h>
                     30: #include <sys/proc.h>
                     31: #include <sys/uproc.h>
                     32: 
                     33: /*
                     34:  * Create an arena.
                     35:  */
                     36: ALL *
                     37: setarena(cp, n)
                     38: register char *cp;
                     39: {
                     40:        register ALL *ap1;
                     41:        register ALL *ap2;
                     42: 
                     43:        if ((char *)(ap1=align(cp)) < (char *)cp)
                     44:                ap1++;
                     45:        if ((ap2=align(&cp[n])-1) < ap1)
                     46:                panic("Arena %o too small", (int) cp);
                     47:        ap1->a_link = (char *)ap2;
                     48:        ap2->a_link = (char *)ap1;
                     49:        setused(ap2);
                     50:        return (ap1);
                     51: }
                     52: 
                     53: /*
                     54:  * Allocate `l' bytes of memory.
                     55:  */
                     56: char *
                     57: alloc(apq, l)
                     58: ALL *apq;
                     59: unsigned l;
                     60: {
                     61:        register ALL *ap;
                     62:        register ALL *ap1;
                     63:        register ALL *ap2;
                     64:        register unsigned i;
                     65:        register unsigned n;
                     66:        register unsigned s;
                     67: 
                     68:        n = 1 + (l + sizeof(ALL) - 1) / sizeof(ALL);
                     69:        for (i=0; i<2; i++) {
                     70:                for (ap1=apq; link(ap1)!=apq; ap1=link(ap1)) {
                     71:                        if (ap1 == NULL)
                     72:                                panic("Corrupt arena");
                     73:                        if (tstfree(ap1)) {
                     74:                               for (ap2=link(ap1); tstfree(ap2); ap2=link(ap2))
                     75:                                        if (ap2 == apq)
                     76:                                                break;
                     77:                                ap1->a_link = (char *)ap2;
                     78:                                if ((s=ap2-ap1) >= n) {
                     79:                                        if (s > n) {
                     80:                                                if (i == 0)
                     81:                                                        continue;
                     82:                                                ap = &ap1[n];
                     83:                                                ap->a_link = (char *)ap2;
                     84:                                                ap1->a_link = (char *)ap;
                     85:                                        }
                     86:                                        setused(ap1);
                     87:                                        kclear((char *)ap1->a_data, l);
                     88:                                        return (ap1->a_data);
                     89:                                }
                     90:                        }
                     91:                }
                     92:        }
                     93:        u.u_error = EKSPACE;
                     94:        return (NULL);
                     95: }
                     96: 
                     97: /*
                     98:  * Free memory.
                     99:  */
                    100: free(cp)
                    101: char *cp;
                    102: {
                    103:        register ALL *ap;
                    104:        extern char end;
                    105: 
                    106:        ap = ((ALL *)cp) - 1;
                    107:        if (ap<(ALL *)&end || tstfree(ap))
                    108:                panic("Bad free %o\n", (unsigned)cp);
                    109:        setfree(ap);
                    110: }

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