3 files changed, 50 insertions, 0 deletions

diff --git a/lang/gforth/files/patch-comp-i.fs b/lang/gforth/files/patch-comp-i.fs
new file mode 100644
index 000000000000..dd3abb7e8b2b
--- /dev/null
+++ b/lang/gforth/files/patch-comp-i.fs
@@ -0,0 +1,16 @@
+Index: comp-i.fs
+===================================================================
+RCS file: /usr/local/lib/cvs-repository/src-master/gforth/comp-i.fs,v
+retrieving revision 1.14
+diff -u -r1.14 comp-i.fs
+--- comp-i.fs	2003/08/25 14:17:43	1.14
++++ comp-i.fs	2004/03/10 16:26:46
+@@ -43,7 +43,7 @@
+     if
+ 	." : images have the same base address; producing only a data-relocatable image" cr
+     else
+-	offset abs expected-offset <> abort" images produced by different engines"
++	\ offset abs expected-offset <> abort" images produced by different engines"
+ 	."  offset=" offset . cr
+ 	0 image1 i-field + ! 0 image2 i-field + !
+     endif
diff --git a/lang/gforth/files/patch-configure b/lang/gforth/files/patch-configure
new file mode 100644
index 000000000000..0bad37060869
--- /dev/null
+++ b/lang/gforth/files/patch-configure
@@ -0,0 +1,12 @@
+--- configure.orig	Sat Oct 21 02:49:22 2006
++++ configure	Sat Oct 21 02:49:27 2006
+@@ -8079,8 +8079,8 @@
+   if (x) {
+   label1:
+     asm("$i");
+-  label2:
+   }
++  label2:
+   return (&&label2)-(&&label1);
+ }
+ 
diff --git a/lang/gforth/files/patch-engine_main.c b/lang/gforth/files/patch-engine_main.c
new file mode 100644
index 000000000000..e28faa1f4cd5
--- /dev/null
+++ b/lang/gforth/files/patch-engine_main.c
@@ -0,0 +1,22 @@
+--- engine/main.c.orig	Sun Aug 24 12:06:29 2003
++++ engine/main.c	Sat Oct 21 11:36:19 2006
+@@ -70,8 +70,18 @@
+ 
+ void engine_callback(Xt* fcall, void * alist)
+ {
++  Cell *rp = RP;
++  Cell *sp = SP;
++  Float *fp = FP;
++  Address lp = LP;
++
+   clist = (va_alist)alist;
+-  engine(fcall, SP, RP, FP, LP);
++  engine(fcall, sp, rp, fp, lp);
++
++  RP = rp;
++  SP = sp;
++  FP = fp;
++  LP = lp;
+ }
+ #endif
+