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

FreeBSD CSU fixes

Browse Source 
* Assembler blocks in non-pure assembler functions must always declare all
changed registers
* argc is read as *(long*) in C -> changed plongint to pptrint
* fixed ident section
This commit is contained in:
Jonas Maebe 2021-11-27 12:01:47 +01:00
parent 9314bbbf08
commit e1a739d15d
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/freebsd/x86_64/reloc.inc
View File

@ -41,12 +41,12 @@ const R_X86_64_IRELATIVE = 37;
procedure freebsdIdentTag;nostackframe;assembler;
asm
.section ".note.openbsd.ident", "a"
.section ".note.tag", "a"
.p2align 2
.long 8
.long 4
.long 1
.asciz "OpenBSD"
.asciz "FreeBSD"
.long 0
.text
@ -61,27 +61,28 @@ end;
procedure do_cpuid(funcnr : integer; var p);
begin
asm
mov rax,rdi
mov rax,funcnr
cpuid
mov rsi,@p
mov [rsi],eax
mov [rsi+4],ebx
mov [rsi+8],ecx
mov [rsi+12],edx
end['rbx']; // rbx is callee saved in sysv
end['rax','rbx','rcx','rdx','rsi'];
end;
procedure cpuid_count(funcnr : integer;count:integer;var p);
begin
asm
mov rax,rdi // funcnr
mov rcx,rsi // count
mov rsi,rdx // save pointer since cpuid destroys edx
mov rax,funcnr
mov rcx,count
mov rsi,@p
cpuid
mov [rsi],eax
mov [rsi+4],ebx
mov [rsi+8],ecx
mov [rsi+12],edx
end['rbx'];
end['rax','rbx','rcx','rdx','rsi'];
end;
procedure crt1_handle_rela(r : pelf_rela);

2
rtl/freebsd/x86_64/si_c.inc
View File

@ -21,7 +21,7 @@ var argc: longint;
env : ppchar;
s : pchar;
begin
argc:=plongint(ap)^;
argc:=pptrint(ap)^;
argv:=ppchar(ap[1]);
env:= ppchar(ap[2+argc]);
environ:=env;