dev-lang/gforth/files/0.6.2-c-to-forth-to-c.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

Index: engine/main.c
===================================================================
RCS file: /usr/local/lib/cvs-repository/src-master/gforth/engine/main.c,v
retrieving revision 1.139
retrieving revision 1.140
diff -u -r1.139 -r1.140
--- engine/main.c.old	2004/01/20 19:07:41	1.139
+++ engine/main.c	2004/04/10 00:16:55	1.140
@@ -70,8 +70,21 @@
 
 void engine_callback(Xt* fcall, void * alist)
 {
+  /* save global valiables */
+  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);
+
+  /* restore global variables */
+  RP = rp;
+  SP = sp;
+  FP = fp;
+  LP = lp;
 }
 #endif