Форум программистов [Powered by Invision Power Board]

Код


aSourcePath := pSourcePath + '\' + pFilePath;

Код


--------------------------------2011/5/23 10:32:41--------------------------------
FastMM has detected an error during a GetMem operation. The block header has been corrupted. 

The current thread ID is 0xBCC, and the stack trace (return addresses) leading to this error is:
40E94D [FastMM4.pas][FastMM4][FastMM4.DebugGetMem][6843]
4EBCEE [BuildThread.pas][BuildThread][BuildThread.TBuildThread.Execute][164]
44CFD1 [Classes.pas][Classes][Classes.ThreadProc][11407]
7C80B729 [Unknown function at GetModuleFileNameA]

Код


function _NewUnicodeString(CharLength: LongInt): Pointer;
{$IFDEF PUREPASCAL}
var
  P: PStrRec;
begin
  Result := nil;
  if CharLength > 0 then
  begin
    // Allocate a memory with record and extra wide-null terminator.
    if CharLength >= (MaxInt - SizeOf(StrRec)) div SizeOf(WideChar) then _IntOver;
    GetMem(P, SizeOf(StrRec) + (CharLength + 1) * SizeOf(WideChar));
    Result := Pointer(NativeInt(P) + SizeOf(StrRec));
    P.length := CharLength;
    P.refCnt := 1;
    P.elemSize := SizeOf(WideChar);
    P.codePage := Word(DefaultUnicodeCodePage);
    PWideChar(Result)[CharLength] := #0;
  end;
end;
{$ELSE}
asm
        { ->    EAX     length                  }
        { <-    EAX     pointer to new string   }
        TEST    EAX,EAX
        JLE     @@lengthLEZero  // length <= 0?
        PUSH    EAX             // save length
        ADD     EAX,EAX         // convert to bytes
        JO      @@overflow
        ADD     EAX,rOff+2      // + record + terminator
        JO      @@overflow
        {$IFDEF ALIGN_STACK}
        SUB     ESP,8
        {$ENDIF ALIGN_STACK}
        CALL    _GetMem                       //<<<<< ======= тут возникает ошибка
        {$IFDEF ALIGN_STACK}
        ADD     ESP,8
        {$ENDIF ALIGN_STACK}
        ADD     EAX,rOff
        POP     EDX                              // requested string length
        MOV     [EAX-skew].StrRec.refCnt,1
        MOV     [EAX-skew].StrRec.length,EDX
        MOV     word ptr [EAX+EDX*2],0           // wide null terminator
        MOV     word ptr [EAX-skew].StrRec.elemSize,2
{$IFDEF PIC}
        PUSH    EBX
        PUSH    EAX
        PUSH    ECX
        CALL    GetGOT
        MOV     EDX, [EAX].OFFSET DefaultUnicodeCodePage
        MOV     EDX, [EDX]
        POP     ECX
        POP     EAX
        POP     EBX
{$ELSE !PIC}
        MOV     EDX, DefaultUnicodeCodePage
{$ENDIF}
        MOV     word ptr [EAX-skew].StrRec.codePage,DX
        RET
@@overflow:
        {$IFDEF ALIGN_STACK}
        POP     EAX
        {$ENDIF ALIGN_STACK}
        JMP     _IntOver
@@lengthLEZero:
        XOR     EAX,EAX
end;
{$ENDIF !PUREPASCAL}

Код


    for i := 0 to pFilePriority.Count - 1 do
      Tmp := Tmp + pFilePriority.Strings[i]+';';

Цитата(MetalFan @ 23.5.2011, 14:19

)

Ну и по StrLCopy замечание... учитывается ли, что Dest должно быть размером MaxLen+1 для null terminator'а?
Может еще какие косяки есть.

Цитата(uwannadie @ 23.5.2011, 15:12

)

самое интересное, что на системах с полноценной поддержкой AV не появляется (проверял на висте, семерке)
может где-то тут собака зарыта?

Цитата(uwannadie @ 23.5.2011, 15:12

)

- в смысле поставить в параметр MaxLen в моем случае размер массива + 1 ?

Цитата(MetalFan @ 23.5.2011, 17:27)

Цитата(uwannadie @ 23.5.2011, 15:12

)

- в смысле поставить в параметр MaxLen в моем случае размер массива + 1 ?

Всмысле, что размер Dest = MaxLen+1, т.е. эта функция запишет MaxLen cимволов, и в конце добьет нулем. В твоем случае, если строка слишком длинная, то ноль этот улетал за пределы Dest.

Код


длина массива <= MAX_PATH - 1