Thema: Delphi Delphi und Assembler

Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: Delphi und Assembler

  Alt 18. Jun 2005, 01:13
Moin HolgX,

wie, loop funktioniert nicht?

Delphi-Quellcode:
function ReverseBits(Value,Len : DWORD) : integer;
begin
asm
    mov edx,Value
    mov ecx,Len
    xor eax,eax
@1: shr edx,1
    rcl eax,1
    loop @1
    mov @Result,eax
end;
end;
Wenn Du natürlich Result nicht setzt
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat