[feature/native-comp] breakage on build

[Phillip Lord]

I am getting a build breakage on native-comp. While I can build
native-comp on windows in source, it seems to fail while using my
packaging scripts. These use out-of-source builds which might be the
problem.

Backtrace is here. I've added a few "message"'s to
`comp-compile-ctxt-to-file' so I could see the full paths. The directory
mentioned does exist but is empty.

I am getting that there is something that isn't happy with windows
paths, but that's a total guess.

Phil



make -C ../lisp autoloads EMACS="../src/bootstrap-emacs.exe"
make[2]: Entering directory 
'/home/Administrator/emacs-build/build/emacs-28.0.50-snapshot-feature_native-comp-windows/lisp'
 ELC+ELN   
/c/msys64/home/Administrator/emacs-build/git/feature/native-comp-windows/lisp/international/titdic-cnv.elc
compiling to 
c:/msys64/home/Administrator/emacs-build/build/emacs-28.0.50-snapshot-feature_native-comp-windows/native-lisp/28.0.50-x86_64-w64-mingw32-3459bc949453c7833f94b407f8ee7c17/titdic-cnv-765ac3beca7090ba17f799d9600c18e6-a5dbcc84a969a94717512a079e1cc96a.eln
dir: 
c:/msys64/home/Administrator/emacs-build/build/emacs-28.0.50-snapshot-feature_native-comp-windows/native-lisp/28.0.50-x86_64-w64-mingw32-3459bc949453c7833f94b407f8ee7c17/
Debugger entered--Lisp error: (file-missing "Creating file with prefix" "No 
such file or directory" "c:/msys64/home/Administrator/emacs-build/build/ema...")
  
comp--compile-ctxt-to-file("c:/msys64/home/Administrator/emacs-build/build/ema...")
  (let ((dir (file-name-directory name))) (message "dir: %s" dir) 
(comp-finalize-relocs) (maphash #'(lambda (_ f) (comp-log-func f 1)) (progn (or 
(progn (and (memq (type-of comp-ctxt) cl-struct-comp-ctxt-tags) t)) (signal 
'wrong-type-argument (list 'comp-ctxt comp-ctxt))) (aref comp-ctxt 11))) (if 
(file-exists-p dir) nil (condition-case nil (progn (make-directory dir t)) 
('file-already-exists nil))) (comp--compile-ctxt-to-file name))
  
comp-compile-ctxt-to-file("c:/msys64/home/Administrator/emacs-build/build/ema...")
  (setq compile-result (comp-compile-ctxt-to-file (progn (or (progn (and (memq 
(type-of comp-ctxt) cl-struct-comp-ctxt-tags) t)) (signal 'wrong-type-argument 
(list 'comp-ctxt comp-ctxt))) (aref comp-ctxt 7))))
  (unwind-protect (setq compile-result (comp-compile-ctxt-to-file (progn (or 
(progn (and (memq ... cl-struct-comp-ctxt-tags) t)) (signal 
'wrong-type-argument (list 'comp-ctxt comp-ctxt))) (aref comp-ctxt 7)))) (and 
(comp--release-ctxt) compile-result))
  (let (compile-result) (comp--init-ctxt) (unwind-protect (setq compile-result 
(comp-compile-ctxt-to-file (progn (or (progn (and ... t)) (signal 
'wrong-type-argument (list ... comp-ctxt))) (aref comp-ctxt 7)))) (and 
(comp--release-ctxt) compile-result)))
  comp-final1()
  (if (or byte-native-for-bootstrap comp-async-compilation) (comp-final1) (let* 
((output (progn (or (progn (and ... t)) (signal 'wrong-type-argument (list ... 
comp-ctxt))) (aref comp-ctxt 7))) (print-escape-newlines t) (print-length nil) 
(print-level nil) (print-quoted t) (print-gensym t) (print-circle t) 
(print-escape-multibyte t) (expr (cons 'progn (cons '(require ...) (cons (list 
... ... comp-verbose ... comp-libgccjit-reproducer ... comp-ctxt ... ... ... 
... ... ...) (cons comp-async-env-modifier-form ...))))) (temp-file 
(make-temp-file (concat "emacs-int-comp-" (file-name-base output) "-") nil 
".el"))) (let ((temp-file temp-file) (temp-buffer (generate-new-buffer " *temp 
file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer 
temp-buffer) (insert ";; -*-coding: nil; -*-\n") (insert (prin1-to-string 
expr))) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil 
temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) 
(let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer 
(set-buffer temp-buffer) (unwind-protect (progn (unwind-protect (if ... output 
...) (comp-log-to-buffer ...))) (and (buffer-name temp-buffer) (kill-buffer 
temp-buffer)))))))
  (if comp-dry-run nil (if (or byte-native-for-bootstrap 
comp-async-compilation) (comp-final1) (let* ((output (progn (or (progn ...) 
(signal ... ...)) (aref comp-ctxt 7))) (print-escape-newlines t) (print-length 
nil) (print-level nil) (print-quoted t) (print-gensym t) (print-circle t) 
(print-escape-multibyte t) (expr (cons 'progn (cons '... (cons ... ...)))) 
(temp-file (make-temp-file (concat "emacs-int-comp-" (file-name-base output) 
"-") nil ".el"))) (let ((temp-file temp-file) (temp-buffer (generate-new-buffer 
" *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer 
temp-buffer) (insert ";; -*-coding: nil; -*-\n") (insert ...)) 
(save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file 
nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (let 
((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer 
(set-buffer temp-buffer) (unwind-protect (progn (unwind-protect ... ...)) (and 
(buffer-name temp-buffer) (kill-buffer temp-buffer))))))))
  comp-final(nil)
  funcall(comp-final nil)
  (setq data (funcall pass data))
  (if (memq pass comp-disabled-passes) (progn) (comp-log (format "(%s) Running 
pass %s:\n" function-or-file pass) 2) (setq data (funcall pass data)) (setq 
report (cons (cons pass (float-time (time-since t0))) report)) (let* 
((--cl-var-- (alist-get pass comp-post-pass-hooks)) (f nil)) (while (consp 
--cl-var--) (setq f (car --cl-var--)) (funcall f data) (setq --cl-var-- (cdr 
--cl-var--))) nil))
  (while (progn (setq t0 (current-time)) (consp --cl-var--)) (setq pass (car 
--cl-var--)) (if (memq pass comp-disabled-passes) (progn) (comp-log (format 
"(%s) Running pass %s:\n" function-or-file pass) 2) (setq data (funcall pass 
data)) (setq report (cons (cons pass (float-time (time-since t0))) report)) 
(let* ((--cl-var-- (alist-get pass comp-post-pass-hooks)) (f nil)) (while 
(consp --cl-var--) (setq f (car --cl-var--)) (funcall f data) (setq --cl-var-- 
(cdr --cl-var--))) nil)) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- 
nil))
  (let* ((report nil) (t0 nil) (--cl-var-- comp-passes) (pass nil) (--cl-var-- 
t)) (while (progn (setq t0 (current-time)) (consp --cl-var--)) (setq pass (car 
--cl-var--)) (if (memq pass comp-disabled-passes) (progn) (comp-log (format 
"(%s) Running pass %s:\n" function-or-file pass) 2) (setq data (funcall pass 
data)) (setq report (cons (cons pass (float-time (time-since t0))) report)) 
(let* ((--cl-var-- (alist-get pass comp-post-pass-hooks)) (f nil)) (while 
(consp --cl-var--) (setq f (car --cl-var--)) (funcall f data) (setq --cl-var-- 
(cdr --cl-var--))) nil)) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- 
nil)) (if comp-log-time-report (progn (comp-log (format "Done compiling %s" 
data) 0) (let* ((--cl-var-- (reverse report)) (time nil) (pass nil)) (while 
(consp --cl-var--) (setq time (car --cl-var--) pass (car-safe (prog1 time 
...))) (comp-log (format "Pass %s took: %fs." pass time) 0) (setq --cl-var-- 
(cdr --cl-var--))) nil))) nil)
  (condition-case err (let* ((report nil) (t0 nil) (--cl-var-- comp-passes) 
(pass nil) (--cl-var-- t)) (while (progn (setq t0 (current-time)) (consp 
--cl-var--)) (setq pass (car --cl-var--)) (if (memq pass comp-disabled-passes) 
(progn) (comp-log (format "(%s) Running pass %s:\n" function-or-file pass) 2) 
(setq data (funcall pass data)) (setq report (cons (cons pass (float-time ...)) 
report)) (let* ((--cl-var-- (alist-get pass comp-post-pass-hooks)) (f nil)) 
(while (consp --cl-var--) (setq f (car --cl-var--)) (funcall f data) (setq 
--cl-var-- (cdr --cl-var--))) nil)) (setq --cl-var-- (cdr --cl-var--)) (setq 
--cl-var-- nil)) (if comp-log-time-report (progn (comp-log (format "Done 
compiling %s" data) 0) (let* ((--cl-var-- (reverse report)) (time nil) (pass 
nil)) (while (consp --cl-var--) (setq time (car --cl-var--) pass (car-safe 
...)) (comp-log (format "Pass %s took: %fs." pass time) 0) (setq --cl-var-- 
(cdr --cl-var--))) nil))) nil) (native-compiler-error (let ((err-val (cdr 
err))) (signal (car err) (if (consp err-val) (cons function-or-file err-val) 
(list function-or-file err-val))))))
  (let* ((data function-or-file) (comp-native-compiling t) 
(byte-native-qualities nil) (byte-compile-debug t) (comp-ctxt (make-comp-ctxt 
:output output :with-late-load with-late-load))) (comp-log "\n\f\n" 1) 
(condition-case err (let* ((report nil) (t0 nil) (--cl-var-- comp-passes) (pass 
nil) (--cl-var-- t)) (while (progn (setq t0 (current-time)) (consp --cl-var--)) 
(setq pass (car --cl-var--)) (if (memq pass comp-disabled-passes) (progn) 
(comp-log (format "(%s) Running pass %s:\n" function-or-file pass) 2) (setq 
data (funcall pass data)) (setq report (cons (cons pass ...) report)) (let* 
((--cl-var-- ...) (f nil)) (while (consp --cl-var--) (setq f ...) (funcall f 
data) (setq --cl-var-- ...)) nil)) (setq --cl-var-- (cdr --cl-var--)) (setq 
--cl-var-- nil)) (if comp-log-time-report (progn (comp-log (format "Done 
compiling %s" data) 0) (let* ((--cl-var-- ...) (time nil) (pass nil)) (while 
(consp --cl-var--) (setq time ... pass ...) (comp-log ... 0) (setq --cl-var-- 
...)) nil))) nil) (native-compiler-error (let ((err-val (cdr err))) (signal 
(car err) (if (consp err-val) (cons function-or-file err-val) (list 
function-or-file err-val)))))) (if (stringp function-or-file) data 
(native-elisp-load data)))
  comp--native-compile("C:/msys64/home/Administrator/emacs-build/git/featu...")