Verhindern, dass eine Funktion zwei mal den gleichen Parameter nutzt

[himitsu]

https://embt.atlassian.net/servicede...tal/1/RSS-4013

Code:

// (var i: Integer)   // (out i: Integer)   // (var s: string)   // (out s: string)
lea eax,[ebp-$08]     lea eax,[ebp-$08]     lea eax,[ebp-$0c]    lea eax,[ebp-$0c]
call TestVarInt       call TestOutInt       call TestVarStr      call _UStrClr
                                                              call TestOutStr


// begin              // begin              // begin             // begin
push ebp              push ebp              push ebp             push ebp
mov ebp,esp           mov ebp,esp           mov ebp,esp          mov ebp,esp
push ecx              push ecx              push ecx             push ecx
mov [ebp-$04],eax     mov [ebp-$04],eax     mov [ebp-$04],eax    mov [ebp-$04],eax
                                                              mov eax,[ebp-$04]
                                                              test eax,eax
                                                              jz NEXT
                                                              xor edx,edx
                                                              mov [eax],edx
                                                              NEXT:
// i := 1;            // i := 1;            // s := '1';         // s := '1';
mov eax,[ebp-$04]     mov eax,[ebp-$04]     mov eax,[ebp-$04]    mov eax,[ebp-$04]
mov [eax],$00000001  mov [eax],$00000001  mov edx,$008e9d90   mov edx,$008e9dc4
                                          call _UStrAsg        call _UStrAsg
// end;               // end;               // end;              // end;
pop ecx               pop ecx               pop ecx              pop ecx
pop ebp               pop ebp               pop ebp              pop ebp
ret                   ret                   ret                  ret