From 16a2c2686a72e6e7cb4dfcabeae1ae839e05b84b Mon Sep 17 00:00:00 2001
From: Jerry James <loganjerry@gmail.com>
Date: May 14 2013 03:53:11 +0000
Subject: Fix offsets in the patches for the new source tarball.


---

diff --git a/gcl-2.6.8-largefile.patch b/gcl-2.6.8-largefile.patch
index 2d29931..70b1f42 100644
--- a/gcl-2.6.8-largefile.patch
+++ b/gcl-2.6.8-largefile.patch
@@ -304,7 +304,7 @@
  				FEerror("Cannot rewind temporary file\n",0); 
  			      goto AGAIN;
  			    }
-@@ -1321,7 +1321,7 @@ BEGIN:
+@@ -1314,7 +1314,7 @@ BEGIN:
  	}
  }
  
@@ -313,7 +313,7 @@
  file_position(strm)
  object strm;
  {
-@@ -1333,7 +1333,7 @@ BEGIN:
+@@ -1326,7 +1326,7 @@ BEGIN:
  		/*  return(strm->sm.sm_int0);  */
  		if (strm->sm.sm_fp == NULL)
  			closed_stream(strm);
@@ -322,7 +322,7 @@
  	case smm_socket:
  	   return -1;
  	  
-@@ -1364,7 +1364,7 @@ BEGIN:
+@@ -1357,7 +1357,7 @@ BEGIN:
  int
  file_position_set(strm, disp)
  object strm;
@@ -331,7 +331,7 @@
  {
  BEGIN:
  	switch (strm->sm.sm_mode) {
-@@ -1374,7 +1374,7 @@ BEGIN:
+@@ -1367,7 +1367,7 @@ BEGIN:
  	case smm_output:
  	case smm_io:
  
@@ -340,7 +340,7 @@
  			return(-1);
  		/* strm->sm.sm_int0 = disp; */
  		return(0);
-@@ -1410,7 +1410,7 @@ BEGIN:
+@@ -1403,7 +1403,7 @@ BEGIN:
  	}
  }
  
@@ -349,7 +349,7 @@
  file_length(strm)
  object strm;
  {
-@@ -1773,14 +1773,14 @@ LFD(Lstream_element_type)()
+@@ -1766,14 +1766,14 @@ LFD(Lstream_element_type)()
  @)
  
  @(defun file_position (file_stream &o position)
@@ -366,7 +366,7 @@
  	} else {
  		if (position == sKstart)
  			i = 0;
-@@ -1807,7 +1807,7 @@ LFD(Lfile_length)()
+@@ -1800,7 +1800,7 @@ LFD(Lfile_length)()
  	if (i < 0)
  		vs_base[0] = Cnil;
  	else
@@ -375,7 +375,7 @@
  }
  
  object sSAload_pathnameA;
-@@ -2706,22 +2706,22 @@ read_fasl_data(const char *str) {
+@@ -2699,22 +2699,22 @@ read_fasl_data(const char *str) {
  #ifdef BSD
  	fp = faslfile->sm.sm_fp;
  	fread(&header, sizeof(header), 1, fp);
@@ -402,7 +402,7 @@
  	while ((i = getc(fp)) == 0)
  		;
  	ungetc(i, fp);
-@@ -2730,7 +2730,7 @@ read_fasl_data(const char *str) {
+@@ -2723,7 +2723,7 @@ read_fasl_data(const char *str) {
  #ifdef E15
  	fp = faslfile->sm.sm_fp;
  	fread(&header, sizeof(header), 1, fp);
diff --git a/gcl-2.6.8-texinfo.patch b/gcl-2.6.8-texinfo.patch
index 77a2dab..31b8e97 100644
--- a/gcl-2.6.8-texinfo.patch
+++ b/gcl-2.6.8-texinfo.patch
@@ -1226,14 +1226,14 @@
  
 --- ./info/gcl-tk.texi.orig	2013-05-11 07:35:21.000000000 -0600
 +++ ./info/gcl-tk.texi	2013-05-13 10:12:56.274561378 -0600
-@@ -10,6 +10,7 @@
- 
+@@ -2,6 +2,7 @@
+ @c -*-texinfo-*-
  @c @smallbook
  @setfilename gcl-tk.info
 +@settitle GCL TK Manual
- @synindex vr fn
  
  @c to update the menus do: 
+ @c (texinfo-multiple-files-update "gcl-tk.texi" t t)
 --- ./info/chap-23.texi.orig	2002-10-18 04:31:14.000000000 -0600
 +++ ./info/chap-23.texi	2013-05-13 10:11:19.766813176 -0600
 @@ -1174,7 +1174,7 @@ Controls the interpretation of tokens by