From cf228e3116787e02470440d134876ab8da0b68d9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Sat, 11 Jul 1998 20:15:33 +0200
Subject: [PATCH] Added stack_swap() and swap_dup() from Pike 0.6.
Rev: src/interpret.h:1.17
---
src/interpret.h | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/src/interpret.h b/src/interpret.h
index 12f0c0e644..e944acbcde 100644
--- a/src/interpret.h
+++ b/src/interpret.h
@@ -54,6 +54,10 @@ struct frame
#define push_svalue(S) do { struct svalue *_=(S); assign_svalue_no_free(sp,_); sp++; }while(0)
+#define stack_dup() push_svalue(sp-1)
+#define stack_swap() do { struct svalue _=sp[-1]; sp[-1]=sp[-2]; sp[-2]=_; } while(0)
+
+
#define APPLY_MASTER(FUN,ARGS) \
do{ \
static int fun_,master_cnt=0; \
--
GitLab