openbios/fcode-utils/testsuite/TokoLoco/LocalValuesDevelSupport.fth

Branch - branch -master- tag -v1.0.3v1.0.2v1.0.1v1.0.0

• Show log

  Commit

• Hash : 57ccc1a8
  Author :
  Date : 2006-10-30T16:25:35
  

  update testsuite to 1.0.2 git-svn-id: svn://coreboot.org/openbios/fcode-utils@107 f158a5a8-5612-0410-a976-696ce0be7e32

Download

• testsuite/TokoLoco/LocalValuesDevelSupport.fth

• \  %Z%%M% %I% %W% %G% %U%
  \       (C) Copyright 2005 IBM Corporation.  All Rights Reserved.
  \       Licensed under the Common Public License (CPL) version 1.0
  \       for full details see:
  \            http://www.opensource.org/licenses/cpl1.0.php
  \
  \       Module Author:  David L. Paktor    dlpaktor@us.ibm.com
  
  \  Support file for development of FCode that uses Local Values
  \  FLoad this right after  LocalValuesSupport.fth
  \  Remove it from your final product.
  
  \  Exported Function:  max-local-storage-size  ( -- n )
  \      Returns the measured maximum size of storage for Local Values
  \      used by any given test run.  This number can be used to guide
  \      the declaration of  _local-storage-size_ 
  \
  \       (C) Copyright 2005 IBM Corporation.  All Rights Reserved.
  \       Module Author:  David L. Paktor    dlpaktor@us.ibm.com
  
  \  Count the current depth on a per-instance basis, 
  \  but collect the maximum depth over all instances.
  
  headers
  0 instance value local-storage-depth
  
  external
  0 value max-local-storage-size
  headers
  
  \  Overload the  {push-locals}  and  {pop-locals}  routines to do this.
  \  Do not suppress the overload warnings; they'll serve as a reminder.
  : {pop-locals} ( #locals -- )
      local-storage-depth over - to local-storage-depth
      {pop-locals}
  ;
  
  : {push-locals} ( #ilocals #ulocals -- )
     2dup + local-storage-depth +
     dup to local-storage-depth
     max-local-storage-size max
     to max-local-storage-size
     {push-locals}
  ;
  
  
  

Download