source: rtems/c/src/lib/libcpu/m68k/shared/cache/cache.c @ 0ee9cc1

/*
 *  Cache Management Support Routines for the MC68040
 *
 *  $Id$
 */

#include <rtems.h>
#include "cache_.h"

/*  
 *  Since the cacr is common to all mc680x0, provide macros
 *  for masking values in that register.
 */

/* 
 *  Used to clear bits in the cacr.
 */
#define _CPU_CACR_AND(mask)                                        \
  {                                                                \
  register unsigned long _value = mask;                            \
  register unsigned long _ctl = 0;                                 \
  asm volatile ( "movec %%cacr, %0;           /* read the cacr */  \
                  andl %2, %0;                /* and with _val */  \
                  movec %1, %%cacr"           /* write the cacr */ \
   : "=d" (_ctl) : "0" (_ctl), "d" (_value) : "%%cc" );            \
  }


/*  
 *  Used to set bits in the cacr.
 */
#define _CPU_CACR_OR(mask)                                         \
        {                                                                \
  register unsigned long _value = mask;                            \
  register unsigned long _ctl = 0;                                 \
  asm volatile ( "movec %%cacr, %0;           /* read the cacr */  \
                  orl %2, %0;                 /* or with _val */   \
                  movec %1, %%cacr"           /* write the cacr */ \
   : "=d" (_ctl) : "0" (_ctl), "d" (_value) : "%%cc" );            \
  }

   
/*
 * CACHE MANAGER: The following functions are CPU-specific.
 * They provide the basic implementation for the rtems_* cache
 * management routines. If a given function has no meaning for the CPU,
 * it does nothing by default.
 */
#if ( (defined(__mc68020__) && !defined(__mcpu32__)) || defined(__mc68030__) )

#if defined(__mc68030__)

/* Only the mc68030 has a data cache; it is writethrough only. */

void _CPU_cache_flush_1_data_line ( const void * d_addr ) {}
void _CPU_cache_flush_entire_data ( void ) {}

void _CPU_cache_invalidate_1_data_line (
  const void * d_addr )
{
  void * p_address = (void *) _CPU_virtual_to_physical( d_addr );
  asm volatile ( "movec %0, %%caar" :: "a" (p_address) );      /* write caar */
  _CPU_CACR_OR(0x00000400);
}

void _CPU_cache_invalidate_entire_data ( void )
{
  _CPU_CACR_OR( 0x00000800 );
}

void _CPU_cache_freeze_data ( void )
{
  _CPU_CACR_OR( 0x00000200 );
}

void _CPU_cache_unfreeze_data ( void )
{
  _CPU_CACR_AND( 0xFFFFFDFF );
}

void _CPU_cache_enable_data ( void )
{
  _CPU_CACR_OR( 0x00000100 );
}
void _CPU_cache_disable_data (  void )
{
  _CPU_CACR_AND( 0xFFFFFEFF );
}
#endif


/* Both the 68020 and 68030 have instruction caches */

void _CPU_cache_invalidate_1_instruction_line (
  const void * d_addr )
{
  void * p_address = (void *) _CPU_virtual_to_physical( d_addr );
  asm volatile ( "movec %0, %%caar" :: "a" (p_address) );      /* write caar */
  _CPU_CACR_OR( 0x00000004 );
}

void _CPU_cache_invalidate_entire_instruction ( void )
{
  _CPU_CACR_OR( 0x00000008 );
}

void _CPU_cache_freeze_instruction ( void )
{
  _CPU_CACR_OR( 0x00000002);
}

void _CPU_cache_unfreeze_instruction ( void )
{
  _CPU_CACR_AND( 0xFFFFFFFD );
}

void _CPU_cache_enable_instruction ( void )
{
  _CPU_CACR_OR( 0x00000001 );
}

void _CPU_cache_disable_instruction (   void )
{
  _CPU_CACR_AND( 0xFFFFFFFE );
}


#elif ( defined(__mc68040__) || defined (__mc68060__) )

/* Cannot be frozen */
void _CPU_cache_freeze_data ( void ) {}
void _CPU_cache_unfreeze_data ( void ) {}
void _CPU_cache_freeze_instruction ( void ) {}
void _CPU_cache_unfreeze_instruction ( void ) {}

void _CPU_cache_flush_1_data_line (
  const void * d_addr )
{
  void * p_address = (void *) _CPU_virtual_to_physical( d_addr );
  asm volatile ( "cpushl %%dc,(%0)" :: "a" (p_address) );
}

void _CPU_cache_invalidate_1_data_line (
  const void * d_addr )
{
  void * p_address = (void *) _CPU_virtual_to_physical( d_addr );
  asm volatile ( "cinvl %%dc,(%0)" :: "a" (p_address) );
}

void _CPU_cache_flush_entire_data ( void )
{
        asm volatile ( "cpusha %%dc" :: );
}

void _CPU_cache_invalidate_entire_data ( void )
{
        asm volatile ( "cinva %%dc" :: );
}

void _CPU_cache_enable_data ( void )
{
  _CPU_CACR_OR( 0x80000000 );
}

void _CPU_cache_disable_data ( void )
{
  _CPU_CACR_AND( 0x7FFFFFFF );
}

void _CPU_cache_invalidate_1_instruction_line (
  const void * i_addr )
{
  void * p_address = (void *)  _CPU_virtual_to_physical( i_addr );
  asm volatile ( "cinvl %%ic,(%0)" :: "a" (p_address) );
}

void _CPU_cache_invalidate_entire_instruction ( void )
{
                asm volatile ( "cinva %%ic" :: );
}

void _CPU_cache_enable_instruction ( void )
{
  _CPU_CACR_OR( 0x00008000 );
}

void _CPU_cache_disable_instruction ( void )
{
        _CPU_CACR_AND( 0xFFFF7FFF );
}
#endif
/* end of file */