diff options
| author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-03-19 16:51:04 +0000 |
|---|---|---|
| committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-03-19 16:51:04 +0000 |
| commit | 2995e04a48bed11f6a3c2b298223f321d37fe766 (patch) | |
| tree | c16fe6a4cfb34d811ed7ca67eb645fe0ae32bdab /rtl/openbsd | |
| parent | 9dc6bc0f727d2ea2537c8ea4f59e09b117ee3696 (diff) | |
| download | fpc-2995e04a48bed11f6a3c2b298223f321d37fe766.tar.gz | |
- don't call monstartup, because that initializes the gprof profiler and should
only be called for programs, compiled with -pg (which is not yet implemented
for the OpenBSD target and which will use a different sysinit unit for such
programs, when implemented)
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@41741 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/openbsd')
| -rw-r--r-- | rtl/openbsd/x86_64/si_c.inc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rtl/openbsd/x86_64/si_c.inc b/rtl/openbsd/x86_64/si_c.inc index 9b7fa32552..d9905133d8 100644 --- a/rtl/openbsd/x86_64/si_c.inc +++ b/rtl/openbsd/x86_64/si_c.inc @@ -25,9 +25,9 @@ var _etext: Byte; external name '_etext'; _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'; -procedure monstartup(lowpc, highpc: u_long); cdecl; external name 'monstartup'; +procedure monstartup(lowpc, highpc: u_long); cdecl; external name 'monstartup';} procedure __init; cdecl; external name '__init'; procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; para1, para2, para3: QWord); forward; @@ -73,8 +73,8 @@ procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; para1, p __progname_storage[I]:=#0; __progname:=@__progname_storage; end; - atexit(@_mcleanup); - monstartup(u_long(@_eprol),u_long(@_etext)); +{ atexit(@_mcleanup); + monstartup(u_long(@_eprol),u_long(@_etext));} __init; PascalMain; asm |