WINAK

cG` wrote:Arc file met code staat erbij nu

sorry, maar oberon staat niet meer op mijn PC Very Happy, zet ze even in een CODE veldje hier?

MODULE StackTest;
  IMPORT OutExt, SYSTEM;
  
  TYPE Arr = ARRAY 10 OF CHAR;
   VAR
    y: LONGINT;
    z: Arr;
  PROCEDURE Een(a: REAL; VAR b: Arr);
    VAR i, j: INTEGER;

     PROCEDURE Twee(VAR u: REAL; v: Arr);
      VAR w: LONGINT;
     BEGIN
     END Twee;

   BEGIN
    IF y = 0 THEN
      y := 1;
      Een(a, b);
    END;
    Twee(a, b);
   END Een;

  PROCEDURE Doe*;
   VAR li: LONGINT;
  BEGIN
   Een(y, z);
  END Doe;

BEGIN
 y := 0;
END StackTest.

Nickman wrote:Nee, niet echt...
Ik zal nog is proberen :p

Code: Select all

PROCEDURE Blah(VAR int1, int2 : INTERGER) : INTEGER;
BEGIN
     RETURN (int1 + int2);
END Blah;

PROCEDURE Test();
     VAR
          a, b, c : INTEGER;
BEGIN
     a = 5;
     b = 3;
     c = Blah(a, b);  (* c = 5 + 3 = 8 *)
END Test;

Je doet dus de functie oproep "Blah(a, b)"

Wat hierbij eigenlijk zal gebeuren is het volgende:
De waardes van a en b (5 en 3 respectievelijk) zullen eerst op de stak geplaatst worden voordat die procedure opgeroepen wordt.
Dan gebeurd de procedure call en daar kan met dus aan deze waarde door een offset te gebruiken vanaf de nieuwe base pointer.

Nu het enige dat daar zal gebeuren is dat a + b zal uitgerekend worden, dit zal resulteren in 8.
Nu worde alles éérst terug van de stack gepopt (dus alle local variabelen enz.) en ook die twee parameters die je voor de oproep er had opgeplaatst zullen van de stack gepopt worden.

Nu voor de procedure gaat terugkeren naar de oproepende procedure zal deze "8" op de stack worden gepushed.

De procedure keert terug naar de oproepende procedure en in deze oproepende procedure zal die 8 er terug af gepopt worden en in de juiste variabele "c" gestoken worden.

Adelbert wrote:Volges mij klopt da ni elemaal, want als die waarde wordt gepushed voorda de procedure is afgelopen, zal die waarde gewoon mee verwijdert worden samen met de rest door de return-basics.
Wa mij eerder logischer lijkt is da die waarde efkes erges anders wordt bijgehouden (in een extra register of zo, of erges op den heap of zo en dan wordt der ne pointer erges in een register gestoke) en dan wordt na de procedure alles terug braaf afgebroken, en de waarde die dan in da register of register^ sta wordt dan op de plaats van c gezet...
Of heb ik alles gewoon fout verstaan?

zarry wrote:wickaaaah! thcikci tschiki paaaauuuuw wicked-original!

zarry wrote:wickaaaah! thcikci tschiki paaaauuuuw wicked-original!