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 | + |