Gauche > Archives > 2009/11/03

--- a/doc/modgauche.texi
+++ b/doc/modgauche.texi
@@ -4048,7 +4048,7 @@ the log drain temporary.
 引数無しで呼ばれると、@code{log-format}が使う、
 現在のデフォルトのログの行き先が返されます。
 まだデフォルトのログの行き先が@code{log-open}で指定されていない場合は
-@code{#f}が帰ります。
+@code{#f}が返ります。

 新たな@code{<log-drain>}オブジェクトか@code{#f}を引数にして呼び出すと、
 デフォルトのログの行き先がそれに変更されます。
@@ -5824,7 +5824,7 @@ Looks up a host named @var{name}.
 If found, returns a @code{<sys-hostent>} object.
 Otherwise, returns @code{#f}.
 @c JP
-@var{name}という名まえのホストを探し、見つかれば、@code{<sys-hostent>}
+@var{name}という名前のホストを探し、見つかれば、@code{<sys-hostent>}
 オブジェクトを返します。見つからなければ、@code{#f} を返します。
 @c COMMON
 @example
@@ -5912,7 +5912,7 @@ Otherwise, @code{#f} is returned.
 ネットワークサービスデータベースをサービス名 @var{name} および
 プロトコル @var{proto} で検索します。@var{name} および @var{proto}
 は文字列でなければなりません。サービスが見つかれば、@code{<sys-servent>}
-のインスタンスが返します。見つからなければ、@code{#f} を返します。
+のインスタンスを返します。見つからなければ、@code{#f} を返します。
 @c COMMON
 @example
 (let ((serv (sys-getservbyname "http" "tcp")))
@@ -5936,7 +5936,7 @@ Otherwise, @code{#f} is returned.
 プロトコル @var{proto} で検索します。@var{port} は正確な整数でなければ
 なりません。また、@var{proto} は文字列でなければなりません。
 サービスが見つかれば、@code{<sys-servent>}
-のインスタンスが返します。見つからなければ、@code{#f} を返します。
+のインスタンスを返します。見つからなければ、@code{#f} を返します。
 @c COMMON
 @example
 (let ((serv (sys-getservbyport 6000 "tcp")))

% diff -u gc/dyn_load.c.orig gc/dyn_load.c
--- gc/dyn_load.c.orig  2009-11-04 17:36:21.000000000 +0900
+++ gc/dyn_load.c       2009-11-04 17:42:07.000000000 +0900
@@ -78,6 +78,7 @@
 #endif
 
 #if defined(NETBSD)
+#   include <dlfcn.h>
 #   include <machine/elf_machdep.h>
 #   define ELFSIZE ARCH_ELFSIZE
 #endif
@@ -499,6 +500,7 @@
         return(0);
     }
     if( cachedResult == 0 ) {
+#if 0
         int tag;
         for( dp = _DYNAMIC; (tag = dp->d_tag) != 0; dp++ ) {
             if( tag == DT_DEBUG ) {
@@ -508,6 +510,15 @@
                 break;
             }
         }
+#else
+       struct link_map *lm = NULL;
+        int rv = dlinfo(RTLD_SELF, RTLD_DI_LINKMAP, &lm); 
+        if (rv != 0)
+               return (0);
+        if (lm == NULL)
+               return (0);
+        cachedResult = lm;
+#endif 
     }
     return cachedResult;
 }