|
|
385abae |
Description: <short summary of the patch>
|
|
|
385abae |
TODO: Put a short summary on the line above and replace this paragraph
|
|
|
385abae |
with a longer explanation of this change. Complete the meta-information
|
|
|
385abae |
with other relevant fields (see below for details). To make it easier, the
|
|
|
385abae |
information below has been extracted from the changelog. Adjust it or drop
|
|
|
385abae |
it.
|
|
|
385abae |
.
|
|
|
385abae |
gcl (2.6.12-68) unstable; urgency=medium
|
|
|
385abae |
.
|
|
|
385abae |
* Version_2_6_13pre57
|
|
|
385abae |
Author: Camm Maguire <camm@debian.org>
|
|
|
385abae |
|
|
|
385abae |
---
|
|
|
385abae |
The information above should follow the Patch Tagging Guidelines, please
|
|
|
385abae |
checkout http://dep.debian.net/deps/dep3/ to learn about the format. Here
|
|
|
385abae |
are templates for supplementary fields that you might want to add:
|
|
|
385abae |
|
|
|
385abae |
Origin: <vendor|upstream|other>, <url of original patch>
|
|
|
385abae |
Bug: <url in upstream bugtracker>
|
|
|
385abae |
Bug-Debian: https://bugs.debian.org/<bugnumber>
|
|
|
385abae |
Bug-Ubuntu: https://launchpad.net/bugs/<bugnumber>
|
|
|
385abae |
Forwarded: <no|not-needed|url proving that it has been forwarded>
|
|
|
385abae |
Reviewed-By: <name and email of someone who approved the patch>
|
|
|
385abae |
Last-Update: 2018-03-09
|
|
|
385abae |
|
|
|
385abae |
--- gcl-2.6.12.orig/h/elf64_alpha_reloc_special.h
|
|
|
385abae |
+++ gcl-2.6.12/h/elf64_alpha_reloc_special.h
|
|
|
385abae |
@@ -65,7 +65,7 @@ label_got_symbols(void *v1,Shdr *sec1,Sh
|
|
|
385abae |
Sym *sym;
|
|
|
385abae |
Shdr *sec;
|
|
|
385abae |
void *v,*ve;
|
|
|
385abae |
- ul q=0,a;
|
|
|
385abae |
+ ul a,b;
|
|
|
385abae |
|
|
|
385abae |
for (sym=sym1;sym
|
|
|
385abae |
sym->st_other=sym->st_size=0;
|
|
|
385abae |
--- gcl-2.6.12.orig/o/cmpaux.c
|
|
|
385abae |
+++ gcl-2.6.12/o/cmpaux.c
|
|
|
385abae |
@@ -348,6 +348,8 @@ call_init(int init_address,object memory
|
|
|
385abae |
|
|
|
385abae |
*/
|
|
|
385abae |
|
|
|
385abae |
+object *min_cfd_self=NULL;
|
|
|
385abae |
+
|
|
|
385abae |
void
|
|
|
385abae |
do_init(object *statVV) {
|
|
|
385abae |
|
|
|
385abae |
@@ -386,6 +388,8 @@ do_init(object *statVV) {
|
|
|
385abae |
}
|
|
|
385abae |
|
|
|
385abae |
data->cfd.cfd_self = statVV;
|
|
|
385abae |
+ if (!min_cfd_self || data->cfd.cfd_self
|
|
|
385abae |
+ min_cfd_self=data->cfd.cfd_self;
|
|
|
385abae |
data->cfd.cfd_fillp= n;
|
|
|
385abae |
statVV[n-1] = data;
|
|
|
385abae |
|
|
|
385abae |
--- gcl-2.6.12.orig/o/fasdump.c
|
|
|
385abae |
+++ gcl-2.6.12/o/fasdump.c
|
|
|
385abae |
@@ -640,7 +640,7 @@ DEFUN_NEW("CLOSE-FASD",object,fSclose_fa
|
|
|
385abae |
if (type_of(fd->table)==t_vector)
|
|
|
385abae |
/* input uses a vector */
|
|
|
385abae |
{if (fd->table->v.v_self)
|
|
|
385abae |
- fd->table->v.v_dim=0;/*self can be on the stack, and others write there*/
|
|
|
385abae |
+ gset(fd->table->v.v_self,0,fix(fd->index),aet_object);
|
|
|
385abae |
}
|
|
|
385abae |
else
|
|
|
385abae |
if(fd->direction==sKoutput)
|
|
|
385abae |
--- gcl-2.6.12.orig/o/gbc.c
|
|
|
385abae |
+++ gcl-2.6.12/o/gbc.c
|
|
|
385abae |
@@ -446,6 +446,7 @@ mark_object_address(object *o,int f) {
|
|
|
385abae |
|
|
|
385abae |
static ufixnum lp;
|
|
|
385abae |
static ufixnum lr;
|
|
|
385abae |
+ extern object *min_cfd_self;
|
|
|
385abae |
|
|
|
385abae |
ufixnum p=page(o);
|
|
|
385abae |
|
|
|
385abae |
@@ -455,7 +456,7 @@ mark_object_address(object *o,int f) {
|
|
|
385abae |
#ifdef SGC
|
|
|
385abae |
sgc_enabled ? WRITABLE_PAGE_P(lp) :
|
|
|
385abae |
#endif
|
|
|
385abae |
- 1;
|
|
|
385abae |
+ (o>=min_cfd_self && o<((object *)core_end));
|
|
|
385abae |
}
|
|
|
385abae |
|
|
|
385abae |
if (lr)
|