From: Laurent Mazet <laurent.mazet@thalesgroup.com>
Date: Mon, 13 Feb 2023 11:20:45 +0000 (+0100)
Subject: correct push
X-Git-Tag: v1.1~3^2~8^2~2
X-Git-Url: https://secure.softndesign.org/git/?a=commitdiff_plain;h=24724cdc5ea25aae7c110f60a74a671aed86761c;p=calc.git

correct push
---

diff --git a/stack.c b/stack.c
index 829f8aa..a355fa5 100644
--- a/stack.c
+++ b/stack.c
@@ -1,3 +1,4 @@
+#include <math.h>
 #include <stdio.h>
 
 #include "debug.h"
@@ -30,7 +31,14 @@ double pop ()
 
 double push (double val)
 {
-    return push_tab (stack, -1, val);
+    double ret = NAN;
+    if (stack) {
+        ret = push_tab (stack, -1, val);
+    } else {
+        stack = resize_tab (stack, 1);
+        ret = set_tab (stack, 1, val);
+    }
+    return ret;
 }
 
 double put (int n, double val)