//
// Copyright (c) 2012. OverHertz Ltd
//
inline procedure strlcpy(dest, source, len) {
  push edi
  push esi
  push ecx
  
  $if defined(assembler_MMX_ON) == true:
    push edx

    edi = $dest;
    esi = $source;  
    ecx = $len;
    edx = ecx;
    
    shr ecx, 6
    if (ecx <> 0) {
      repeat {
        movq mm0, qword[esi+0]
        movq mm1, qword[esi+8]
        movq mm2, qword[esi+16]
        movq mm3, qword[esi+24]
        movq mm4, qword[esi+32]
        movq mm5, qword[esi+40]
        movq mm6, qword[esi+48]
        movq mm7, qword[esi+56]
      
        movq qword[edi+0], mm0
        movq qword[edi+8], mm1
        movq qword[edi+16], mm2
        movq qword[edi+24], mm3
        movq qword[edi+32], mm4
        movq qword[edi+40], mm5
        movq qword[edi+48], mm6
        movq qword[edi+56], mm7
      
        esi += 64;
        edi += 64;
      
        edx -= 64;
      
        ecx--;
      } until (ecx == 0);
    }
    
    ecx = edx;  
    shr ecx, 3
    
    if (ecx <> 0) {
      repeat {
        movq mm0, qword[esi]
        movq qword[edi], mm0
    
        esi += 8;
        edi += 8;
    
        ecx--;
      } until (ecx == 0);
    }

    ecx = edx;
    and ecx, 3
    rep movsb

    pop edx
    pop ecx
    pop esi
    pop edi
    
    emms
  $else
    //cld
    edi = $dest;
    esi = $source;
    ecx = $len;
    shr ecx, 2
    rep movsd

    ecx = $len;
    and ecx, 3
    rep movsb

    pop ecx
    pop esi
    pop edi
  $end
}