paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 19:10:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed error, caused by double definition of operatingsystem_result

Browse Source 
git-svn-id: trunk@41701 -
This commit is contained in:
nickysn 2019-03-14 17:33:44 +00:00
parent caf1b11db9
commit 29557b97fb
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/openbsd/si_impl.inc
View File

@ -13,3 +13,6 @@
**********************************************************************}
procedure PascalMain; external name 'PASCALMAIN';
var
operatingsystem_result: longint; external name 'operatingsystem_result';

1
rtl/openbsd/si_intf.inc
View File

@ -20,7 +20,6 @@ var
operatingsystem_parameter_envp: ppchar; public name 'operatingsystem_parameter_envp';
operatingsystem_parameter_argc: longint; public name 'operatingsystem_parameter_argc';
operatingsystem_parameter_argv: ppchar; public name 'operatingsystem_parameter_argv';
operatingsystem_result: word; public name 'operatingsystem_result';
environ: ppchar; public name 'environ';
__progname: pchar = ''; public name '__progname';
__progname_storage: array [0..255] of char; public name '__progname_storage';

2
rtl/openbsd/x86_64/si_prc.inc
View File

@ -118,7 +118,7 @@ procedure _FPC_proc___start; assembler; nostackframe; public name '___start';
procedure _FPC_proc_haltproc; assembler; nostackframe; public name '_haltproc';
asm
movq $1,%rax
movzwq operatingsystem_result(%rip),%rbx
movl operatingsystem_result(%rip),%ebx
pushq %rbx
call .Lactualsyscall
addq $8,%rsp