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

- comment out more unused gprof code

Browse Source 
git-svn-id: trunk@41746 -
This commit is contained in:
nickysn 2019-03-19 18:32:54 +00:00
parent 2960399f9a
commit fb793ff251
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/openbsd/x86_64/si_c.inc
View File

@ -18,12 +18,12 @@
type
cint = LongInt;
u_long = QWord;
TCdeclProcedure = procedure; cdecl;
{ u_long = QWord;
TCdeclProcedure = procedure; cdecl;}
var
{var
_etext: Byte; external name '_etext';
_eprol: Byte; external name '_eprol';
_eprol: Byte; external name '_eprol';}
{procedure _mcleanup; cdecl; external name '_mcleanup';
function atexit(proc: TCdeclProcedure): cint; cdecl; external name 'atexit';
@ -83,6 +83,7 @@ procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; para1, p
procedure _FPC_proc_haltproc; noreturn; public name '_haltproc';
begin
c_exit(operatingsystem_result);
end;
function _strrchr(str: PChar; character: LongInt): PChar; public name '_strrchr';
@ -96,6 +97,6 @@ function _strrchr(str: PChar; character: LongInt): PChar; public name '_strrchr'
until str^=#0;
end;
procedure MD_EPROL_LABEL; assembler; nostackframe; public name '_eprol';
{procedure MD_EPROL_LABEL; assembler; nostackframe; public name '_eprol';
asm
end;
end;}