paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 03:50:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Don't inline ioresult. It's not speed critical and inlining it causes

Browse Source 
code bloat.

git-svn-id: trunk@11596 -
This commit is contained in:
Jonas Maebe 2008-08-16 20:51:52 +00:00
parent 76ce35b905
commit 7b467fa2a0
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/system.inc
View File

@ -648,7 +648,7 @@ begin
end;
Function IOResult:Word;{$ifdef SYSTEMINLINE}inline;{$endif}
Function IOResult:Word;
var
HInoutRes : PWord;
Begin

2
rtl/inc/systemh.inc
View File

@ -880,7 +880,7 @@ function get_frame:pointer;{$ifdef SYSTEMINLINE}inline;{$endif}
function get_caller_addr(framebp:pointer):pointer;
function get_caller_frame(framebp:pointer):pointer;
Function IOResult:Word;{$ifdef SYSTEMINLINE}inline;{$endif}
Function IOResult:Word;
Function Sptr:Pointer;[internconst:fpc_in_const_ptr];
{$ifdef FPC_HAS_FEATURE_PROCESSES}