* (* = 65535 이하) DivMod가 있습니까? 델파이

Question

는 DivMod 함수 선언 따라서

procedure DivMod(Dividend: Cardinal; Divisor: Word; 
    var Result, Remainder: Word); 

제수, 결과이고, 나머지는 65535 약간 심각한 제한보다 주장 할 수 없다. 왜 이런거야? 왜하지 delcaration는

procedure DivMod(Dividend: Cardinal; Divisor: Cardinal; 
    var Result, Remainder: Cardinal); 

절차가 어셈블리를 사용하여 구현, 따라서 아마도 매우 빠른입니다을 수 있습니다. 코드에 사용할 수 없습니까?

PUSH EBX 
    MOV  EBX,EDX 
    MOV  EDX,EAX 
    SHR  EDX,16 
    DIV  BX 
    MOV  EBX,Remainder 
    MOV  [ECX],AX 
    MOV  [EBX],DX 
    POP  EBX 

을 추기경에 맞게 조정할 수 있습니까? 순진한 시도가 얼마나 느린가

procedure DivModInt(const Dividend: integer; const Divisor: integer; out result: integer; out remainder: integer); 
begin 
    result := Dividend div Divisor; 
    remainder := Dividend mod Divisor; 
end; 

16 비트 정수로 제한되지 않습니까?

Answer 1

이러한 절차가 가능합니다. 나는 충분한 코드를 테스트하지 않은,하지만 난 그것을 확인을 생각 :

procedure DivMod32(Dividend, Divisor: Cardinal; var Quotient, Remainder: Cardinal); 
asm 
     PUSH EBX 
     MOV EBX,EDX 
     XOR EDX,EDX 
     DIV EBX 
     MOV [ECX],EAX 
     MOV EBX,Remainder 
     MOV [EBX],EDX 
     POP EBX 
end; 

---

업데이트 :

더욱 효율적인

function DivMod32(Dividend, Divisor: Cardinal; var Remainder: Cardinal): Cardinal; 
asm 
     PUSH EBX 
     MOV EBX,EDX 
     XOR EDX,EDX 
     DIV EBX 
     MOV [ECX],EDX 
     POP EBX 
end; 

---

2 업데이트 :

Disassembly (또는 CPU) 창에서 Delphi 컴파일러가 생성 한 어셈블리 코드를 볼 수 있습니다. 예, 절차

procedure DivMod32(const Dividend: Cardinal; const Divisor: Cardinal; 
        out result: Cardinal; out remainder: Cardinal); 
begin 
    result := Dividend div Divisor; 
    remainder := Dividend mod Divisor; 
end; 

이 코드는 선형 (더 점프를 포함하지)과 현대의 프로세서 (긴 명령 파이프 라인) 직선 코드를 실행에 매우 효율적입니다 코드를

Unit1.pas.28: begin 
0046CC94 55    push ebp 
0046CC95 8BEC    mov ebp,esp 
0046CC97 53    push ebx 
0046CC98 56    push esi 
0046CC99 8BF2    mov esi,edx 
0046CC9B 8BD8    mov ebx,eax 
Unit1.pas.29: result := Dividend div Divisor; 
0046CC9D 8BC3    mov eax,ebx 
0046CC9F 33D2    xor edx,edx 
0046CCA1 F7F6    div esi 
0046CCA3 8901    mov [ecx],eax 
Unit1.pas.30: remainder := Dividend mod Divisor; 
0046CCA5 8BC3    mov eax,ebx 
0046CCA7 33D2    xor edx,edx 
0046CCA9 F7F6    div esi 
0046CCAB 8B4508   mov eax,[ebp+$08] 
0046CCAE 8910    mov [eax],edx 
Unit1.pas.31: end; 
0046CCB0 5E    pop esi 
0046CCB1 5B    pop ebx 
0046CCB2 5D    pop ebp 
0046CCB3 C20400   ret $0004 

를 생성합니다. 따라서 DivMode32 구현이 약 3 배 단축되었지만 60 %는 합리적인 추정입니다.