* fixed base segment calculation on i8086 (code moved after call to OpenDwarf,

  because it needs to have e.processsegment initialized)

git-svn-id: trunk@39114 -

rtl/inc/lnfodwrf.pp

@@ -1298,6 +1298,9 @@ begin
   source := '';
   GetLineInfo:=false;
 
+  if not OpenDwarf(codepointer(addr)) then
+    exit;
+
 {$ifdef CPUI8086}
   {$if defined(FPC_MM_MEDIUM) or defined(FPC_MM_LARGE) or defined(FPC_MM_HUGE)}
     segment := (addr shr 16) - e.processsegment;
@@ -1307,9 +1310,6 @@ begin
   {$endif}
 {$endif CPUI8086}
 
-  if not OpenDwarf(codepointer(addr)) then
-    exit;
-
   addr := addr - e.processaddress;
 
   current_offset := Dwarf_Debug_Line_Section_Offset;