Doppelte external Funktion wird falsch aufgerufen

[Mathias]

Folgendes Programm lösten eine Runtime Error 207 aus.
Ich bin beim Fehlersuchen auf folgendes gestossen, SDL_log gibt es bei SDL3 zweimal. Einmal wird es gebraucht als Log-Info-Ausgabe, das andere mal als Mathefunktion. Einziger feiner Unterschied C-Seitig, Log ist einmal goss und andere mal klein geschrieben.
Aber FPC ruft die falsche Funktion aus.

Code: Alles auswählen

uses
  //  SDL3,
  ctypes;

  {$LinkLib 'SDL3'}

  // Mathe Funktion
  function SDL_log(x: cdouble): cdouble; cdecl; external;
  function SDL_cos(x: cdouble): cdouble; cdecl; external;

  // Log Info Ausgabe
  procedure SDL_Log(fmt: PChar); varargs; cdecl; external;

begin
  WriteLn(SDL_log(12.45));  // geht

  SDL_Log('%ix%i', 123, 456);  // Runtime 207
  SDL_Log('log 1');

  SDL_cos('abc');             // Error: Incompatible type for arg no. 1: Got "Constant String", expected "Double"
  SDL_cos(PChar('abc'));      // Error: Incompatible type for arg no. 1: Got "PChar", expected "Double"
  SDL_cos('%ix%i', 123, 456); // Error: Wrong number of parameters specified for call to "SDL_cos"
end.

Sobald ich die externe Mathefunktion entferne, funktioniert es wie erwartet. Somit ist meine Vermutung das FPC bei "SDL_Log('%ix%i', 123, 456);" die Mathe Funktion aufruft. Aber dies dürfte eigentlich gar nicht sein, da keinen cdouble sondern ein PChar habe. Auch habe ich mehr als 1 Argument, somit müsste für den Compiler eigentlich klar sein, welches sdl_log er nehmen muss

Als Test habe ich noch SDL_cos versucht, da motzt der Compiler wie erartet, wen ich eine PChar mitgeben will.
Entferne ich die Zeile mit SDL_Log und dem Pchar, motz er wie bei SDL_cos.

Ist dies ein Bug oder ist dies so gewollt ?

[AlterPascaler]

Hallo,

hilft dir vielleicht das hier.
https://www.freepascal.org/docs-html/pr ... su146.html

3. The external can also be used with two arguments:
Procedure ProcName (Args : TPRocArgs); external 'Name'
name 'OtherProcName';

[Mathias]

Ich vermute das ich es so machen muss.

So würde es gehen.

Code: Alles auswählen

  function SDL_log_m(x: cdouble): cdouble; cdecl; external name 'SDL_log';

Aber irgendwie sieht es nach einem Bug aus, das der Compiier so was merkwürdiges macht. er kann do nich einfach eine PChar an einem double übergeben.

[AlterPascaler]

Kein schönes Verhalten, sehe ich auch so. Vielleicht meldest du das mal bei den FreePascal'ern.
Aber eine schnelle Änderung wird es wahrscheinlich nicht geben.

[Mathias]

Vielleicht meldest du das mal bei den FreePascal'ern.

Wir sind doch im Forum von FPC.

[AlterPascaler]

Nun, ich dachte hier:https://gitlab.com/freepascal.org/fpc/source
Ein Ticket eröffnen.

[Mathias]

Nun, ich dachte hier:https://gitlab.com/freepascal.org/fpc/source
Ein Ticket eröffnen.

Habe gerade einen eröffnet:
https://gitlab.com/freepascal.org/fpc/s ... sues/40717

[AlterPascaler]

Toll, ich bin gespannt. Poste bitte das Ergebnis.
Gruß
AP

[Mathias]

Code: Alles auswählen

  function SDL_log(x: cdouble): cdouble; cdecl; external name 'SDL_log';
  procedure SDL_Log(fmt: PChar); varargs; cdecl; external name 'SDL_Log';
...
  SDL_Log('%ix%i', 123, 456);
  SDL_Log('log 1');
  SDL_Log('double: %f', SDL_log(12.34));

Mit diesem Code würde es funktionieren, wen ich "SDL_log" und "SDL_Log" erzwinge.

Aber sauber ist es trotzdem nicht, wen der Compiler double und pchar verwechselt.

[AlterPascaler]

Mit diesem Code würde es funktionieren, wen ich "SDL_log" und "SDL_Log" erzwinge.

Was meinst du mit "erzwinge"? Reicht schon die "external name" Deklaration?

[Mathias]

Ich habe gerad noch ein merkwürdiges verhalten gefunden.

Mache ich es so, läuft alles wie erwartet,

Code: Alles auswählen

  function SDL_cos(x: double): double; cdecl; external libSDL3;
...
  WriteLn(SDL_cos(12.34));

Mache ich es so, dann motzt der Linker, man beachte das grosse C bei Cos.

Code: Alles auswählen

  function SDL_Cos(x: double): double; cdecl; external libSDL3;

Bei dem obigen Beispiel mit SDL_Log, kann er nicht zwischen dem kleinen und grossen "L" unterschieden.
Ober beim "C" von Cos motzt er, wen es gross ist.

Code: Alles auswählen

Project1.pas(29,1) Error: (.text.n_main+0x1ad): undefined reference to `SDL_Cos'

Irgendwie verstehe ich das ganze nicht mehr,

[AlterPascaler]

Wenn ich das richtig verstehe, sind external function name case-sensitive.

"This can be used to give different names to procedures and functions in an external library. The name of the routine is case-sensitive and should match exactly the name of the routine in the object file."

https://www.freepascal.org/docs-html/pr ... su146.html

Somit ist dann ja logisch, das der Linker "SDL_Cos" nicht findet.

Gruß
AP