mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-04 22:40:25 +02:00
ia64: Implement cache flush.
* lib/jit_ia64.c: Implement inline assembly cache flush, required on multiprocessor systems.
This commit is contained in:
parent
a5ab4c7718
commit
f48e07b58b
2 changed files with 12 additions and 0 deletions
|
@ -1,3 +1,8 @@
|
||||||
|
2015-06-10 Paulo Andrade <pcpa@gnu.org>
|
||||||
|
|
||||||
|
* lib/jit_ia64.c: Implement inline assembly cache flush,
|
||||||
|
required on multiprocessor systems.
|
||||||
|
|
||||||
2015-06-06 Paulo Andrade <pcpa@gnu.org>
|
2015-06-06 Paulo Andrade <pcpa@gnu.org>
|
||||||
|
|
||||||
* lib/jit_mips-cpu.c, lib/jit_mips-fpu.c, lib/jit_mips.c:
|
* lib/jit_mips-cpu.c, lib/jit_mips-fpu.c, lib/jit_mips.c:
|
||||||
|
|
|
@ -1494,7 +1494,14 @@ jit_flush(void *fptr, void *tptr)
|
||||||
s = sysconf(_SC_PAGE_SIZE);
|
s = sysconf(_SC_PAGE_SIZE);
|
||||||
f = (jit_word_t)fptr & -s;
|
f = (jit_word_t)fptr & -s;
|
||||||
t = (((jit_word_t)tptr) + s - 1) & -s;
|
t = (((jit_word_t)tptr) + s - 1) & -s;
|
||||||
|
# if 0
|
||||||
__clear_cache((void *)f, (void *)t);
|
__clear_cache((void *)f, (void *)t);
|
||||||
|
# else
|
||||||
|
/* __clear_cache is a noop in (old?) gcc, but cache flush is
|
||||||
|
* required on a multi processor Linux system. */
|
||||||
|
for (s = f; s < t; s += 32)
|
||||||
|
asm volatile("fc %0" :: "r"(s) : "memory");
|
||||||
|
# endif
|
||||||
#endif
|
#endif
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue