Blob Blame Raw
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.12-7) unstable; urgency=medium
 .
   * Version_2_6_13pre6
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: https://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.12.orig/h/att_ext.h
+++ gcl-2.6.12/h/att_ext.h
@@ -29,7 +29,7 @@ void *malloc(size_t);
 void *realloc(void *,size_t);
 /* void * memalign(size_t,size_t); */
 void *alloc_contblock(size_t);
-void *alloc_relblock(size_t);
+inline void *alloc_relblock(size_t);
 /* object fSallocate_contiguous_pages(); */
 /* object fSallocate_relocatable_pages(); */
 
--- gcl-2.6.12.orig/h/protoize.h
+++ gcl-2.6.12/h/protoize.h
@@ -7,7 +7,7 @@
 /* alloc.c:364:OF */ extern object on_stack_cons (object x, object y); /* (x, y) object x; object y; */
 /* alloc.c:376:OF */ extern object fSallocated (object typ); /* (typ) object typ; */
 /* alloc.c:401:OF */ extern object fSreset_number_used (object typ); /* (typ) object typ; */
-/* alloc.c:480:OF */ extern void insert_contblock (void *p, ufixnum s); /* (p, s) char *p; int s; */
+/* alloc.c:480:OF */ extern inline void insert_contblock (void *p, ufixnum s); /* (p, s) char *p; int s; */
 /* alloc.c:480:OF */ extern void insert_maybe_sgc_contblock (char *p, int s); /* (p, s) char *p; int s; */
 /* alloc.c:611:OF */ extern void set_maxpage (void); /* () */
 /* alloc.c:635:OF */ extern void gcl_init_alloc (void *); /* () */
--- gcl-2.6.12.orig/o/gbc.c
+++ gcl-2.6.12/o/gbc.c
@@ -422,7 +422,11 @@ DEFVAR("*LEAF-COLLECTION-THRESHOLD*",sSA
 
 static inline bool
 marking(void *p) {
-  return (sgc_enabled ? ON_WRITABLE_PAGE_CACHED(p) : !NULL_OR_ON_C_STACK(p));
+  return (
+#ifdef SGC
+	  sgc_enabled ? ON_WRITABLE_PAGE_CACHED(p) :
+#endif
+	  !NULL_OR_ON_C_STACK(p));
 }
 
 static inline bool
@@ -483,7 +487,11 @@ mark_object_address(object *o,int f) {
   
   if (lp!=p || !f) {
     lp=p;
-    lr=sgc_enabled ? WRITABLE_PAGE_P(lp) : 1;
+    lr=
+#ifdef SGC
+      sgc_enabled ? WRITABLE_PAGE_P(lp) :
+#endif
+      1;
   }
 
   if (lr)
--- gcl-2.6.12.orig/o/main.c
+++ gcl-2.6.12/o/main.c
@@ -147,8 +147,8 @@ mbrk(void *v) {
 
 #include <Windows.h>
 
-ufixnum
-get_phys_pages_no_malloc(void) {
+static ufixnum
+get_phys_pages_no_malloc(char n) {
   MEMORYSTATUS m;
 
   m.dwLength=sizeof(m);
@@ -161,8 +161,8 @@ get_phys_pages_no_malloc(void) {
 
 #include <sys/sysctl.h>
 
-ufixnum
-get_phys_pages_no_malloc(void) {
+static ufixnum
+get_phys_pages_no_malloc(char n) {
   uint64_t s;
   size_t z=sizeof(s);
   int m[2]={CTL_HW,HW_MEMSIZE};
@@ -176,8 +176,8 @@ get_phys_pages_no_malloc(void) {
 
 #elif defined(__sun__)
 
-ufixnum
-get_phys_pages_no_malloc(void) {
+static ufixnum
+get_phys_pages_no_malloc(char n) {
 
   return sysconf(_SC_PHYS_PAGES);
 
@@ -202,7 +202,7 @@ get_proc_meminfo_value_in_pages(const ch
   return n>>(PAGEWIDTH-10);
 }
   
-ufixnum
+static ufixnum
 get_phys_pages_no_malloc(char freep) {
   return freep ? 
     get_proc_meminfo_value_in_pages("MemFree:")+
--- gcl-2.6.12.orig/o/sfaslcoff.c
+++ gcl-2.6.12/o/sfaslcoff.c
@@ -205,9 +205,7 @@ load_memory(struct scnhdr *sec1,struct s
   memory->cfd.cfd_size=sz;
   memory->cfd.cfd_self=0;
   memory->cfd.cfd_start=0;
-  prefer_low_mem_contblock=TRUE;
-  memory->cfd.cfd_start=alloc_contblock(sz);
-  prefer_low_mem_contblock=FALSE;
+  memory->cfd.cfd_start=alloc_code_space(sz);
 
   for (sec=sec1;sec<sece;sec++) {
     sec->s_paddr+=(ul)memory->cfd.cfd_start;
--- gcl-2.6.12.orig/o/sfaslmacho.c
+++ gcl-2.6.12/o/sfaslmacho.c
@@ -207,9 +207,7 @@ load_memory(struct section *sec1,struct
   memory->cfd.cfd_size=sz; 
   memory->cfd.cfd_self=0; 
   memory->cfd.cfd_start=0; 
-  prefer_low_mem_contblock=TRUE;
-  memory->cfd.cfd_start=alloc_contblock(sz);
-  prefer_low_mem_contblock=FALSE;
+  memory->cfd.cfd_start=alloc_code_space(sz);
 
   a=(ul)memory->cfd.cfd_start;
   a=(a+ma)&~ma;
--- gcl-2.6.12.orig/unixport/sys_init.lsp.in
+++ gcl-2.6.12/unixport/sys_init.lsp.in
@@ -28,7 +28,7 @@
        (pcl (append x (list "pcl")))
        (clcs (append x (list "clcs")))
        (gtk (append x (list "gcl-tk"))))
-  (dolist (d (list lsp cmpnew #-pre-gcl xgcl-2 #+(or pcl ansi-cl) pcl #+ansi-cl clcs))
+  (dolist (d (list lsp cmpnew #+(and xgcl (not pre-gcl)) xgcl-2 #+(or pcl ansi-cl) pcl #+ansi-cl clcs))
     (load (make-pathname :name "sys-proclaim" :type "lisp" :directory d)))
   (load (make-pathname :name "tk-package" :type "lsp" :directory gtk))
   (load (make-pathname :name "gcl_lfun_list" :type "lsp" :directory cmpnew))
@@ -77,6 +77,5 @@
 
 #-ansi-cl(use-package :cltl1-compat :lisp)
 #-ansi-cl(do-symbols (s :cltl1-compat) (export s :lisp)))
-(export '*load-pathname* :si);For maxima, at least as of 5.34.1
 
 #+ansi-cl (use-package :pcl :user)