qemu/roms/SLOF/board-js2x/slof/dma-function.fs

   1 \ *****************************************************************************
   2 \ * Copyright (c) 2004, 2011 IBM Corporation
   3 \ * All rights reserved.
   4 \ * This program and the accompanying materials
   5 \ * are made available under the terms of the BSD License
   6 \ * which accompanies this distribution, and is available at
   7 \ * http://www.opensource.org/licenses/bsd-license.php
   8 \ *
   9 \ * Contributors:
  10 \ *     IBM Corporation - initial implementation
  11 \ ****************************************************************************/
  12
  13 : dma-alloc ( ... size -- virt )
  14    \ ." dma-alloc called: " .s cr
  15    alloc-mem
  16 ;
  17
  18 : dma-free ( virt size -- )
  19    \ ." dma-free called: " .s cr
  20    free-mem
  21 ;
  22
  23 : dma-map-in ( ... virt size cacheable? -- devaddr )
  24    \ ." dma-map-in called: " .s cr
  25    2drop
  26 ;
  27
  28 : dma-map-out ( virt devaddr size -- )
  29    \ ." dma-map-out called: " .s cr
  30    2drop drop
  31 ;