Explorar o código

* tx86casenode.genjumptable: explicitly emit near pointers in the case jump table on i8086, regardless of the memory model

git-svn-id: trunk@25503 -
nickysn %!s(int64=12) %!d(string=hai) anos
pai
achega
8608969eb8
Modificáronse 1 ficheiros con 8 adicións e 0 borrados
  1. 8 0
      compiler/x86/nx86set.pas

+ 8 - 0
compiler/x86/nx86set.pas

@@ -85,13 +85,21 @@ implementation
             i:=last.svalue+1;
             while i<=t^._low.svalue-1 do
               begin
+{$ifdef i8086}
+                list.concat(Tai_const.Create_sym_near(elselabel));
+{$else i8086}
                 list.concat(Tai_const.Create_sym(elselabel));
+{$endif i8086}
                 inc(i);
               end;
             i:=t^._low.svalue;
             while i<=t^._high.svalue do
               begin
+{$ifdef i8086}
+                list.concat(Tai_const.Create_sym_near(blocklabel(t^.blockid)));
+{$else i8086}
                 list.concat(Tai_const.Create_sym(blocklabel(t^.blockid)));
+{$endif i8086}
                 inc(i);
               end;
             last:=t^._high;