View difference between Paste ID: zLgi4S36 and 7AhmUPcF
SHOW: | | - or go back to the newest paste.
1
procedure GetPerformanceData(Method: Pointer; Arguments: array of const);
2
var i: Integer;
3
temp_arg: Pointer;
4
begin
5
  for i := Low(Arguments) to High(Arguments) do begin
6-
    temp_arg := Arguments[i];
6+
    temp_arg := @Arguments[i];
7-
    Case i - Low(Arguments) Of 
7+
    Case i - Low(Arguments) Of
8
    0: asm
9
         MOV EAX, temp_arg
10
       end;
11
    1: asm
12
         MOV EDX, temp_arg
13
       end;
14
    2: asm
15
         MOV ECX, temp_arg
16
       end;
17-
    else: asm
17+
    else asm
18
         MOV EBX, temp_arg
19
         PUSH temp_arg
20
       end;
21
    end;
22
    asm
23
      CALL Method
24
    end;
25
  end;
26-
26+