1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-08 02:15:08 +00:00
freebsd-ports/lang/gforth/files/patch-engine_main.c
Stanislav Sedov e5883676e3 - Add files forgotten in the last commit
Approved by:	portmgr (erwin)
2006-10-21 13:11:07 +00:00

23 lines
398 B
C

--- 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