paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 14:48:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@25503 -
This commit is contained in:
nickysn 2013-09-16 19:58:45 +00:00
parent 3bc89a50ed
commit 8608969eb8
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/nx86set.pas
View File

@ -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;