[gcl] Fix offsets in the patches for the new source tarball.
Jerry James
jjames at fedoraproject.org
Tue May 14 03:53:30 UTC 2013
commit 16a2c2686a72e6e7cb4dfcabeae1ae839e05b84b
Author: Jerry James <loganjerry at gmail.com>
Date: Mon May 13 21:53:11 2013 -0600
Fix offsets in the patches for the new source tarball.
gcl-2.6.8-largefile.patch | 18 +++++++++---------
gcl-2.6.8-texinfo.patch | 6 +++---
2 files changed, 12 insertions(+), 12 deletions(-)
---
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
+ at 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
More information about the scm-commits
mailing list