Zitat von
3_of_8:
Das geht schneller:
Delphi-Quellcode:
function signmultiply(const a, b: Extended): Extended;
begin
result:=a;
PByte(Integer(@result)+9)^:=PByte(Integer(@result)+9)^ xor
(PByte(Integer(@b)+9)^ and (1 shl 7));
end;
c:=signmultiply(a, b) macht in etwa das: if b<0 then c:=-a else c:=a;
Ihr habt doch alle nen Schlag.
Wer will denn so nen Code haben, um vielleicht drei Nanosekunden zu sparen?