[erledigt] Linux und Abs()

[Michl]

Servus,

zum testen einer Logik eines Programms hatte ich mir in der VirtualBox diverse Linuxdistrubutionen eingerichtet. Nach diversen Tests habe ich mich für ein 64bit Debian KDE entschieden, um den Programmtest durchzuführen.
Da bei Debian per apt-get Lazarus verfügbar ist, habe ich auch gleich dieses Paket installiert (Lazarus 1.2.4+dfsg2-1 r43696 FPC 2.6.4 x86_64-linux-gtk 2).

Leider habe ich, bevor ich überhaupt loslegen kann, schon das erste Problem. Bei:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  x : QWord;
begin
  x := 123;
  Caption := IntToStr(Abs(x));
end; 

Bekomme ich den Compilerfehler:

Code: Alles auswählen

unit1.pas(37,23) Error: Can't determine which overloaded function to call

Bevor ich mir FPC 3.0.0 und Lazarus 1.6 installiere, wollte ich wissen, ob das an FPC 2.6.4 oder an dem 64bit Linux liegt?
Gibt es einen Trick, dem Compiler mitzuteilen, wie er ein QWord behandeln soll und der Code compiliert (eigentlich wollte ich das BGRA-Controls-Package installieren, wo dieser Fehler sofort auftrat)?

[theo]

Was wäre denn der Sinn des Ganzen?
QWord ist vorzeichenlos. Weshalb Abs?

[Michl]

Das liegt an dem Typecast von BGRA:

Code: Alles auswählen

{$ifdef CPU64}
  PtrUInt = QWord;
{$endif CPU64}  
...
  NativeUint = PtrUint;      
...
function FilterEmboss(bmp: TBGRACustomBitmap; angle: single; ABounds: TRect; AStrength: integer; AOptions: TEmbossOptions): TBGRACustomBitmap;
var
  redDiff: NativeUInt;
...   
 

Ähm, aber ja, du hast Recht, unter Windows geht das ja auch nicht. Hätte ich vorher mal testen können.

OK, dann ist das ein Bug in BGRA (unter Windows kompiliert diese Version). Komisch, dass das niemanden bisher aufgefallen ist...


Danke auf jeden Fall für den Hinweis!

[Michl]

Aha, der Fehler liegt ganz woanders. Es liegt nicht an Linux vrs. Windows sondern an 32bit vrs. 64bit:

Code: Alles auswählen

program Project1;
 
var
  q: QWord;
  d: DWord;
 
begin
  Abs(d - 1);  // <- das frisst der Compiler
  Abs(q - 1);  // <- das nicht
end.  

Ist eins davon ein Bug oder beides Features?

[BeniBela]

Code: Alles auswählen

 
begin
  Abs(d - 1);  // <- das frisst der Compiler
end.  

Das wird wohl zu Int64 umgewandelt

Code: Alles auswählen

 
begin
  Abs(q - 1);  // <- das nicht
end.  

Aber es gibt kein Int128 um das umzuwandeln

[Michl]

Aber es gibt kein Int128 um das umzuwandeln

Ja, so wird es sein.

Ist eins davon ein Bug oder beides Features?

Ich antworte mir mal selber. Laut Jonas Maebe ist dies wohl richtig so, Zitat: "abs() is only defined for floating point types, longint and int64".

Für mein Urproblem, werde ich mal im englischen Forum nachfragen, ob BGRABitmap (Trunk) nur für 32bit geeignet ist.

Danke an alle für die Hinweise.

[Edit] für diejenigen, die es interessiert, hier ist der Link http://forum.lazarus.freepascal.org/index.php/topic,32787.msg211570

[mschnell]

Was wäre denn der Sinn des Ganzen?
QWord ist vorzeichenlos. Weshalb Abs?

Nicht nur "Weshalb", sondern auch "was bedeutet das ?"
Vermutlich ist das Argument von ABS als Vorzeichen-behaftet definiert. Ein vorzeichenloses Argument wird also zunächst in ein Vorzeichen-behaftetes umgewandelt, was zu einem negativen Wert führt, wenn das oberste Bit gesetzt war.

Davon ein "Abs" ist dann ein positiver Wert, aber nicht derselbe wie vorher

-Michael