---

graydon · graydon · commit 1a0a6ba0d2d3 · 2010-08-11T14:27:47.000-07:00
yaml --- r: 487 b: refs/heads/master c: bf341f8 h: refs/heads/master i: 485: 9dfd602 483: 0f34f13 479: 2c703d7 v: v3
diff --git a/[refs] b/[refs]
@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 60e5ad384e6b748a780148e9232b9bb44cd08cec
+refs/heads/master: bf341f829bd71aeb5e0a9ee2b7b32c7d42e08564
diff --git a/trunk/src/boot/me/dwarf.ml b/trunk/src/boot/me/dwarf.ml
@@ -2176,14 +2176,8 @@ let dwarf_visitor
   in
 
   let addr_ranges (fix:fixup) : frag =
-    let image_is_relocated =
-      match cx.ctxt_sess.Session.sess_targ with
-          Win32_x86_pe ->
-            cx.ctxt_sess.Session.sess_library_mode
-        | _ -> true
-    in
     let lo =
-      if image_is_relocated
+      if cx.ctxt_sess.Session.sess_library_mode
       then image_base_rel fix
       else M_POS fix
     in

Original file line number	Diff line number	Diff line change
`@@ -1,2 +1,2 @@`
`1`	`1`	`---`
`2`		`-refs/heads/master: 60e5ad384e6b748a780148e9232b9bb44cd08cec`
	`2`	`+refs/heads/master: bf341f829bd71aeb5e0a9ee2b7b32c7d42e08564`