paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 21:20:29 +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 type
cint = LongInt; cint = LongInt;
u_long = QWord; { u_long = QWord;
TCdeclProcedure = procedure; cdecl; TCdeclProcedure = procedure; cdecl;}
var {var
_etext: Byte; external name '_etext'; _etext: Byte; external name '_etext';
_eprol: Byte; external name '_eprol'; _eprol: Byte; external name '_eprol';}
{procedure _mcleanup; cdecl; external name '_mcleanup'; {procedure _mcleanup; cdecl; external name '_mcleanup';
function atexit(proc: TCdeclProcedure): cint; cdecl; external name 'atexit'; 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'; procedure _FPC_proc_haltproc; noreturn; public name '_haltproc';
begin begin
c_exit(operatingsystem_result);
end; end;
function _strrchr(str: PChar; character: LongInt): PChar; public name '_strrchr'; 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; until str^=#0;
end; end;
procedure MD_EPROL_LABEL; assembler; nostackframe; public name '_eprol'; {procedure MD_EPROL_LABEL; assembler; nostackframe; public name '_eprol';
asm asm
end; end;}