ROTI Blatt 2
2009-10-30 14:57:39

with Ada.Integer_Text_IO;

procedure test is

   a, b, c, d, e : Integer := 0;


begin
   a := 23;
   b := 42;
   c := 127;
   d := a + b;
   d := d - c;
   e := d;
   Ada.Integer_Text_IO.Put (e);

end test;





objdump -d test.o

test.o:     file format elf32-i386

Disassembly of section .text:

00000000 <_ada_test>:
   0:   55                      push   %ebp
   1:   89 e5                   mov    %esp,%ebp
   3:   83 ec 38                sub    $0x38,%esp
   6:   c7 45 ec 00 00 00 00    movl   $0x0,-0x14(%ebp)
   d:   c7 45 f0 00 00 00 00    movl   $0x0,-0x10(%ebp)
  14:   c7 45 f4 00 00 00 00    movl   $0x0,-0xc(%ebp)
  1b:   c7 45 f8 00 00 00 00    movl   $0x0,-0x8(%ebp)
  22:   c7 45 fc 00 00 00 00    movl   $0x0,-0x4(%ebp)
  29:   c7 45 ec 17 00 00 00    movl   $0x17,-0x14(%ebp)
  30:   c7 45 f0 2a 00 00 00    movl   $0x2a,-0x10(%ebp)
  37:   c7 45 f4 7f 00 00 00    movl   $0x7f,-0xc(%ebp)
  3e:   c7 45 f8 41 00 00 00    movl   $0x41,-0x8(%ebp)
  45:   c7 45 f8 c2 ff ff ff    movl   $0xffffffc2,-0x8(%ebp)
  4c:   c7 45 fc c2 ff ff ff    movl   $0xffffffc2,-0x4(%ebp)
  53:   a1 00 00 00 00          mov    0x0,%eax
  58:   8b 15 00 00 00 00       mov    0x0,%edx
  5e:   89 44 24 08             mov    %eax,0x8(%esp)
  62:   89 54 24 04             mov    %edx,0x4(%esp)
  66:   8b 45 fc                mov    -0x4(%ebp),%eax
  69:   89 04 24                mov    %eax,(%esp)
  6c:   e8 fc ff ff ff          call   6d <_ada_test+0x6d>
  71:   c9                      leave  
  72:   c3                      ret