paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 20:18:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also consider jump tables embedded in the code when calculating the

Browse Source 
distance between a jump and its target

git-svn-id: trunk@11022 -
This commit is contained in:
Jonas Maebe 2008-05-21 15:03:31 +00:00
parent 6d9eeaf0f0
commit 942c91afad
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ppcgen/aasmcpu.pas
View File

@ -504,8 +504,17 @@ uses cutils, cclasses;
labelpositions.count := tai_label(p).labsym.labelnr * 2; labelpositions.count := tai_label(p).labsym.labelnr * 2;
labelpositions[tai_label(p).labsym.labelnr] := pointer(instrpos); labelpositions[tai_label(p).labsym.labelnr] := pointer(instrpos);
end; end;
if p.typ = ait_instruction then { ait_const is for jump tables }
case p.typ of
ait_instruction:
inc(instrpos); inc(instrpos);
ait_const:
begin
if (tai_const(p).consttype<>aitconst_32bit) then
internalerror(2008052101);
inc(instrpos);
end;
end;
p := tai(p.next); p := tai(p.next);
end; end;
@ -571,6 +580,8 @@ uses cutils, cclasses;
end; end;
end; end;
end; end;
ait_const:
inc(instrpos);
end; end;
p := tai(p.next); p := tai(p.next);
end; end;