Artifact 4d55cb28888d51685579d1daac0f4f065774d6ac:

• File ffcall/callback/trampoline_r/cache-alpha.c — part of check-in [24d3bc4776] at 2011-01-30 17:11:43 on branch trunk — Adding ffcall (and built files) (user: matt, size: 495) [annotate] [blame] [check-ins using]
• File ffcall/trampoline/cache-alpha.c — part of check-in [24d3bc4776] at 2011-01-30 17:11:43 on branch trunk — Adding ffcall (and built files) (user: matt, size: 495) [annotate] [blame] [check-ins using]

/* Instruction cache flushing for alpha */

/*
 * Copyright 1997 Bruno Haible, <bruno@clisp.org>
 *
 * This is free software distributed under the GNU General Public Licence
 * described in the file COPYING. Contact the author if you don't have this
 * or can't live with it. There is ABSOLUTELY NO WARRANTY, explicit or implied,
 * on this software.
 */

void __TR_clear_cache (void)
{
  /* Taken from gforth-0.3.0. */
  asm volatile ("call_pal 0x86"); /* imb (instruction-memory barrier) */
}