paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Removed foolish inline from StripLabelFast

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-04-16 06:56:58 +01:00 committed by FPK
parent 5cdef8050b
commit 6af886c2b9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aoptobj.pas
View File

@ -405,7 +405,7 @@ Unit AoptObj;
{ Strips a label and any aligns that appear before it (if hp points to { Strips a label and any aligns that appear before it (if hp points to
them rather than the label). Only call this procedure on a label that them rather than the label). Only call this procedure on a label that
you already know is no longer referenced } you already know is no longer referenced }
procedure StripLabelFast(hp: tai); {$ifdef USEINLINE}inline;{$endif USEINLINE} procedure StripLabelFast(hp: tai);
{ Checks and removes "jmp @@lbl; @lbl". Returns True if the jump was removed } { Checks and removes "jmp @@lbl; @lbl". Returns True if the jump was removed }
function CollapseZeroDistJump(var p: tai; ThisLabel: TAsmLabel): Boolean; function CollapseZeroDistJump(var p: tai; ThisLabel: TAsmLabel): Boolean;
@ -1928,7 +1928,7 @@ Unit AoptObj;
{ Strips a label and any aligns that appear before it (if hp points to { Strips a label and any aligns that appear before it (if hp points to
them rather than the label). Only call this procedure on a label that them rather than the label). Only call this procedure on a label that
you already know is no longer referenced } you already know is no longer referenced }
procedure TAOptObj.StripLabelFast(hp: tai); {$ifdef USEINLINE}inline;{$endif USEINLINE} procedure TAOptObj.StripLabelFast(hp: tai);
var var
tmp: tai; tmp: tai;
begin begin