From 7a4841d9424e259f6cba2f173ebfb8225e21bb88 Mon Sep 17 00:00:00 2001
From: Thomas Knudsen <lastname DOT firstname AT gmail DOT com>
Date: Wed, 20 Apr 2016 17:12:48 +0200
Subject: Minor bug in pj_sterea

Added missing check for actual allocation of gauss object.
---
 src/PJ_sterea.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/PJ_sterea.c b/src/PJ_sterea.c
index cbfb8fb4..93799011 100644
--- a/src/PJ_sterea.c
+++ b/src/PJ_sterea.c
@@ -99,13 +99,14 @@ static void freeup (PJ *P) {
 PJ *PROJECTION(sterea) {
     double R;
     struct pj_opaque *Q = pj_calloc (1, sizeof (struct pj_opaque));
+
     if (0==Q)
         return freeup_new (P);
     P->opaque = Q;
 
     Q->en = pj_gauss_ini(P->e, P->phi0, &(Q->phic0), &R);
-    if (0==P)
-        E_ERROR_0;
+    if (0==Q->en)
+        return freeup_new (P);
 
     Q->sinc0 = sin (Q->phic0);
     Q->cosc0 = cos (Q->phic0);
-- 
cgit v1.2.3