Delphi privileged instruction ошибка

@avp, SetLength(...) как раз работает с кучей.

@ололо, а вам таки обязательно передавать явно указатель на массив в процедуру? В таком виде неплохо работает:

var a : bgra1darray;

procedure bps(a:bgra1darray; l:integer);
var x:integer;
begin
  for x := 1 to l do
  begin
    a[x].b:=77;
    if x mod 10 =0 then
    begin
      write (a[x].b);
      write(' ');
      writeln(x);
    end;
  end;
end;

begin
  setlength(a, 10001);
  bps(a,10000);
  readln;
end.

UPD0. Да, мне пришлось изменить определение:

bgra1darray  = array of tbgra;

UPD1. Когда вы передаете массив в процедуру, разумеется он не будет скопирован. В этом легко убедиться, посмотрев соответствующий ассемблерный код:

Project1.dpr.38: bps(a,10000);        //Privileged Instruction (EPrivilege), х=1480
0040B1B2 BA10270000       mov edx,$00002710
0040B1B7 A13C1E4100       mov eax,[$00411e3c]
0040B1BC E8FBDDFFFF       call bps

И в самой процедуре:

Project1.dpr.19: begin
00408FBC 55               push ebp
00408FBD 8BEC             mov ebp,esp
00408FBF 51               push ecx
00408FC0 53               push ebx
00408FC1 56               push esi
00408FC2 57               push edi
00408FC3 8BDA             mov ebx,edx
00408FC5 8945FC           mov [ebp-$04],eax
00408FC8 8B45FC           mov eax,[ebp-$04]
00408FCB E89CC6FFFF       call @DynArrayAddRef

Как видим, просто передается адрес динамического массива (через eax), а потом помещается в стек (mov [ebp-$04],eax).

Очевидно вы натыкались на эксепшен, потому что передавали в процедуру адрес динамического массива bps(@a, 10000), что приводило к двойному взятию указателя и вы просто влезали в чужую память в итоге.

Нравится ресурс? Помоги проекту!

[ Script execution time: 0,0371 ]   [ 16 queries used ]   [ Generated: 3.06.23, 23:55 GMT ]  

@avp, SetLength(...) как раз работает с кучей.

@ололо, а вам таки обязательно передавать явно указатель на массив в процедуру? В таком виде неплохо работает:

var a : bgra1darray;

procedure bps(a:bgra1darray; l:integer);
var x:integer;
begin
  for x := 1 to l do
  begin
    a[x].b:=77;
    if x mod 10 =0 then
    begin
      write (a[x].b);
      write(' ');
      writeln(x);
    end;
  end;
end;

begin
  setlength(a, 10001);
  bps(a,10000);
  readln;
end.

UPD0. Да, мне пришлось изменить определение:

bgra1darray  = array of tbgra;

UPD1. Когда вы передаете массив в процедуру, разумеется он не будет скопирован. В этом легко убедиться, посмотрев соответствующий ассемблерный код:

Project1.dpr.38: bps(a,10000);        //Privileged Instruction (EPrivilege), х=1480
0040B1B2 BA10270000       mov edx,$00002710
0040B1B7 A13C1E4100       mov eax,[$00411e3c]
0040B1BC E8FBDDFFFF       call bps

И в самой процедуре:

Project1.dpr.19: begin
00408FBC 55               push ebp
00408FBD 8BEC             mov ebp,esp
00408FBF 51               push ecx
00408FC0 53               push ebx
00408FC1 56               push esi
00408FC2 57               push edi
00408FC3 8BDA             mov ebx,edx
00408FC5 8945FC           mov [ebp-$04],eax
00408FC8 8B45FC           mov eax,[ebp-$04]
00408FCB E89CC6FFFF       call @DynArrayAddRef

Как видим, просто передается адрес динамического массива (через eax), а потом помещается в стек (mov [ebp-$04],eax).

Очевидно вы натыкались на эксепшен, потому что передавали в процедуру адрес динамического массива bps(@a, 10000), что приводило к двойному взятию указателя и вы просто влезали в чужую память в итоге.

void Base64_code(const char* strIn, AnsiString &strOut)
{
 const static char base64ABC[] = «ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/»;

 
 strOut = «»;
 const size_t len = strlen(strIn);

 
  for(unsigned int i=0; i<len; i+=3) {
    LONG l = ( ((LONG)strIn[i ])<<16 ) |
             (((i+1) < len) ? (((LONG)strIn[i+1])<<8 ) : 0 ) |
             (((i+2) < len) ? ( (LONG)strIn[i+2] ) : 0 );
    strOut += base64ABC[(l>>18) & 0x3F];
    strOut += base64ABC[(l>>12) & 0x3F];
    if (i+1 < len) strOut += base64ABC[(l>> 6) & 0x3F];
    if (i+2 < len) strOut += base64ABC[(l ) & 0x3F];
  }
  switch (len%3) {
    case 1:
  strOut += ‘=’;
    case 2:
  strOut += ‘=’;
  }
}