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

私はデイビッドの示唆に完全に同意しています。これはパスカルでこれをコード化し、その答えをアップアップしました。プロファイリングがこれが真のボトルネックであることを示していない限り、ASMは本当に必要ありません。ここに2つのバージョンがあります。最初は読みやすく、2番目の方が効率的です。

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

Delphi 2006では1バイトのANSI文字が使用されているため、stringはAnsiString,CharはAnsiCharです。 Delphi 2009以降では、2バイトのUnicode文字が使用されています。この関数は両方のコンパイラではうまく動作しません。

AnsiStringとAnsiCharを使用する標準的なハックは機能しません。ほとんどの場合、この関数がRTL実装について行う前提は、現代のDelphiでは有効ではありません。

私はこの関数をPascalに書き直し、コンパイラに作業を任せます。それがあなたの現在の問題を解決する最速の方法であるだけでなく、64ビットコンパイルの障害を乗り越えて、それに取り組むことを選択してください。