From 3d511041bb51c2efe945b15429fd5256e1f277fb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Mon, 20 Apr 1998 20:43:08 +0200
Subject: [PATCH] Minor change.
Rev: src/interpret.c:1.80
---
src/interpret.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/interpret.c b/src/interpret.c
index c7d4dd9088..543943aaf8 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.79 1998/04/17 05:08:02 hubbe Exp $");
+RCSID("$Id: interpret.c,v 1.80 1998/04/20 18:43:08 grubba Exp $");
#include "interpret.h"
#include "object.h"
#include "program.h"
@@ -1280,7 +1280,7 @@ static int eval_instruction(unsigned char *pc)
LOOP(F_INC_NEQ_LOOP, ++, !=, f_add(2), !is_eq);
LOOP(F_DEC_NEQ_LOOP, --, !=, o_subtract(), !is_eq);
- CASE(F_FOREACH) /* array, lvalue , i */
+ CASE(F_FOREACH) /* array, lvalue, X, i */
{
if(sp[-4].type != T_ARRAY)
PIKE_ERROR("foreach", "Bad argument 1.\n", sp-3, 1);
--
GitLab