[binutils-gdb] Handle CRLF when reading XML on Windows

[gdb-buildbot@sergiodj.net]

*** TEST RESULTS FOR COMMIT f69656d00fe3154519ea21668d964bf8cc50c01b ***

commit f69656d00fe3154519ea21668d964bf8cc50c01b
Author:     Tom Tromey <tromey@adacore.com>
AuthorDate: Tue Dec 10 11:44:36 2019 -0700
Commit:     Tom Tromey <tromey@adacore.com>
CommitDate: Thu Dec 19 10:00:05 2019 -0700

    Handle CRLF when reading XML on Windows
    
    xml-support.c uses FOPEN_RT, but then reads the entire contents of the
    file and verifies that the number of bytes read matches the length.
    This can fail on Windows, where the read will translate line
    terminators.
    
    This patch fixes the bug by changing xml-support.c to use FOPEN_RB.
    This works because expat correctly handles \r\n line terminators.
    
    gdb/ChangeLog
    2019-12-11  Tom Tromey  <tromey@adacore.com>
    
            * xml-support.c (xml_fetch_content_from_file): Use FOPEN_RB.
    
    gdb/testsuite/ChangeLog
    2019-12-11  Tom Tromey  <tromey@adacore.com>
    
            * gdb.xml/tdesc-arch.exp (set_arch): Add "trans_mode" parameter.
            Add crlf test.
    
    Change-Id: I548438f33eed284dde1de8babf755eaa1a40319d

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 8e38ada5ea..532dc6373a 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2019-12-11  Tom Tromey  <tromey@adacore.com>
+
+	* xml-support.c (xml_fetch_content_from_file): Use FOPEN_RB.
+
 2019-12-18  Tom Tromey  <tromey@adacore.com>
 
 	PR build/25268:
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 1079e71c84..4f8d8517e3 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2019-12-11  Tom Tromey  <tromey@adacore.com>
+
+	* gdb.xml/tdesc-arch.exp (set_arch): Add "trans_mode" parameter.
+	Add crlf test.
+
 2019-12-18  Simon Marchi  <simon.marchi@efficios.com>
 
 	* gdb.base/default.exp: Update value of $_gdb_major.
diff --git a/gdb/testsuite/gdb.xml/tdesc-arch.exp b/gdb/testsuite/gdb.xml/tdesc-arch.exp
index 617ab0616b..d98e50e562 100644
--- a/gdb/testsuite/gdb.xml/tdesc-arch.exp
+++ b/gdb/testsuite/gdb.xml/tdesc-arch.exp
@@ -55,13 +55,16 @@ if { "$arch1" == "" || "$arch2" == "" || "$default_arch" == "" } {
 
 # Run these tests twice, once for $arch1 and once for $arch2, to
 # make sure that the tdesc file overrides the global default.
+# TRANS_MODE indicates how newlines should be represented; it should
+# be one of the values supported by "fconfigure -translation".
 
-proc set_arch { arch which } {
+proc set_arch { arch which trans_mode } {
     global gdb_prompt
     global subdir
 
     set filename [standard_output_file tdesc-arch.xml]
     set fd [open $filename w]
+    fconfigure $fd -translation $trans_mode
     puts $fd \
 	"<target>
 	    <architecture>$arch</architecture>
@@ -92,8 +95,13 @@ proc set_arch { arch which } {
     remote_file host delete $filename
 }
 
-set_arch $arch1 first
-set_arch $arch2 second
+set_arch $arch1 first lf
+set_arch $arch2 second lf
+
+with_test_prefix crlf {
+    set_arch $arch1 first crlf
+    set_arch $arch2 second crlf
+}
 
 # Check an invalid architecture setting.
 set filename [standard_output_file tdesc-arch.xml]
diff --git a/gdb/xml-support.c b/gdb/xml-support.c
index f5a1427545..0f0806f8ee 100644
--- a/gdb/xml-support.c
+++ b/gdb/xml-support.c
@@ -977,11 +977,11 @@ xml_fetch_content_from_file (const char *filename, void *baton)
     {
       char *fullname = concat (dirname, "/", filename, (char *) NULL);
 
-      file = gdb_fopen_cloexec (fullname, FOPEN_RT);
+      file = gdb_fopen_cloexec (fullname, FOPEN_RB);
       xfree (fullname);
     }
   else
-    file = gdb_fopen_cloexec (filename, FOPEN_RT);
+    file = gdb_fopen_cloexec (filename, FOPEN_RB);
 
   if (file == NULL)
     return {};