From d26e4dd74cedbc726f553c6743894b232a8330ba Mon Sep 17 00:00:00 2001
From: "Michael I. Bushnell" <mib@gnu.org>
Date: Thu, 9 May 1996 15:10:06 +0000
Subject: (pager_create): ports_allocate_port -> ports_create_port; if we get
 an error return a null structure.

---
 libpager/pager-create.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/libpager/pager-create.c b/libpager/pager-create.c
index f4bdb8bf..f430cf87 100644
--- a/libpager/pager-create.c
+++ b/libpager/pager-create.c
@@ -26,7 +26,9 @@ pager_create (struct user_pager_info *upi,
 {
   struct pager *p;
 
-  p = ports_allocate_port (bucket, sizeof (struct pager), _pager_class);
+  errno = ports_create_port (_pager_class, bucket, sizeof (struct pager), &p);
+  if (errno)
+    return 0;
 
   p->upi = upi;
   p->pager_state = NOTINIT;
-- 
cgit v1.2.3