freiwillige Parameter

[jjep]

Zerbrecht euch nicht den Kopf wegen mir.
Meine Funktion funktioniert super.
Danke

[sirius]

Zitat von jjep:

Zerbrecht euch nicht den Kopf wegen mir.
Meine Funktion funktioniert super.
Danke

Es geht auch manchmal im Forum um prinzipielle Fragen von Lösungen (welche jetzt besser ist ect.) die durch simple Anfängerfragen ausgelöst werden und dann mehrere Seiten lang werden kann.

[SirThornberry]

Das bei cdecl es möglich ist verschieden viel auf den Stack zu packen war mir schon klar. Was mich dabei interessiert. Kann man irgendwie feststellen wieviel auf dem Stack liegt?

[Muetze1]

Nur, wenn du den originalen Stack Pointer weisst - also ESP bevor der Aufrufer angefangen hat die Parameter auf den Stack zu legen...

[sirius]

Nur über Umwege:
Man gibt als ersten Parameter mit, wieviele noch kommen. Oder der letzte Parameter ist ein definierter Wert.

[Muetze1]

Zitat von sirius:

Oder der letzte Parameter ist ein definierter Wert.

Nicht eher der Erste? Der Letzte ist immer ESP-4...

[sirius]

Ich meinte nicht auf dem Stack, sondern einfach in Pascal gedacht
(wenn z.B. Parameter "c" -1 ist, dann gibt es kein "d" mehr)

[Muetze1]

Aso, stimmt, so kann man das auch noch betrachten. Klaro, wäre auch eine Möglichkeit...

[Win32.API]

Ueber diesen Umwege wuerde es gehen:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  windows;

procedure foo(i1,i2,i3 : Integer); cdecl;
var
   dwReturnAddress,dwParamCount : DWord;
begin
  asm
    push dword ptr [ebp + 4]
    pop [dwReturnAddress]
  end;

  dwParamCount := pByte(dwReturnAddress + 2)^ div 4;
  writeln(dwParamCount);
end;

begin
  foo(1,2,3);
  readln;
end.

[sirius]

Solange es weniger als 33 Parameter sind

Edit: Muss mich korrigieren. Auf Grund von Big Endian klappt es auch, dass man auf einen integer mit pByte zugreifen kann --> also kleiner 65 Parameter