From a667697f36ef4f910e09c4a02f34a44fa3e86157 Mon Sep 17 00:00:00 2001
From: Mark Harmstone <mark@harmstone.com>
Date: Mon, 26 Dec 2022 20:47:51 +0000
Subject: ld/testsuite: Don't add index to sizes in pdb.exp

---
 ld/testsuite/ld-pe/pdb.exp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ld/testsuite/ld-pe/pdb.exp b/ld/testsuite/ld-pe/pdb.exp
index b201631..60aa39a 100644
--- a/ld/testsuite/ld-pe/pdb.exp
+++ b/ld/testsuite/ld-pe/pdb.exp
@@ -256,8 +256,8 @@ proc check_dbi_stream { pdb } {
     set data [read $fi 4]
     binary scan $data i type_server_map_size
 
-    set data [read $fi 4]
-    binary scan $data i mfc_type_server_index
+    # skip MFC type server index
+    seek $fi 4 current
 
     set data [read $fi 4]
     binary scan $data i optional_dbg_header_size
@@ -271,7 +271,7 @@ proc check_dbi_stream { pdb } {
 
     set stream_length [file size tmpdir/0003]
 
-    if { $stream_length != [expr 0x40 + $mod_info_size + $section_contribution_size + $section_map_size + $source_info_size + $type_server_map_size + $mfc_type_server_index + $optional_dbg_header_size + $ec_substream_size] } {
+    if { $stream_length != [expr 0x40 + $mod_info_size + $section_contribution_size + $section_map_size + $source_info_size + $type_server_map_size + $optional_dbg_header_size + $ec_substream_size] } {
 	return 0
     }
 
-- 
cgit v1.1