From 6e35ee9649a9366e2285407398cad04b1e752516 Mon Sep 17 00:00:00 2001
From: Per Hedbor <ph@opera.com>
Date: Sat, 24 Jan 1998 19:36:44 +0100
Subject: [PATCH] small optimization (in pop_n_elems for n == 0)...
Rev: src/interpret.c:1.60
---
src/interpret.c | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/interpret.c b/src/interpret.c
index e616ae8d19..8633eaeb29 100644
--- a/src/interpret.c
+++ b/src/interpret.c
@@ -4,7 +4,7 @@
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
-RCSID("$Id: interpret.c,v 1.59 1998/01/23 01:20:05 hubbe Exp $");
+RCSID("$Id: interpret.c,v 1.60 1998/01/24 18:36:44 per Exp $");
#include "interpret.h"
#include "object.h"
#include "program.h"
@@ -343,6 +343,7 @@ void print_return_value(void)
void pop_n_elems(INT32 x)
{
+ if(!x) return;
#ifdef DEBUG
if(sp - evaluator_stack < x)
fatal("Popping out of stack.\n");
--
GitLab