+
+ if (TARGET_MULTIPLE_EH_FRAME_SECTIONS
+ && (flags & DWARF2_EH_FRAME_READ_ONLY))
+ {
+ const frchainS *ifrch = seg_info (iseg)->frchainP;
+ const frchainS *frch = seg_info (cseg)->frchainP;
+ expressionS exp;
+
+ exp.X_op = O_symbol;
+ exp.X_add_symbol = (symbolS *) local_symbol_make (cseg->name, cseg, frch->frch_root, 0);
+ exp.X_add_number = 0;
+ subseg_set (iseg, ifrch->frch_subseg);
+ fix_new_exp (ifrch->frch_root, 0, 0, &exp, 0, BFD_RELOC_NONE);
+
+ /* Restore the original segment info. */
+ subseg_set (cseg, l->subseg);
+ }