From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Phillip Lord Newsgroups: gmane.emacs.devel Subject: [feature/native-comp] breakage on build Date: Sat, 30 Jan 2021 10:37:40 +0000 Message-ID: <87lfca7lsb.fsf@russet.org.uk> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="2175"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Sat Jan 30 11:38:38 2021 Return-path: Envelope-to: ged-emacs-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1l5neI-0000TK-8a for ged-emacs-devel@m.gmane-mx.org; Sat, 30 Jan 2021 11:38:38 +0100 Original-Received: from localhost ([::1]:52002 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l5neH-0001fA-7u for ged-emacs-devel@m.gmane-mx.org; Sat, 30 Jan 2021 05:38:37 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:37678) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1l5ndR-0001DP-FC for emacs-devel@gnu.org; Sat, 30 Jan 2021 05:37:45 -0500 Original-Received: from cloud103.planethippo.com ([78.129.138.110]:39104) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1l5ndP-0002Ex-3D for emacs-devel@gnu.org; Sat, 30 Jan 2021 05:37:45 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=russet.org.uk; s=default; h=Content-Transfer-Encoding:Content-Type: MIME-Version:Message-ID:Date:Subject:To:From:Sender:Reply-To:Cc:Content-ID: Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc :Resent-Message-ID:In-Reply-To:References:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=nogZ0LSdDJ+DWk5FqdEfJhefwB6BraDqv1F2mRBYlfw=; b=CqZ26HpeE2m14ncwLkaJD3jhQM dcyKVNvsQSYLB2q/SEy2bOJ+rnmWCFo1GRUsLaBdi0WkztQJFZo6xOo4U8EI/BK0pvBE+2aBL2OIm Sxodl+ZLVy+NaPIALYZgp2v/Jy7ue8I3auKCVhCTnrQw37dw0SsYyYLQ/89MSnvr0tcXRzBsD+vkT lqr9g33VmDOR5J7bM4BsWhbLYbJgzl7CUNC79tlx7w1sNO/S95hc5lDUqwIZe0oXNnFcGGHdl4DZk jWSNA/akq/tSyaw2vLyLWlQsevUY51/6tMtdiDt5agQOuCD/terG0WsgtrGdBNCeXkRIiKVOue4vq 6lIf+TOA==; Original-Received: from cpc142648-benw12-2-0-cust627.16-2.cable.virginm.net ([82.10.74.116]:42094 helo=russet.org.uk) by cloud103.planethippo.com with esmtpsa (TLS1.2) tls TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384 (Exim 4.93) (envelope-from ) id 1l5ndM-0005mA-Os for emacs-devel@gnu.org; Sat, 30 Jan 2021 10:37:40 +0000 X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - cloud103.planethippo.com X-AntiAbuse: Original Domain - gnu.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - russet.org.uk X-Get-Message-Sender-Via: cloud103.planethippo.com: authenticated_id: phillip.lord@russet.org.uk X-Authenticated-Sender: cloud103.planethippo.com: phillip.lord@russet.org.uk Received-SPF: none client-ip=78.129.138.110; envelope-from=phillip.lord@russet.org.uk; helo=cloud103.planethippo.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, SPF_HELO_NONE=0.001, SPF_NONE=0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.io gmane.emacs.devel:263602 Archived-At: 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=3D"../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-s= napshot-feature_native-comp-windows/native-lisp/28.0.50-x86_64-w64-mingw32-= 3459bc949453c7833f94b407f8ee7c17/titdic-cnv-765ac3beca7090ba17f799d9600c18e= 6-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-3459bc94= 9453c7833f94b407f8ee7c17/ Debugger entered--Lisp error: (file-missing "Creating file with prefix" "No= such file or directory" "c:/msys64/home/Administrator/emacs-build/build/em= a...") comp--compile-ctxt-to-file("c:/msys64/home/Administrator/emacs-build/buil= d/ema...") (let ((dir (file-name-directory name))) (message "dir: %s" dir) (comp-fin= alize-relocs) (maphash #'(lambda (_ f) (comp-log-func f 1)) (progn (or (pro= gn (and (memq (type-of comp-ctxt) cl-struct-comp-ctxt-tags) t)) (signal 'wr= ong-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 (m= emq (type-of comp-ctxt) cl-struct-comp-ctxt-tags) t)) (signal 'wrong-type-a= rgument (list 'comp-ctxt comp-ctxt))) (aref comp-ctxt 7)))) (unwind-protect (setq compile-result (comp-compile-ctxt-to-file (progn (o= r (progn (and (memq ... cl-struct-comp-ctxt-tags) t)) (signal 'wrong-type-a= rgument (list 'comp-ctxt comp-ctxt))) (aref comp-ctxt 7)))) (and (comp--rel= ease-ctxt) compile-result)) (let (compile-result) (comp--init-ctxt) (unwind-protect (setq compile-res= ult (comp-compile-ctxt-to-file (progn (or (progn (and ... t)) (signal 'wron= g-type-argument (list ... comp-ctxt))) (aref comp-ctxt 7)))) (and (comp--re= lease-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-cir= cle 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-buffe= r " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buff= er temp-buffer) (insert ";; -*-coding: nil; -*-\n") (insert (prin1-to-strin= g expr))) (save-current-buffer (set-buffer temp-buffer) (write-region nil n= il temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buff= er)))) (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-compila= tion) (comp-final1) (let* ((output (progn (or (progn ...) (signal ... ...))= (aref comp-ctxt 7))) (print-escape-newlines t) (print-length nil) (print-l= evel nil) (print-quoted t) (print-gensym t) (print-circle t) (print-escape-= multibyte t) (expr (cons 'progn (cons '... (cons ... ...)))) (temp-file (ma= ke-temp-file (concat "emacs-int-comp-" (file-name-base output) "-") nil ".e= l"))) (let ((temp-file temp-file) (temp-buffer (generate-new-buffer " *temp= file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-b= uffer) (insert ";; -*-coding: nil; -*-\n") (insert ...)) (save-current-buff= er (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (= buffer-name temp-buffer) (kill-buffer temp-buffer)))) (let ((temp-buffer (g= enerate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buf= fer) (unwind-protect (progn (unwind-protect ... ...)) (and (buffer-name tem= p-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) Runn= ing 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 (ca= r --cl-var--)) (if (memq pass comp-disabled-passes) (progn) (comp-log (form= at "(%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))) rep= ort)) (let* ((--cl-var-- (alist-get pass comp-post-pass-hooks)) (f nil)) (w= hile (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-va= r-- t)) (while (progn (setq t0 (current-time)) (consp --cl-var--)) (setq pa= ss (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 (fu= ncall pass data)) (setq report (cons (cons pass (float-time (time-since t0)= )) report)) (let* ((--cl-var-- (alist-get pass comp-post-pass-hooks)) (f ni= l)) (while (consp --cl-var--) (setq f (car --cl-var--)) (funcall f data) (s= etq --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 "D= one 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-passe= s) (progn) (comp-log (format "(%s) Running pass %s:\n" function-or-file pas= s) 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 (f= ormat "Done compiling %s" data) 0) (let* ((--cl-var-- (reverse report)) (ti= me nil) (pass nil)) (while (consp --cl-var--) (setq time (car --cl-var--) p= ass (car-safe ...)) (comp-log (format "Pass %s took: %fs." pass time) 0) (s= etq --cl-var-- (cdr --cl-var--))) nil))) nil) (native-compiler-error (let (= (err-val (cdr err))) (signal (car err) (if (consp err-val) (cons function-o= r-file err-val) (list function-or-file err-val)))))) (let* ((data function-or-file) (comp-native-compiling t) (byte-native-qua= lities nil) (byte-compile-debug t) (comp-ctxt (make-comp-ctxt :output outpu= t :with-late-load with-late-load))) (comp-log "\n\f\n" 1) (condition-case e= rr (let* ((report nil) (t0 nil) (--cl-var-- comp-passes) (pass nil) (--cl-v= ar-- t)) (while (progn (setq t0 (current-time)) (consp --cl-var--)) (setq p= ass (car --cl-var--)) (if (memq pass comp-disabled-passes) (progn) (comp-lo= g (format "(%s) Running pass %s:\n" function-or-file pass) 2) (setq data (f= uncall 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 --c= l-var-- nil)) (if comp-log-time-report (progn (comp-log (format "Done compi= ling %s" data) 0) (let* ((--cl-var-- ...) (time nil) (pass nil)) (while (co= nsp --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 functi= on-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.= ..")