Description: <short summary of the patch>
 TODO: Put a short summary on the line above and replace this paragraph
 with a longer explanation of this change. Complete the meta-information
 with other relevant fields (see below for details). To make it easier, the
 information below has been extracted from the changelog. Adjust it or drop
 it.
 .
 gcl (2.6.10-13) unstable; urgency=high
 .
   * 2.6.11pre test 12
Author: Camm Maguire <camm@debian.org>

---
The information above should follow the Patch Tagging Guidelines, please
checkout http://dep.debian.net/deps/dep3/ to learn about the format. Here
are templates for supplementary fields that you might want to add:

Origin: <vendor|upstream|other>, <url of original patch>
Bug: <url in upstream bugtracker>
Bug-Debian: http://bugs.debian.org/<bugnumber>
Bug-Ubuntu: https://launchpad.net/bugs/<bugnumber>
Forwarded: <no|not-needed|url proving that it has been forwarded>
Reviewed-By: <name and email of someone who approved the patch>
Last-Update: <YYYY-MM-DD>

--- gcl-2.6.10.orig/cmpnew/gcl_cmpopt.lsp
+++ gcl-2.6.10/cmpnew/gcl_cmpopt.lsp
@@ -36,6 +36,12 @@
 ;;ASH
 (push '((t t) t #.(compiler::flags) "immnum_shft(#0,#1)") (get 'ash 'compiler::inline-always))
 
+;;GCD
+(push '((t t) t #.(compiler::flags) "immnum_gcd(#0,#1)") (get 'gcd 'compiler::inline-always))
+
+;;LCM
+(push '((t t) t #.(compiler::flags) "immnum_lcm(#0,#1)") (get 'lcm 'compiler::inline-always))
+
 ;;BOOLE
 (push '((t t t) t #.(compiler::flags) "immnum_bool(#0,#1,#2)") (get 'boole 'compiler::inline-always))
 (push '((fixnum t t) t #.(compiler::flags) "immnum_boole(#0,#1,#2)") (get 'boole 'compiler::inline-always))
--- gcl-2.6.10.orig/h/alpha-linux.h
+++ gcl-2.6.10/h/alpha-linux.h
@@ -15,6 +15,15 @@
 #define RELOC_H "elf64_alpha_reloc.h"
 #define SPECIAL_RELOC_H "elf64_alpha_reloc_special.h"
 #define PAL_imb		134
-#define imb() \
-__asm__ __volatile__ ("call_pal %0 #imb" : : "i" (PAL_imb) : "memory")
-#define CLEAR_CACHE imb()
+#define imb() __asm__ __volatile__ ("call_pal %0 #imb" : : "i" (PAL_imb) : "memory")
+#define CLEAR_CACHE do {void *v=memory->cfd.cfd_start,*ve=v+memory->cfd.cfd_size; \
+                        void *p=(void *)((unsigned long)v & ~(PAGESIZE-1));	\
+			void *pe=(void *)((unsigned long)ve & ~(PAGESIZE-1)) + PAGESIZE-1; \
+                        if (mprotect(p,pe-p,PROT_READ|PROT_WRITE|PROT_EXEC)) {		\
+			  fprintf(stderr,"%p %p\n",p,pe);		\
+			  perror("");					\
+			  FEerror("Cannot mprotect", 0);		\
+			}						\
+			imb();						\
+                        } while(0)
+
