Use recorded top_srcdir to find gauche.h in in-place test

Author: shirok

lib/gauche/cgen/dyncomp.scm

@@ -43,13 +43,22 @@
 ;; and dynamically load on-the-fly.
 
 ;; Extra cppflags needed when running in a build tree (not installed).
-;; The headers are next to libgauche, so we derive the include path from it.
 (define dyncomp-extra-cppflags
   (cond-expand
     [gauche.in-place
-     (let1 in-place-path
-         (sys-dirname ((with-module gauche.internal %gauche-libgauche-path)))
-       #"-I~|in-place-path|")]
+     (let1 top-srcdir-file
+         (sys-normalize-pathname
+          (build-path (sys-dirname (current-load-path)) ".." ".." ".."
+                      "top_srcdir")
+          :canonicalize #t)
+       (unless (file-exists? top-srcdir-file)
+         [error "Can't find top_srcdir file at:" top-srcdir-file])
+       (let1 top-src-path
+           (regexp-replace #/\s*$/ (file->string top-srcdir-file) "")
+         (unless (file-exists? (build-path top-src-path "src" "gauche.h"))
+           (error "Can't get path of gauche.h for in-place execution at:"
+                  top-src-path))
+         #"-I~(build-path top-src-path \"src\")"))]
     [else #f]))
 
 ;; Entry point