Platform eXtended Library on aarch64

[ertank]

Hello,

I wonder if someone already has a solution for compiling subject library.
It has some Pi 2 (ARMv7) assembler instructions not compiling under 64 bit OS.

PXL.Boards.RPi.pas: line 383:

Code: [Select]

procedure WriteMemSafe(const Address: Pointer; const Value: Cardinal);
asm
{$IFDEF RPi2}
  dmb
  str r1, [r0]
  dmb
{$ELSE}
  str r1, [r0]
  str r1, [r0]
{$ENDIF}
end;

I get Unknown identifier "R1" compiler error and I don't know assembler and just stuck when I wanted to modify an older project.

Any help is appreciated.

Thanks & Regards,
Ertan

[DonAlfredo]

Code: Pascal  [Select][+][-]

1. If you feel lucky, try to replace r[#] with x[#].

[ertank]

Thank you.
This fixed the compiler error.
But, I am stuck with the /dev/gpiomem access
Searching for additional help in here: https://forums.raspberrypi.com/viewtopic.php?t=366809

[DonAlfredo]

You might have a look at this c-code.
https://github.com/joan2937/pigpio/blob/c33738a320a3e28824af7807edafda440952c05d/pigpio.c#L13773
Look at pi_peri_phys.

[pascalbythree]

Code: Pascal  [Select][+][-]

1. procedure WriteMemSafe(const Address: Pointer; const Value: Cardinal);
2. asm
3. {$IFDEF RPi2}
4.   dmb
5.   str   r1, [r0]
6.   dmb
7. {$ELSE}
8.   str   r1, [r0]
9.   str   r1, [r0]
10. {$ENDIF}
11. end;
12.  
13. function ReadMemSafe(const Address: Pointer): Cardinal;
14. asm
15. {$IFDEF RPi2}
16.   dmb
17.   ldr r0, [r0]
18.   dmb
19. {$ELSE}
20.   ldr r1, [r0]
21.   ldr r0, [r0]
22. {$ENDIF}
23. end;

Can somebody please help changing this to compile PXL v1.1.0 on my Raspberry 5

Using bookworm or full ubuntu.

Code: Pascal  [Select][+][-]

1. If you feel lucky, try to replace r[#] with x[#]

Is not clear enough to compile, can somebody type it out further ?

Grtz, -=Pascalbythree=-