extensions/ST_mmgc_gcheap.st

   1 // -*- Mode: C++; c-basic-offset: 4; indent-tabs-mode: nil; tab-width: 4 -*- */
   2 //
   3 // ***** BEGIN LICENSE BLOCK *****
   4 // Version: MPL 1.1/GPL 2.0/LGPL 2.1
   5 //
   6 // The contents of this file are subject to the Mozilla Public License Version
   7 // 1.1 (the "License"); you may not use this file except in compliance with
   8 // the License. You may obtain a copy of the License at
   9 // http://www.mozilla.org/MPL/
  10 //
  11 // Software distributed under the License is distributed on an "AS IS" basis,
  12 // WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
  13 // for the specific language governing rights and limitations under the
  14 // License.
  15 //
  16 // The Original Code is [Open Source Virtual Machine.].
  17 //
  18 // The Initial Developer of the Original Code is
  19 // Adobe System Incorporated.
  20 // Portions created by the Initial Developer are Copyright (C) 2004-2006
  21 // the Initial Developer. All Rights Reserved.
  22 //
  23 // Contributor(s):
  24 //   Adobe AS3 Team
  25 //
  26 // Alternatively, the contents of this file may be used under the terms of
  27 // either the GNU General Public License Version 2 or later (the "GPL"), or
  28 // the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
  29 // in which case the provisions of the GPL or the LGPL are applicable instead
  30 // of those above. If you wish to allow use of your version of this file only
  31 // under the terms of either the GPL or the LGPL, and not to allow others to
  32 // use your version of this file under the terms of the MPL, indicate your
  33 // decision by deleting the provisions above and replace them with the notice
  34 // and other provisions required by the GPL or the LGPL. If you do not delete
  35 // the provisions above, a recipient may use your version of this file under
  36 // the terms of any one of the MPL, the GPL or the LGPL.
  37 //
  38 // ***** END LICENSE BLOCK ***** */
  39
  40 %%component mmgc
  41 %%category gcheap
  42
  43 %%methods
  44 using namespace MMgc;
  45
  46 %%test largeAlloc
  47        GCHeap *heap = GCHeap::GetGCHeap();
  48        for(int i=1;i<4;i++) {
  49           void *item = heap->Alloc(GCHeap::kOSAllocThreshold*i);
  50           %%verify heap->Size(item) == GCHeap::kOSAllocThreshold*i
  51           heap->Free(item);
  52        }
  53        %%verify true
  54
  55 %%test largeAllocAlignment
  56        GCHeap *heap = GCHeap::GetGCHeap();
  57        for(int i=1;i<10;i++) {
  58           void *item = heap->Alloc(GCHeap::kOSAllocThreshold*i, GCHeap::flags_Alloc, 1<<i);
  59           %%verify heap->Size(item) == GCHeap::kOSAllocThreshold*i
  60           %%verify uintptr_t(((GCHeap::kBlockSize<<(i-1))-1) & uintptr_t(item)) == 0
  61               heap->Free(item);
  62        }
  63