|
@@ -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;}
|
|
|