Discussion :

[Jlmat]

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!

[Jipété]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Jlmat]

À 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

[Guesset]

Bonjour 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

[Roland Chastain]

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]

[Jipété]

[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

[Andnotor]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function IsApp64 :boolean;
begin
  Result := SizeOf(pointer) = 8;
end;

[acaumes]

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