Delphi XE2 어셈블리

Question

다음 함수는 Delphi 2006에서 작동하지만 Delphi XE2에서는 RET을 처리 할 때 액세스 위반 오류 또는 권한있는 명령어 오류가 발생합니다.

function Q_TrimChar(const S: string; Ch: Char): string; 
asm 
     PUSH ESI 
     MOV  ESI,ECX 
     TEST EAX,EAX 
     JE  @@qt 
     MOV  ECX,[EAX-4] 
     TEST ECX,ECX 
     JE  @@qt 
     PUSH EBX 
     PUSH EDI 
     MOV  EBX,EAX 
     MOV  EDI,EDX 
     XOR  EDX,EDX 
     MOV  EAX,ESI 
     CALL System.@LStrFromPCharLen 
     MOV  EDX,EDI 
     MOV  ECX,[EBX-4] 
@@lp1: CMP  DL,BYTE PTR [EBX] 
     JNE  @@ex1 
     INC  EBX 
     DEC  ECX 
     JNE  @@lp1 
     MOV  EDX,[ESI] 
     JMP  @@wq 
@@ex1: DEC  ECX 
@@lp2: CMP  DL,BYTE PTR [EBX+ECX] 
     JNE  @@ex2 
     DEC  ECX 
     JMP  @@lp2 
@@ex2: MOV  EDI,[ESI] 
     LEA  EDX,[EDI+ECX+1] 
@@lp3: MOV  AL,BYTE PTR [EBX+ECX] 
     MOV  BYTE PTR [EDI+ECX],AL 
     DEC  ECX 
     JNS  @@lp3 
@@wq: MOV  EAX,[ESI] 
     MOV  BYTE PTR [EDX],0 
     SUB  EDX,EAX 
     MOV  [EAX-4],EDX 
     POP  EDI 
     POP  EBX 
     POP  ESI 
     RET 
@@qt: MOV  EAX,ESI 
     CALL System.@LStrClr 
     POP  ESI 
end; 

잘 모릅니다. 문제가 무엇입니까?

Answer 1

나는 데이비드의 제안에 완전히 동의하며 파스칼에서 이것을 간단히 코딩하고 그 대답을 upvoted했습니다. 프로파일 링이 이것이 진정한 병목 현상이라고 지적하지 않으면 ASM이 실제로 필요하지 않습니다. 여기에 두 가지 버전이 있습니다. 첫 번째는 더 읽기 쉽지만 두 번째는 더 효율적입니다.

function Q_TrimChar(const S: string; Ch: Char): string; 
begin 
    result := S; 
    while (result <> '') and (result[1] = Ch) do Delete(Result, 1, 1); 
    while (result <> '') and (result[Length(Result)] = Ch) do Delete(Result, Length(Result), 1); 
end; 

function Q_TrimChar(const S: string; Ch: Char): string; 
var 
    First, Last : integer; 
begin 
    First := 1; 
    Last := Length(S); 
    while (First < Last) and (S[First] = Ch) do inc(First); 
    while (Last >= First) and (S[Last] = Ch) do Dec(Last); 
    Result := copy(S, First, Last-First+1); 
end; 

Answer 2

델파이 2006은 1 바이트 ANSI 문자를 사용하므로 string은 AnsiString, Char은 AnsiChar입니다. Delphi 2009 및 이후 버전에서는 2 바이트 유니 코드 문자가 사용됩니다. 이 함수는 두 컴파일러 모두에서 작동하지 않을 수 있습니다.

AnsiString 및 AnsiChar를 사용하는 표준 해킹조차도 작동하지 않습니다. 대부분이 함수가 RTL 구현에 관해 가정하는 가정은 현대 델파이에서 더 이상 유효하지 않습니다.

나는이 함수를 파스칼에서 다시 작성하고 컴파일러가 작업하게 할 것이다. 이는 현재의 문제를 해결하는 가장 빠른 방법 일뿐만 아니라 64 비트 컴파일의 장애물을 해결할 수있을 것입니다.