From 2ebf144a068dbff7e93da4da99500c2eea35ea87 Mon Sep 17 00:00:00 2001
From: Christian Weisgerber <naddy@FreeBSD.org>
Date: Tue, 4 Jun 2002 21:35:59 +0000
Subject: [PATCH] Upstream fix for decimal point stack push in RPN mode.

---
 math/calcoo/Makefile                   |  1 +
 math/calcoo/files/patch-src_c__input.c | 23 +++++++++++++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100644 math/calcoo/files/patch-src_c__input.c

diff --git a/math/calcoo/Makefile b/math/calcoo/Makefile
index fe60663de3af..69d378fa0c90 100644
--- a/math/calcoo/Makefile
+++ b/math/calcoo/Makefile
@@ -6,6 +6,7 @@
 
 PORTNAME=	calcoo
 PORTVERSION=	1.3.8
+PORTREVISION=	1
 CATEGORIES=	math
 MASTER_SITES=	${MASTER_SITE_SOURCEFORGE} \
 		http://www.physics.umn.edu/~kaminski/calcoo/
diff --git a/math/calcoo/files/patch-src_c__input.c b/math/calcoo/files/patch-src_c__input.c
new file mode 100644
index 000000000000..754c26e65658
--- /dev/null
+++ b/math/calcoo/files/patch-src_c__input.c
@@ -0,0 +1,23 @@
+
+$FreeBSD$
+
+--- src/c_input.c.orig	Sun Jun  2 20:50:25 2002
++++ src/c_input.c	Tue Jun  4 23:28:14 2002
+@@ -118,10 +118,15 @@
+ 
+ void call_dot(void)
+ {
+-	if(cpu->last_action != ACTION_INPUT) {
+-		cpu->y = cpu->x;
++	if (cpu->last_action != ACTION_INPUT) {
++		if ((cpu->rpn_mode)
++		    && (cpu->last_action == ACTION_ENTER)) {
++			push_stack();
++			cpu->y = cpu->x;
++		}
+ 		reset_input();
+ 		cpu->last_action = ACTION_INPUT;
++		cpu_to_output();
+ 	}
+ 
+ 	if (cpu->d->input_field == INPUT_FIELD_INT) {