From d67cd1a2780bbda8507df01b6053aa367858843c Mon Sep 17 00:00:00 2001
From: mccallum <mccallum@72102866-910b-0410-8b05-ffd578937521>
Date: Sun, 9 Apr 1995 17:55:27 +0000
Subject: [PATCH] (objectForAddress:): Return nil if address is not maintained
 by a MallocAddress object. (Used to simply die.)

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@341 72102866-910b-0410-8b05-ffd578937521
---
 Source/MallocAddress.m | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Source/MallocAddress.m b/Source/MallocAddress.m
index ef74a02b3..b3c1882d2 100644
--- a/Source/MallocAddress.m
+++ b/Source/MallocAddress.m
@@ -39,7 +39,11 @@ static Dictionary* mallocAddresses;
 
 + objectForAddress: (void*)addr
 {
-  return [mallocAddresses elementAtKey:addr].id_u;
+  elt ret_nil(arglist_t a)
+    {
+      return (elt) nil;
+    }
+  return [mallocAddresses elementAtKey:addr ifAbsentCall:ret_nil].id_u;
 }
 
 + autoreleaseMallocAddresss: (void*)addr