--- gforth/Attic/cache.c	1994/10/04 17:50:00	1.1
+++ gforth/Attic/cache.c	1995/11/07 18:06:33	1.3
@@ -1,15 +1,33 @@
-void *cacheflush(void * address, int size, int linewidth)
-{
-	int i;
+/* cache flushing for the HP-PA architecture
+
+  Copyright (C) 1995 Free Software Foundation, Inc.
+
+  This file is part of Gforth.
+
+  Gforth 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.
 
-	address=(void *)((int)address & (-linewidth));
+  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., 675 Mass Ave, Cambridge, MA 02139, USA.
+*/
+
+void cacheflush(void * address, int size, int linewidth)
+{
+  int i;
 
-	for(i=4-linewidth; i<size; i+=linewidth)
-		asm("\
-		fdc (%r28)\n\
-		sync\n\
-		fic,m %r24(%r28)\n\
-		sync");
+  address=(void *)((int)address & (-linewidth));
 
-	return address;
+  for(i=1-linewidth; i<size; i+=linewidth)
+    asm volatile("fdc (%0)\n\t"
+		 "sync\n\t"
+		 "fic,m %1(%0)\n\t"
+		 "sync" : : "r" (address), "r" (linewidth) : "memory" );
 }