aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org>2018-09-10 09:48:11 +0300
committerSergey Poznyakoff <gray@gnu.org>2018-09-10 09:48:11 +0300
commitaceb6ae2a22b00e4e8438a538a1cd6784fbe24d0 (patch)
tree1fab2a832f8f35eb9c48af0c520ab8132db7fdb9
parent30a8ad498d4aef9a85a8e68f9409dc90e86cc857 (diff)
downloadgamma-aceb6ae2a22b00e4e8438a538a1cd6784fbe24d0.tar.gz
gamma-aceb6ae2a22b00e4e8438a538a1cd6784fbe24d0.tar.bz2
Fix make install
* gamma/Makefile.am (site_DATA): Install GAMMA_DATA_FILES * gamma/gamma-expat.c (gamma_xml_parser_free): Don't free gp (allocated using scm_gc_malloc * scripts/bootstrap: Define GAMMA_DATA_FILES to contain names of all files to be installed in Guile site directory.
-rw-r--r--gamma/Makefile.am2
-rw-r--r--gamma/gamma-expat.c1
-rwxr-xr-xscripts/bootstrap2
3 files changed, 3 insertions, 2 deletions
diff --git a/gamma/Makefile.am b/gamma/Makefile.am
index 34df836..de3a868 100644
--- a/gamma/Makefile.am
+++ b/gamma/Makefile.am
@@ -32,7 +32,7 @@ EXTRA_DIST += loader.sci
GAMMA_BUILT_DATA_FILES += loader.scm
sitedir=$(GUILE_SITE)/$(PACKAGE)
-site_DATA=$(GAMMA_BUILT_DATA_FILES) documentation.scm
+site_DATA=$(GAMMA_DATA_FILES) documentation.scm
.sci.scm:
$(AM_V_GEN)m4 -DVERSION=$(VERSION) -DLIBDIR=$(libdir) \
diff --git a/gamma/gamma-expat.c b/gamma/gamma-expat.c
index cd3efaa..eb9fb1c 100644
--- a/gamma/gamma-expat.c
+++ b/gamma/gamma-expat.c
@@ -50,7 +50,6 @@ gamma_xml_parser_free(SCM smob)
free(udata);
XML_ParserFree(gp->parser);
}
- free(gp);
return 0;
}
diff --git a/scripts/bootstrap b/scripts/bootstrap
index 5d9d3eb..9a38489 100755
--- a/scripts/bootstrap
+++ b/scripts/bootstrap
@@ -389,6 +389,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cons \"$0\" (cdr (command-line))))"
(lambda ()
(write-autogenerated-header "# " #f)
(newline)
+ (display "GAMMA_DATA_FILES=\n")
(display "GAMMA_BUILT_DATA_FILES=\n")
(display "GAMMA_X_FILES=\n")
(for-each
@@ -449,6 +450,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cons \"$0\" (cdr (command-line))))"
(display file))
scm-list)
(newline)
+ (format #t "GAMMA_DATA_FILES += ~a~%" (string-join scm-list " "))
(cond
((not (null? built-data))

Return to:

Send suggestions and report system problems to the System administrator.