- procedure NormalizeVector(var v : TVector);
- // Result:=VectorLength(v);
- // ScaleVector(v, 1/Result);
- asm
- FLD DWORD PTR [EAX]
- FMUL ST, ST
- FLD DWORD PTR [EAX+4]
- FMUL ST, ST
- FADD
- FLD DWORD PTR [EAX+8]
- FMUL ST, ST
- FADD
- FLD DWORD PTR [EAX+12]
- FMUL ST, ST
- FADD
- FSQRT
- FLD1
- FDIVR
- FLD ST
- FMUL DWORD PTR [EAX]
- FSTP DWORD PTR [EAX]
- FLD ST
- FMUL DWORD PTR [EAX+4]
- FSTP DWORD PTR [EAX+4]
- FLD ST
- FMUL DWORD PTR [EAX+8]
- FSTP DWORD PTR [EAX+8]
- FMUL DWORD PTR [EAX+12]
- FSTP DWORD PTR [EAX+12]
- end;