mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 12:20:26 +02:00
44 lines
953 B
Diff
44 lines
953 B
Diff
--- ./ltdl.c 2005-05-23 13:15:31.000000000 -0700
|
||
+++ raw-ltdl.guilemod.c 2005-10-13 22:58:45.000000000 -0700
|
||
@@ -1,5 +1,5 @@
|
||
/* ltdl.c -- system independent dlopen wrapper
|
||
- Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
|
||
+ Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
|
||
Originally by Thomas Tanner <tanner@ffii.org>
|
||
This file is part of GNU Libtool.
|
||
|
||
@@ -26,7 +26,7 @@
|
||
*/
|
||
|
||
#if HAVE_CONFIG_H
|
||
-# include <config.h>
|
||
+# include "config.h"
|
||
#endif
|
||
|
||
#if HAVE_UNISTD_H
|
||
@@ -124,13 +124,15 @@
|
||
# define assert(arg) ((void) 0)
|
||
#endif
|
||
|
||
-#include "ltdl.h"
|
||
+#include "raw-ltdl.h"
|
||
|
||
#if WITH_DMALLOC
|
||
# include <dmalloc.h>
|
||
#endif
|
||
|
||
|
||
+/* Saves on those hard to debug '\0' typos.... */
|
||
+#define LT_EOS_CHAR '\0'
|
||
|
||
|
||
/* --- WINDOWS SUPPORT --- */
|
||
@@ -387,7 +389,7 @@
|
||
|
||
for (i = 0; i < size; ++i)
|
||
{
|
||
- dest[i] = src[i];
|
||
+ ((char *) dest)[i] = ((char *) src)[i];
|
||
}
|
||
|
||
return dest;
|