Guten Morgen,

ich habe meine Testbibliothek aus diesem Thread etwas erweitert mit einer Variable:

zusammenfalten · markieren

Delphi-Quellcode:

{$mode objfpc}{$longstrings on}

unit CrayLib;

interface

uses CrayInter;

type
   TPowerstaff = class(TInterfacedObject, IPowerstaff)
   public
      procedure Writeln(s: pchar);
   end;
   
procedure Hello;
procedure Bye;
function RequestStaff: IPowerstaff;

implementation

var
   FAppRunning: Boolean;

procedure TPowerstaff.Writeln(s: pchar);
begin
   System.WriteLn(String(s));
end;

procedure Hello;
begin
   if FAppRunning then WriteLn('Error: Application is already running!');
   FAppRunning := true;
end;

procedure Bye;
begin
   if not FAppRunning then WriteLn('Error: Application isn''t running!');
   FAppRunning := false;
end;

function RequestStaff: IPowerstaff;
begin
   Result := TPowerstaff.Create;
end;

initialization
   FAppRunning := false;
end.

// --------------------------------------

library Cray;

uses CrayLib, CrayInter;

procedure println(s: pchar); deprecated;
begin
   WriteLn(String(s));
end;

exports println, bye name 'cfbye', hello name 'cfhello', RequestStaff name 'reqpow';

end.

Leider wird daraus nichts:

markieren

Code:

/usr/bin/ld: CrayLib.o: relocation R_X86_64_32S against `U_CRAYLIB_FAPPRUNNING' can not be used when making a shared object; recompile with -fPIC

Wenn ich alle Zeilen auskommentiere, in denen die Variable benutzt wird, gibt es keine Probleme.

Was kann ich machen?

Zitat von /usr/bin/ld:

recompile with -fPIC

Ohne zu wissen, was dann passiert: Hast du das mal probiert?

PS: Habe was dazu gefunden.

Das Flag ist aber für gcc, beim FPC bringt das nichts.

hilft das weiter?
http://bugs.freepascal.org/view.php?id=12940
http://lists.freepascal.org/lists/fp...er/027228.html

ansonsten würd ich an deiner Stelle mal in der FPC Mailinglist fragen

PIC == Position Independent Code

Im Windows-Jargon heißt das "relozierbar". Ob es nun in FPC eine Option dazu gibt, weiß ich nicht.

Zitat von implementation:

Das Flag ist aber für gcc, beim FPC bringt das nichts.

*hust*

markieren

Code:

[sven@artemis ~]$ fpc -h | grep -i pic
      -Cg       Generate PIC code
  -fPIC Same as -Cg

Und ja, der Schalter funktioniert.

Gruß,
Sven

Es läuft!

Vielen Dank