Return to alloc.c CVS log

Up to [MW Coherent from dump] / coherent / d / PS2_KERNEL / coh.286

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

1.1       root        1: /* $Header: /kernel/kersrc/coh.286/RCS/alloc.c,v 1.1 92/07/17 15:17:49 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/07/17  15:17:49  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: 
                     32: /*
                     33:  * Create an arena.
                     34:  */
                     35: ALL *
                     36: setarena(cp, n)
                     37: register char *cp;
                     38: {
                     39:        register ALL *ap1;
                     40:        register ALL *ap2;
                     41: 
                     42:        if ((char *)(ap1=align(cp)) < (char *)cp)
                     43:                ap1++;
                     44:        if ((ap2=align(&cp[n])-1) < ap1)
                     45:                panic("Arena %o too small", (int) cp);
                     46:        ap1->a_link = (char *)ap2;
                     47:        ap2->a_link = (char *)ap1;
                     48:        setused(ap2);
                     49:        return (ap1);
                     50: }
                     51: 
                     52: /*
                     53:  * Allocate `l' bytes of memory.
                     54:  */
                     55: char *
                     56: alloc(apq, l)
                     57: ALL *apq;
                     58: unsigned l;
                     59: {
                     60:        register ALL *ap;
                     61:        register ALL *ap1;
                     62:        register ALL *ap2;
                     63:        register unsigned i;
                     64:        register unsigned n;
                     65:        register unsigned s;
                     66: 
                     67:        n = 1 + (l + sizeof(ALL) - 1) / sizeof(ALL);
                     68:        for (i=0; i<2; i++) {
                     69:                for (ap1=apq; link(ap1)!=apq; ap1=link(ap1)) {
                     70:                        if (ap1 == NULL)
                     71:                                panic("Corrupt arena");
                     72:                        if (tstfree(ap1)) {
                     73:                               for (ap2=link(ap1); tstfree(ap2); ap2=link(ap2))
                     74:                                        if (ap2 == apq)
                     75:                                                break;
                     76:                                ap1->a_link = (char *)ap2;
                     77:                                if ((s=ap2-ap1) >= n) {
                     78:                                        if (s > n) {
                     79:                                                if (i == 0)
                     80:                                                        continue;
                     81:                                                ap = &ap1[n];
                     82:                                                ap->a_link = (char *)ap2;
                     83:                                                ap1->a_link = (char *)ap;
                     84:                                        }
                     85:                                        setused(ap1);
                     86:                                        kclear((char *)ap1->a_data, l);
                     87:                                        return (ap1->a_data);
                     88:                                }
                     89:                        }
                     90:                }
                     91:        }
                     92:        u.u_error = EKSPACE;
                     93:        return (NULL);
                     94: }
                     95: 
                     96: /*
                     97:  * Free memory.
                     98:  */
                     99: free(cp)
                    100: char *cp;
                    101: {
                    102:        register ALL *ap;
                    103:        extern char end;
                    104: 
                    105:        ap = ((ALL *)cp) - 1;
                    106:        if (ap<(ALL *)&end || tstfree(ap))
                    107:                panic("Bad free %o\n", (unsigned)cp);
                    108:        setfree(ap);
                    109: }

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