Funktionen in Assembler unter Delphi 7

[kwhk]

Danke für Deine Antwort. Ich habe inzwischen auch herausbekommen, daß die Übergabewerte Longint im EAX bereitgestellt werden. Meine Funktionen sehen nun so aus und funktionieren.

Delphi-Quellcode:

Function HiWord(pZahl:Longint):Word;
  ASM
    PUSH  EAX
    POP   AX
    POP   AX
    AND   EAX,0FFFFh
  End;

Function LoWord(pZahl:Longint):Word;
  ASM
    AND   EAX,0FFFFh
  End;

Die beiden AND EAX,0FFFFh Befehle müssten nicht sein, da das Hi-Wort in EAX beim Ergebnis (WORD) keine Rolle spielt.

Sebastian, ich habe auch Deine Functionen probiert, dabei allerdings bei LoWord das Literal in $FFFF geändert, sonst wird ja nur das LoByte bereitgestellt. Wenn ich in der CPU debugge, sehe ich, daß die Variable ANumber tatsächlich das Register EAX ist. Es sind also immer noch die sehr schnellen 1-Befehl-Functionen, die man mit ASM machen kann, möglich.

Zitat:

Angesichts verschiedener Plattformen, die Delphi unterstützt, ist es auch die weit bessere Lösung ohne Assembler zu arbeiten wo das möglich ist.

Da hast Du natürlich recht. Mir ging es nur darum, alte vorhandene Sourcecodes mit möglichst wenig Aufwand unter Windows 8 und Delphi 7 zum laufen zu bringen.