Feuerstein Schach-Engine 64-bit kompatibel zu machen

[Roland Chastain]

Hallo zusammen.

Ich möchte das Feuerstein Schach-Engine 64-bit kompatibel zu machen.

Es liegt ein Fehler vor, den ich nicht beheben kann. Können Sie mir bitte helfen?

$ make feuerstein32 PC=fpc32
Compiling Release Version
Free Pascal Compiler OOTB v. 3.2.4_glibc20 [2024/07/30] for i386
Copyright (c) 1993-2024 by Florian Klaempfl & friends.
Target OS: Linux for i386
Compiling Feuerstein0461.dpr
Linking feuerstein32
1358 lines compiled, 0.2 sec

$ make feuerstein64
Compiling Release Version
Free Pascal Compiler version 3.2.2 [2023/03/05] for x86_64
Copyright (c) 1993-2021 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling Feuerstein0461.dpr
Feuerstein0461.dpr(742,11) Warning: Conversion between ordinals and pointers is not portable
Feuerstein0461.dpr(742,31) Error: Can't take the address of constant expressions
Feuerstein0461.dpr(744,11) Warning: Conversion between ordinals and pointers is not portable
Feuerstein0461.dpr(744,30) Error: Can't take the address of constant expressions
Feuerstein0461.dpr(1359) Fatal: There were 2 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode
make: *** [Makefile:11: feuerstein64] Error 1

[Mathias]

Ist das ein altes TP Programm ?

[Roland Chastain]

Nein, es ist ein Delphi Programm.

[fliegermichl]

Deckung ist ein Zeigertyp. Da kann man den Cast mit

Code: Alles auswählen

Inc(Cardinal(Deckung), 8)

nicht machen. Ersetze einfach Cardinal durch PtrUInt.

[Roland Chastain]

Deckung ist ein Zeigertyp. Da kann man den Cast mit

Code: Alles auswählen

Inc(Cardinal(Deckung), 8)

nicht machen. Ersetze einfach Cardinal durch PtrUInt.

Super, danke!

(Aber warum funktioniert dies mit 32-Bit FPC?)

[theo]

(Aber warum funktioniert dies mit 32-Bit FPC?)

Weil Cardinal 32bit hat.

PtrUint passt sich an die Grösse von Pointer an: https://www.freepascal.org/docs-html/rt ... ruint.html

[Roland Chastain]

Weil Cardinal 32bit hat.

PtrUint passt sich an die Grösse von Pointer an: https://www.freepascal.org/docs-html/rt ... ruint.html

Ich sehe. Danke!