From 1cf371db5f30bc9f40a4840f1d1d276ee46619a0 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Mon, 2 May 2016 06:50:36 +0300
Subject: Replace `! NULL' with `& success_node' in array routines.

---
 int_array.c | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'int_array.c')

diff --git a/int_array.c b/int_array.c
index c2bf37b5..8e6af037 100644
--- a/int_array.c
+++ b/int_array.c
@@ -74,7 +74,7 @@ int_array_init(NODE *symbol, NODE *subs ATTRIBUTE_UNUSED)
 	} else
 		null_array(symbol);
 
-	return (NODE **) ! NULL;
+	return & success_node;
 }
 
 /* is_integer --- check if subscript is an integer */
@@ -89,13 +89,13 @@ is_integer(NODE *symbol, NODE *subs)
 		return NULL;
 
 	if ((subs->flags & NUMINT) != 0)
-		return (NODE **) ! NULL;
+		return & success_node;
 
 	if ((subs->flags & NUMBER) != 0) {
 		d = subs->numbr;
 		if (d <= INT32_MAX && d >= INT32_MIN && d == (int32_t) d) {
 			subs->flags |= NUMINT;
-			return (NODE **) ! NULL;
+			return & success_node;
 		}
 		return NULL;
 	}
@@ -126,7 +126,7 @@ is_integer(NODE *symbol, NODE *subs)
 				subs->flags |= NUMBER;
 			}
 			subs->flags |= (NUMCUR|NUMINT);
-			return (NODE **) ! NULL;
+			return & success_node;
 		}
 
 		cpend = cp + len;
@@ -146,7 +146,7 @@ is_integer(NODE *symbol, NODE *subs)
 		subs->flags |= NUMCUR;
 		if (l <= INT32_MAX && l >= INT32_MIN) {
 			subs->flags |= NUMINT;
-			return (NODE **) ! NULL;
+			return & success_node;
 		}
 	}
 	return NULL;
@@ -303,7 +303,7 @@ int_remove(NODE *symbol, NODE *subs)
 		}
 		symbol->table_size--;
 		assert(symbol->table_size > 0);
-		return (NODE **) ! NULL;
+		return & success_node;
 	}
 
 	k = subs->numbr;
@@ -372,7 +372,7 @@ removed:
 		freenode(xn);
 	}
 
-	return (NODE **) ! NULL;	/* return success */
+	return & success_node;	/* return success */
 }
 
 
-- 
cgit v1.2.3