Changeset c232af in git for Singular/lists.h


Ignore:
Timestamp:
Aug 14, 2000, 2:58:28 PM (24 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
d26c2e9dd38f1531c0e77c38e6177109182b5bca
Parents:
4697a8a1ccbf49d0048033ea29c651e3966ba729
Message:
* omalloc stuff


git-svn-id: file:///usr/local/Singular/svn/trunk@4524 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Singular/lists.h

    r4697a8a rc232af  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: lists.h,v 1.12 1999-11-15 17:20:19 obachman Exp $ */
     6/* $Id: lists.h,v 1.13 2000-08-14 12:56:35 obachman Exp $ */
    77/*
    88* ABSTRACT: handling of the list type
    99*/
    1010#include "structs.h"
    11 #include "mmemory.h"
     11#include <omalloc.h>
    1212#include "subexpr.h"
    1313#include "tok.h"
    14 #if HAVE_ASO == 1
    15 #include "lists.aso"
    16 #endif
    1714
    1815#ifdef MDEBUG
    … …  
    3633            if (m[i].rtyp!=DEF_CMD) m[i].CleanUp();
    3734          }
    38           Free((ADDRESS)m, (nr+1)*sizeof(sleftv));
     35          omFreeSize((ADDRESS)m, (nr+1)*sizeof(sleftv));
    3936          nr=-1;
    4037        }
    41         Free((ADDRESS)this, sizeof(slists));
     38        omFreeSize((ADDRESS)this, sizeof(slists));
    4239      }
    4340    }
    … …  
    6764#if ! defined(MDEBUG) || defined(LISTS_CC)
    6865INLINE_THIS void slists::Init(int l=0)
    69       { nr=l-1; m=(sleftv *)((l>0) ? Alloc0(l*sizeof(sleftv)): NULL);
     66      { nr=l-1; m=(sleftv *)((l>0) ? omAlloc0(l*sizeof(sleftv)): NULL);
    7067#ifdef HAVE_NAMESPACES_N
    7168        src_packhdl = namespaceroot->get(namespaceroot->name, 0, TRUE);
    … …  
    7471#endif
    7572
     73extern omBin slists_bin;
    7674#undef INLINE_THIS
    7775
Note: See TracChangeset for help on using the changeset viewer.