From bafaf013536eef09bee1982e04436c13899febc2 Mon Sep 17 00:00:00 2001
From: Miles Bader <miles@gnu.org>
Date: Sat, 8 Jul 1995 22:58:47 +0000
Subject: (ports_intern_external_port): Properly add PI to CLASS's port list
 when the   list is empty.

---
 libports/intern-external-port.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'libports/intern-external-port.c')

diff --git a/libports/intern-external-port.c b/libports/intern-external-port.c
index 49139e7d..c60fc87e 100644
--- a/libports/intern-external-port.c
+++ b/libports/intern-external-port.c
@@ -72,7 +72,8 @@ void *ports_intern_external_port (struct port_bucket *bucket,
   assert_perror (err);
   pi->next = class->ports;
   pi->prevp = &class->ports;
-  class->ports->prevp = &pi->next;
+  if (class->ports)
+    class->ports->prevp = &pi->next;
   class->ports = pi;
   bucket->count++;
   class->count++;
-- 
cgit v1.2.3