/*
     emu10kx.audio - AHI driver for SoundBlaster Live! series
     Copyright (C) 2002-2005 Martin Blom <martin@blom.org>
     
     This program is free software; you can redistribute it and/or
     modify it under the terms of the GNU General Public License
     as published by the Free Software Foundation; either version 2
     of the License, or (at your option) any later version.
     
     This program is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU General Public License for more details.
     
     You should have received a copy of the GNU General Public License
     along with this program; if not, write to the Free Software
     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/

#include <config.h>

#include <exec/memory.h>
#include <utility/hooks.h>

#include <proto/exec.h>

#include "linuxsupport.h"
#include <string.h>

#include "emu10kx-misc.h"
#include "pci_wrapper.h"

static void*
AllocPages( size_t size, ULONG req )
{
  void* address;

#if defined(__AMIGAOS4__) || defined(__AROS__)
  unsigned long a;
  // FIXME: This should be non-cachable, DMA-able memory
  address = AllocVec( size + PAGE_SIZE + sizeof(APTR), MEMF_PUBLIC );

  if( address != NULL )
  {
    a = (unsigned long) address;
    a = (a + PAGE_SIZE - 1 + sizeof(APTR)) & ~(PAGE_SIZE - 1); //(((unsigned long) (a + 4096)) / 4096) * 4096; // get a 4K-aligned memory pointer
    ((APTR *)a)[-1] = address;
    address = (void *) a;
  }
#else
  // FIXME: This should be non-cachable, DMA-able memory
  address = AllocMem( size + PAGE_SIZE - 1, req & ~MEMF_CLEAR );

  if( address != NULL )
  {
    Forbid();
    FreeMem( address, size + PAGE_SIZE - 1 );
    address = AllocAbs( size,
			(void*) ((ULONG) ( address + PAGE_SIZE - 1 )
				 & ~(PAGE_SIZE-1) ) );
    Permit();
  }
#endif

  if( address != NULL && ( req & MEMF_CLEAR ) )
  {
    memset( address, 0, size );
  }

  return address;
}

unsigned long
__get_free_page( unsigned int gfp_mask )
{
  return (unsigned long) AllocPages( PAGE_SIZE, MEMF_PUBLIC );
}

void
free_page( unsigned long addr )
{
//  printf( "Freeing page at %08x\n", addr );
#if defined(__AMIGAOS4__) || defined(__AROS__)
  if (addr) FreeVec(((APTR *)addr)[-1]);
#else
  FreeMem( (void*) addr, PAGE_SIZE );
#endif
}

void*
pci_alloc_consistent( void* pci_dev, size_t size, dma_addr_t* dma_handle )
{
  void* res;

//  res = pci_alloc_dmamem( pci_dev, size );
  res = (void*) AllocPages( size, MEMF_PUBLIC | MEMF_CLEAR );

  *dma_handle = (dma_addr_t) ahi_pci_logic_to_physic_addr( res, pci_dev );
  
  return res;
}

void
pci_free_consistent( void* pci_dev, size_t size, void* addr, dma_addr_t dma_handle )
{
//  printf( "Freeing pages (%d bytes) at %08x\n", size, addr );

#if defined(__AMIGAOS4__) || defined(__AROS__)
  if (addr) FreeVec(((APTR *)addr)[-1]);  
#else
  FreeMem( addr, size );
//  pci_free_dmamem( pci_dev, addr, size );
#endif
}