public ausserhalb von Klassen

[Mathias]

Ich habe gerade ein public ausserhalb einer Klasse entdeckt.
Für was kann man dies gebrauchen ?

Code: Alles auswählen

program Project1;
var
  test: integer; public; // ?
begin
  test:=123;
  WriteLn(test);
end.

[Zvoni]

So wie ich es verstanden habe (und dein Beispiel-Code ist dafür ungeeignet):
https://www.freepascal.org/docs-html/ref/refse22.html
Die Variable bekommt in Assembler denselben Namen wie in deinem Quellcode und wird für anderen Assembler-Code zugänglich.
Bin mir jetzt nur nicht sicher, ob case-sensitive oder nicht (das mit dem cvar)

Kann mich aber auch irren...

[corpsman]

Ich kenne das public auch noch, wenn man funktionen für den Linker eindeutig machen will, ebenfalls zur C Kompatibilität..

Code: Alles auswählen

Procedure __assert_func(bool: cbool); cdecl public name{$IFDEF CPU64} '__assert_func'{$ELSE} '___assert_func'{$ENDIF};
Begin
  Raise Exception.create('C-Assert failed');
End; 

[Mathias]

So wie ich es verstanden habe (und dein Beispiel-Code ist dafür ungeeignet):
https://www.freepascal.org/docs-html/ref/refse22.html
Die Variable bekommt in Assembler denselben Namen wie in deinem Quellcode und wird für anderen Assembler-Code zugänglich.
Bin mir jetzt nur nicht sicher, ob case-sensitive oder nicht (das mit dem cvar)

Kann mich aber auch irren...

Wen ich das richtig lese, es es public das Gegenstück von external.
Was mich dabei aber verwundert, wieso generiert die h2pas sowas ?
Müsste dies nicht external anstelle von public nehmen ?

[PascalDragon]

Was mich dabei aber verwundert, wieso generiert die h2pas sowas ?

Wie schaut der entsprechende C-Code aus, der das generiert?

[corpsman]

Wen ich das richtig lese, es es public das Gegenstück von external.

Ja so könnte man das durchaus sehen.
Mit dem von mir gezeigten code ist der C-Code in der Lage direkt eine FPC funktion auf zu rufen, die nur via .h file bekannt gemacht wurde.

[Mathias]

Wie schaut der entsprechende C-Code aus, der das generiert?

Code: Alles auswählen

 const guint glib_major_version;
 const guint glib_minor_version;
 const guint glib_micro_version;
 const guint glib_interface_age;
 const guint glib_binary_age;

Code: Alles auswählen

  var
    glib_major_version : Tguint;cvar;public;
    glib_minor_version : Tguint;cvar;public;
    glib_micro_version : Tguint;cvar;public;
    glib_interface_age : Tguint;cvar;public;
    glib_binary_age : Tguint;cvar;public;    

[PascalDragon]

Wie schaut der entsprechende C-Code aus, der das generiert?

Code: Alles auswählen

 const guint glib_major_version;
 const guint glib_minor_version;
 const guint glib_micro_version;
 const guint glib_interface_age;
 const guint glib_binary_age;

Verständlich, dass h2pas, dann ein public draus macht, denn korrekterweise sollten externe Verweise in C ein extern haben, gcc und MSVC sind da aber etwas nachsichtig. clang zum Beispiel ist da um einiges weniger nachsichtig und wird das als Variablendeklaration ansehen, was dann entsprechend zu anderen Fehlern (spätestens zur Laufzeit) führen kann/wird.