(a)
   function F(A: Integer): Integer;
   begin
     Result := A + G(A);
   end;

(b)
      push   eax
      call   G
   @@label1:
      pop    edx
      add    eax, edx
      ret

Example 3: Stack handling. Simple function (a) and pseudogenerated code (b) for an exception occurring while in G.