{"id":811478,"url":"http://patchwork.ozlabs.org/api/patches/811478/?format=json","web_url":"http://patchwork.ozlabs.org/project/gcc/patch/20170908101818.GA47026@adacore.com/","project":{"id":17,"url":"http://patchwork.ozlabs.org/api/projects/17/?format=json","name":"GNU Compiler Collection","link_name":"gcc","list_id":"gcc-patches.gcc.gnu.org","list_email":"gcc-patches@gcc.gnu.org","web_url":null,"scm_url":null,"webscm_url":null,"list_archive_url":"","list_archive_url_format":"","commit_url_format":""},"msgid":"<20170908101818.GA47026@adacore.com>","list_archive_url":null,"date":"2017-09-08T10:18:18","name":"[Ada] Compiler crash on mixed-case source file names","commit_ref":null,"pull_url":null,"state":"new","archived":false,"hash":"e741ffb94ac221d497e3c77791d2888f12994882","submitter":{"id":4418,"url":"http://patchwork.ozlabs.org/api/people/4418/?format=json","name":"Arnaud Charlet","email":"charlet@adacore.com"},"delegate":null,"mbox":"http://patchwork.ozlabs.org/project/gcc/patch/20170908101818.GA47026@adacore.com/mbox/","series":[{"id":2173,"url":"http://patchwork.ozlabs.org/api/series/2173/?format=json","web_url":"http://patchwork.ozlabs.org/project/gcc/list/?series=2173","date":"2017-09-08T10:18:18","name":"[Ada] Compiler crash on mixed-case source file names","version":1,"mbox":"http://patchwork.ozlabs.org/series/2173/mbox/"}],"comments":"http://patchwork.ozlabs.org/api/patches/811478/comments/","check":"pending","checks":"http://patchwork.ozlabs.org/api/patches/811478/checks/","tags":{},"related":[],"headers":{"Return-Path":"<gcc-patches-return-461719-incoming=patchwork.ozlabs.org@gcc.gnu.org>","X-Original-To":"incoming@patchwork.ozlabs.org","Delivered-To":["patchwork-incoming@bilbo.ozlabs.org","mailing list gcc-patches@gcc.gnu.org"],"Authentication-Results":["ozlabs.org;\n\tspf=pass (mailfrom) smtp.mailfrom=gcc.gnu.org\n\t(client-ip=209.132.180.131; helo=sourceware.org;\n\tenvelope-from=gcc-patches-return-461719-incoming=patchwork.ozlabs.org@gcc.gnu.org;\n\treceiver=<UNKNOWN>)","ozlabs.org; dkim=pass (1024-bit key;\n\tunprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org\n\theader.b=\"JAJZu0nn\"; dkim-atps=neutral","sourceware.org; auth=none"],"Received":["from sourceware.org (server1.sourceware.org [209.132.180.131])\n\t(using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256\n\tbits)) (No client certificate requested)\n\tby ozlabs.org (Postfix) with ESMTPS id 3xpYF86r8xz9s3T\n\tfor <incoming@patchwork.ozlabs.org>;\n\tFri,  8 Sep 2017 20:18:32 +1000 (AEST)","(qmail 14733 invoked by alias); 8 Sep 2017 10:18:25 -0000","(qmail 14337 invoked by uid 89); 8 Sep 2017 10:18:24 -0000","from rock.gnat.com (HELO rock.gnat.com) (205.232.38.15) by\n\tsourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP;\n\tFri, 08 Sep 2017 10:18:20 +0000","from localhost (localhost.localdomain [127.0.0.1])\tby\n\tfiltered-rock.gnat.com (Postfix) with ESMTP id 9973F56260;\n\tFri,  8 Sep 2017 06:18:18 -0400 (EDT)","from rock.gnat.com ([127.0.0.1])\tby localhost (rock.gnat.com\n\t[127.0.0.1]) (amavisd-new, port 10024)\twith LMTP id\n\tqi1nNNRdFPsU; Fri,  8 Sep 2017 06:18:18 -0400 (EDT)","from tron.gnat.com (tron.gnat.com [205.232.38.10])\tby\n\trock.gnat.com (Postfix) with ESMTP id 85D6A56126;\n\tFri,  8 Sep 2017 06:18:18 -0400 (EDT)","by tron.gnat.com (Postfix, from userid 4192)\tid 8278D505;\n\tFri,  8 Sep 2017 06:18:18 -0400 (EDT)"],"DomainKey-Signature":"a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id\n\t:list-unsubscribe:list-archive:list-post:list-help:sender:date\n\t:from:to:cc:subject:message-id:mime-version:content-type; q=dns;\n\ts=default; b=ABAxL40NK1mNI/YqFOBuHpSOY5pflpH2yapLzixRfIiDlnysrR\n\t33IfRAJy+PxYm0WUyPqbx+mKMa7CWyqA7Y/EvhwwS1pTYriiICA6UPYFsaVwl2ht\n\tOGFOmyY8YcoHpk/2ONRpiwHXgBYCqD+04rifcA+9zoei7+MHpHkmk+xuE=","DKIM-Signature":"v=1; a=rsa-sha1; c=relaxed; d=gcc.gnu.org; h=list-id\n\t:list-unsubscribe:list-archive:list-post:list-help:sender:date\n\t:from:to:cc:subject:message-id:mime-version:content-type; s=\n\tdefault; bh=LGnU7HkpWiDlW+i0R13S88SmCtU=; b=JAJZu0nn8TCgUoOjevGG\n\tFxokvYgZ6fkR5fr4p+CMUe/6KmpxupQmSfjy+oHDWFj2EMNxNGEdWKXnkkt1n53V\n\t/bWnXWgduruA9s3HAfN0rIC4hQQW6dXsNd/bSmLb45ui47u+AP5VN4/C/UOcUIIs\n\tE3BxsAyPFKHv/str4vemWoE=","Mailing-List":"contact gcc-patches-help@gcc.gnu.org; run by ezmlm","Precedence":"bulk","List-Id":"<gcc-patches.gcc.gnu.org>","List-Unsubscribe":"<mailto:gcc-patches-unsubscribe-incoming=patchwork.ozlabs.org@gcc.gnu.org>","List-Archive":"<http://gcc.gnu.org/ml/gcc-patches/>","List-Post":"<mailto:gcc-patches@gcc.gnu.org>","List-Help":"<mailto:gcc-patches-help@gcc.gnu.org>","Sender":"gcc-patches-owner@gcc.gnu.org","X-Virus-Found":"No","X-Spam-SWARE-Status":"No, score=-11.2 required=5.0 tests=AWL, BAYES_00,\n\tGIT_PATCH_2, GIT_PATCH_3, RCVD_IN_DNSWL_NONE,\n\tSPF_PASS autolearn=ham version=3.3.2 spammy=","X-HELO":"rock.gnat.com","Date":"Fri, 8 Sep 2017 06:18:18 -0400","From":"Arnaud Charlet <charlet@adacore.com>","To":"gcc-patches@gcc.gnu.org","Cc":"Bob Duff <duff@adacore.com>","Subject":"[Ada] Compiler crash on mixed-case source file names","Message-ID":"<20170908101818.GA47026@adacore.com>","MIME-Version":"1.0","Content-Type":"multipart/mixed; boundary=\"u3/rZRmxL6MmkK24\"","Content-Disposition":"inline","User-Agent":"Mutt/1.5.23 (2014-03-12)"},"content":"This patch fixes a bug in which if mixed-case file names are used, and a\nfile name contains any of the capital letters 'U', 'W', 'Q', or 'O',\nthen in rare cases the compiler can crash. No small test is available.\n\nTested on x86_64-pc-linux-gnu, committed on trunk\n\n2017-09-08  Bob Duff  <duff@adacore.com>\n\n\t* exp_intr.adb (Add_Source_Info): Do not decode\n\tfile names; they were not encoded in the first place.","diff":"Index: exp_intr.adb\n===================================================================\n--- exp_intr.adb\t(revision 251883)\n+++ exp_intr.adb\t(working copy)\n@@ -125,7 +125,7 @@\n             Append (Buf, Nat (Get_Logical_Line_Number (Loc)));\n \n          when Name_File =>\n-            Append_Decoded (Buf, Reference_Name (Get_Source_File_Index (Loc)));\n+            Append (Buf, Reference_Name (Get_Source_File_Index (Loc)));\n \n          when Name_Source_Location =>\n             Build_Location_String (Buf, Loc);\n","prefixes":["Ada"]}