Re-hello.
To resume.
Here what is working perfectly for me:
{$IF DEFINED(freebsd)}
...
var
ap1 : pointer;
begin
ap1 := dlopen(Pchar(mp4ff), 1);
Pointer(mp4ff_open_read) := dlsym(ap1, pchar('mp4ff_open_read'));
...
{$else}
...
var
an1 : integer;
begin
an1 := DynLibs.SafeLoadLibrary(PChar(mp4ff));
Pointer(mp4ff_open_read) := GetProcAddress(an1,
pchar('mp4ff_open_read'));
...
{$endif}
Fre;D
-----
Many thanks ;-)
--
View this message in context:
http://free-pascal-general.1045716.n5.nabble.com/Mangle-name-in-fpc-FreeBSD-tp5724528p5724601.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
