From 2c5da34a9c6c6f5901ed98efaf428b73e0795715 Mon Sep 17 00:00:00 2001
From: "Mirar (Pontus Hagland)" <pike@sort.mirar.org>
Date: Wed, 26 Nov 1997 16:41:35 +0100
Subject: [PATCH] compability bug fixed in gif_add
Rev: src/modules/Image/togif.c:1.28
---
src/modules/Image/togif.c | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/src/modules/Image/togif.c b/src/modules/Image/togif.c
index 8b2fee0ca5..8c926d198a 100644
--- a/src/modules/Image/togif.c
+++ b/src/modules/Image/togif.c
@@ -2,7 +2,7 @@
togif
-$Id: togif.c,v 1.27 1997/11/11 22:17:52 mirar Exp $
+$Id: togif.c,v 1.28 1997/11/26 15:41:35 mirar Exp $
old GIF API compat stuff
@@ -11,7 +11,7 @@ old GIF API compat stuff
/*
**! module Image
**! note
-**! $Id: togif.c,v 1.27 1997/11/11 22:17:52 mirar Exp $
+**! $Id: togif.c,v 1.28 1997/11/26 15:41:35 mirar Exp $
**! class image
*/
@@ -143,6 +143,8 @@ static void img_gif_add(INT32 args,int fs,int lm,
int delay=0;
struct object *ncto=NULL;
+ struct svalue *msp=sp;
+
if (args==0) x=y=0;
else if (args<2
|| sp[-args].type!=T_INT
@@ -158,7 +160,7 @@ static void img_gif_add(INT32 args,int fs,int lm,
{
struct svalue *sv=sp+2-args;
push_svalue(sv);
- ncto=clone_object(image_colortable_program,2);
+ ncto=clone_object(image_colortable_program,1);
}
else if (args>3 && sp[2-args].type==T_INT)
{
--
GitLab