Suis-je en 64 bits

Bonjour,

Je suis confronté à des problèmes de précisions avec des calculs en QWord (64 bits). Soit je trouve un programme avec des pointeurs , soit j'écris une routine en Assembleur.
Mais avant de me lancer dans une recherche, je voudrais savoir par programme si je suis en 64 bits ou 32 bits sous windows.

J'ai voulu me baser sur le tutoriel en assembleur de Nono ici , mais Lazarus ne reconnait pas les registres EAX etc...

Ce tutoriel date un peu, donc je dois me référer à la bonne documentation, et donc répondre probablement aux questions suivantes :

1. Comment savoir quel processeur, mon ordi utilise? (je pense qu'ils ont des registres plus ou moins semblables, mes connaissances remontent au Z80 et 8086...)
2. Comment recueillir si je suis en 32 ou 64 bits? (pour savoir quels registres utiliser?)

J'ai trouvé ça, mais j'aurais souhaité quelque chose de plus simple.
Et si vous avez sous la main un exemple de code, merci!

Citation:

---

Envoyé par Jlmat

J'ai trouvé ça, mais j'aurais souhaité quelque chose de plus simple.

---

À notre époque avec toutes les complications de Windows, je trouve qu'une demi-page de code c'est peu, très peu.
Tiens, je t'ai allégé la fin de la fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

begin try if IsWindows64 then writeln('This operating system is 64 bit.'); else writeln('This operating system is 32 bit.'); except on E: exception do writeln('Could not determine bitness of operating system. Error details: ' + E.ClassName+'/'+E.Message); end; end.

---

Ça sera plus lisible, c'est toujours ça de gagné.

Quant au reste, tu peux chercher sur internet, tu vas y passer des heures et des heures...

Essaie donc de faire tourner le code que tu nous as montré, déjà, pour voir comment qu'il se comporte.

Et je ne pourrai pas aider plus, étant sous Linux, :mrgreen:

Bonjour,

Pour Windows Paramètres/Systeme/Informations système Il te dira si ton système est en 32 ou 64 bits.

Pour Lazarus Voir/Coeur de l'EDI/à propos de FPC il te dira si c'est une version 32 ou 64 bits.

Sachant que tu peux exécuter des applications 32 bits et 64 bits sur un système 64 bits mais seulement 32 bits sur un système 32 bits.

Pour ton application si tu es en 64 bits pour les deux tu peux compiler en 32 ou 64 bits en ayant installé le cross compilateur (Projet/options du projet/compilation et cible)

Cordialement

Citation:

---

Envoyé par Jipété

À notre époque avec toutes les complications de Windows, je trouve qu'une demi-page de code c'est peu, très peu.

---

Merci Jipété, oui je l'ai testé, ça marche... Je suis en 64 bits. J'ai mis la procédure dans un unité système que je me suis créée.

Du coup, le tuto de Nono fonctionne aussi.

Pour tester en assembleur, il me faut trouver les bon registres pour manipuler les Qword (64 bits)...

J'envisage d'installer Linux car Windows, j'en ai marre aussi!

merci à acaumes aussi

Bonjour Jlmat,

Citation:

---

Envoyé par Jlmat

...Pour tester en assembleur, il me faut trouver les bon registres pour manipuler les Qword (64 bits)...

---

Une question : est-ce que le code généré par Lazarus est ici en 64 bit ? La référence au Qword est typique des instructions SIMD qui étaient les seuls moyens de manipuler assez facilement des int64 en Lazarus 32 bits.

Une manière simple de s'en assurer est d'ouvrir la fenêtre assembleur en mode debug et de faire du pas à pas. S'il y a des instruction avec des rax, rcx.. r8, r9 nous somme en 64 bits sinon en 32 bit (je n'ose supposer moins).

Avec un code 64 bits toutes les instructions classiques (+, -, /, * etc.) sont directement accessibles aux int64 et uint64 sans nécessiter d'utiliser les instructions SIMD (MMX, les divers SSE,AVR...). Ceci ne retirant rien à leur intérêt.

Salut

Citation:

---

Envoyé par Jlmat

J'envisage d'installer Linux car Windows, j'en ai marre aussi!

---

[hors-sujet]
D'après ma propre expérience, tu vas galérer un peu pendant une semaine mais ensuite tu ne le regretteras pas. ;)
[/hors-sujet]

Citation:

---

Envoyé par Roland Chastain

[hors-sujet]
D'après ma propre expérience, tu vas galérer un peu pendant une semaine mais ensuite tu ne le regretteras pas. ;)
[/hors-sujet]

---

Sauf si tu veux t'investir dans le domaine audio, parce que là, c'est l'enfer...

Pour info, ça fait des mois (années ?) que j'y galère.

Lecture récente

IsWow64Process va renseigner si c'est une app 32bits tournant sur du 64 mais FALSE sera retourné depuis une app 64.

Question 1 : Windows 64 bits

Code:

---

1 2 3 4 5 6 7

function IsWin64 :boolean; var Info :TSystemInfo; begin GetNativeSystemInfo(Info); Result := Info.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64; end;

---

Ou IsWow64Process2 depuis Windows 10.

Question 2 : Application 64 bits

Code:

---

1 2 3 4

function IsApp64 :boolean; begin Result := SizeOf(pointer) = 8; end;

---

Cette solution mériterait d'être ajoutée dans la FAQ Lazarus.

Je n'ai pas trouvé dans quelle unité était défini PROCESSOR_ARCHITECTURE_AMD64. J'ai dû ajouter la définition directement dans mon programme. Je l'ai trouvée en fouillant dans ces exemples.

Code:

---

1 2	const PROCESSOR_ARCHITECTURE_AMD64 = 9;

---