paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cleanup

Browse Source 
git-svn-id: branches/debug_eh@41309 -
This commit is contained in:
florian 2019-02-11 20:33:50 +00:00
parent 3b77146e1c
commit a91f009b7e
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/psabieh.inc
View File

@ -570,11 +570,6 @@ function FPC_psabieh_find_action_record(const info: FPC_psabieh_lsda_header_info
writeln('find action record: cs_start: $',hexstr(cs_start,sizeof(cs_start)*2),', len: ',cs_len,', lp: ', cs_lp,' action ofs: ',cs_action);
{$endif}
// The table is sorted, so if we've passed the ip, stop.
{$ifdef dummy}
{ if ip<(info.Start+cs_start) then
p:=info.action_table
else } if (ip>=(info.Start+cs_start)) and (ip<(info.Start+cs_start+cs_len)) then
{$endif dummy}
if ip<(info.Start+cs_start) then
p:=info.action_table
else if (ip<(info.Start+cs_start+cs_len)) then