Browse Source

- removed commented out gprof code from si_c.inc

git-svn-id: trunk@41761 -
nickysn 6 years ago
parent
commit
7638a9b7e1
1 changed files with 0 additions and 13 deletions
  1. 0 13
      rtl/openbsd/x86_64/si_c.inc

+ 0 - 13
rtl/openbsd/x86_64/si_c.inc

@@ -16,13 +16,6 @@
 
 
 {$asmmode gas}
 {$asmmode gas}
 
 
-{var
-  _etext: Byte; external name '_etext';
-  _eprol: Byte; external name '_eprol';}
-
-{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 __init; cdecl; external name '__init';
 procedure __init; cdecl; external name '__init';
 procedure c_exit(exit_code: cint); cdecl; noreturn; external name 'exit';
 procedure c_exit(exit_code: cint); cdecl; noreturn; external name 'exit';
 
 
@@ -69,8 +62,6 @@ procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; para1, p
         __progname_storage[I]:=#0;
         __progname_storage[I]:=#0;
         __progname:=@__progname_storage;
         __progname:=@__progname_storage;
       end;
       end;
-{    atexit(@_mcleanup);
-    monstartup(u_long(@_eprol),u_long(@_etext));}
     __init;
     __init;
     PascalMain;
     PascalMain;
     c_exit(operatingsystem_result);
     c_exit(operatingsystem_result);
@@ -91,7 +82,3 @@ function _strrchr(str: PChar; character: LongInt): PChar; public name '_strrchr'
         Inc(str);
         Inc(str);
     until str^=#0;
     until str^=#0;
   end;
   end;
-
-{procedure MD_EPROL_LABEL; assembler; nostackframe; public name '_eprol';
-  asm
-  end;}