about summary refs log tree commit diff stats
path: root/arc/.traces/default-space-and-get-indirect
blob: 9046aa3d5fd71dbbb6a2da8bc1151ae4c4591450 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
c{0: 0 (((default-space space-address)) <- ((new)) ((space literal)) ((5 literal))) -- nil
c{0: 1 (((1 integer-boolean-pair-address)) <- ((new)) ((integer-boolean-pair literal))) -- nil
c{0: 2 (((2 integer-address)) <- ((get-address)) ((1 integer-boolean-pair-address) (deref)) ((0 offset))) -- nil
c{0: 3 (((2 integer-address) (deref)) <- ((copy)) ((34 literal))) -- nil
c{0: 4 (((3 integer) (raw)) <- ((get)) ((1 integer-boolean-pair-address) (deref)) ((0 offset))) -- nil
c{1: 0 ✓ (((default-space space-address)) <- ((new)) ((space literal)) ((5 literal)))
c{1: 1 ✓ (((1 integer-boolean-pair-address)) <- ((new)) ((integer-boolean-pair literal)))
c{1: 2 ✓ (((2 integer-address)) <- ((get-address)) ((1 integer-boolean-pair-address) (deref)) ((0 offset)))
c{1: 3 ✓ (((2 integer-address) (deref)) <- ((copy)) ((34 literal)))
c{1: 4 ✓ (((3 integer) (raw)) <- ((get)) ((1 integer-boolean-pair-address) (deref)) ((0 offset)))
cn0: convert-names in main
cn0: (((default-space space-address)) <- ((new)) ((space literal)) ((5 literal))) nil nil
cn0: checking arg ((space literal))
cn0: checking arg ((5 literal))
cn0: checking oarg ((default-space space-address))
maybe-add: ((default-space space-address))
cn0: (((1 integer-boolean-pair-address)) <- ((new)) ((integer-boolean-pair literal))) nil nil
cn0: checking arg ((integer-boolean-pair literal))
cn0: checking oarg ((1 integer-boolean-pair-address))
maybe-add: ((1 integer-boolean-pair-address))
cn0: (((2 integer-address)) <- ((get-address)) ((1 integer-boolean-pair-address) (deref)) ((0 offset))) nil nil
cn0: field-access 0 in 1integer-boolean-pair-addressderef of type integer-boolean-pair
cn0: checking arg ((1 integer-boolean-pair-address) (deref))
maybe-add: ((1 integer-boolean-pair-address) (deref))
cn0: checking arg ((0 offset))
cn0: checking oarg ((2 integer-address))
maybe-add: ((2 integer-address))
cn0: (((2 integer-address) (deref)) <- ((copy)) ((34 literal))) nil nil
cn0: checking arg ((34 literal))
cn0: checking oarg ((2 integer-address) (deref))
maybe-add: ((2 integer-address) (deref))
cn0: (((3 integer) (raw)) <- ((get)) ((1 integer-boolean-pair-address) (deref)) ((0 offset))) nil nil
cn0: field-access 0 in 1integer-boolean-pair-addressderef of type integer-boolean-pair
cn0: checking arg ((1 integer-boolean-pair-address) (deref))
maybe-add: ((1 integer-boolean-pair-address) (deref))
cn0: checking arg ((0 offset))
cn0: checking oarg ((3 integer) (raw))
maybe-add: ((3 integer) (raw))
cn1: (((default-space space-address)) <- ((new)) ((space literal)) ((5 literal)))
cn1: (((1 integer-boolean-pair-address)) <- ((new)) ((integer-boolean-pair literal)))
cn1: (((2 integer-address)) <- ((get-address)) ((1 integer-boolean-pair-address) (deref)) ((0 offset)))
cn1: (((2 integer-address) (deref)) <- ((copy)) ((34 literal)))
cn1: (((3 integer) (raw)) <- ((get)) ((1 integer-boolean-pair-address) (deref)) ((0 offset)))
schedule: main
run: main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((5 literal)))
run: main 0: 1000 => ((default-space space-address))
run: main 1: (((1 integer-boolean-pair-address)) <- ((new)) ((integer-boolean-pair literal)))
run: main 1: 1006 => ((1 integer-boolean-pair-address))
mem: ((1 integer-boolean-pair-address)): 1002 <= 1006
run: main 2: (((2 integer-address)) <- ((get-address)) ((1 integer-boolean-pair-address) (deref)) ((0 offset)))
run: main 2: 1006 => ((2 integer-address))
mem: ((2 integer-address)): 1003 <= 1006
run: main 3: (((2 integer-address) (deref)) <- ((copy)) ((34 literal)))
run: main 3: 34 => ((2 integer-address) (deref))
mem: ((2 integer-address) (deref)): 1006 <= 34
run: main 4: (((3 integer) (raw)) <- ((get)) ((1 integer-boolean-pair-address) (deref)) ((0 offset)))
mem: ((1006 integer) (raw)) => 34
run: main 4: 34 => ((3 integer) (raw))
mem: ((3 integer) (raw)): 3 <= 34
schedule: done with routine nil
5f42e721658c4f8e'>^
bc20cc3d ^
33352536 ^

bc20cc3d ^




3a044623 ^
bc20cc3d ^



33352536 ^
bc20cc3d ^
33352536 ^

bc20cc3d ^




33352536 ^


c88b9e31 ^

33352536 ^
c88b9e31 ^
bc20cc3d ^
33352536 ^
bc20cc3d ^
bc20cc3d ^
c88b9e31 ^
bc20cc3d ^
33352536 ^



bc20cc3d ^


33352536 ^
bc20cc3d ^


33352536 ^

bc20cc3d ^

33352536 ^

bc20cc3d ^


33352536 ^

bc20cc3d ^


33352536 ^
bc20cc3d ^


33352536 ^
bc20cc3d ^

33352536 ^

bc20cc3d ^


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
                                          





                                                                                                                                                 
                                                                                                
              

                                                                                                                                                                       
                      
               
                                                             




                                                                                                                                                                                   
                         
                                                                                                                                                                   
                                                 



                                                                                                                                                                       

                     

                                                                                                                                                                     


                            



                                                                                                                                                                            
                   
               


                                
                                                                                                                                                                  

                         
                 
              

                                                                                                                                                                       




                               
                                                 



                           
                                                                                                                                                                  
                        

                                




                         


                                                                                                                                                                       

                          
                                                                                                                                                                       
                             
                   
               
                        
              
                               
                      



                                                                                                                                                                        


                    
               


                              

                                                                                                                                                                  

                                                                                          

               


                                    

                                                                                                                                                                  


                                                               
                                                                                                                                                                     


                                    
                                                                                                                                                                  

                                                                            

                                                                                                                                                                       


                            
# Helper to allocate a stream on the heap.

== code
#   instruction                     effective address                                                   register    displacement    immediate
# . op          subop               mod             rm32          base        index         scale       r32
# . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes

new-stream:  # ad : (address allocation-descriptor), length : int, elemsize : int -> address/eax
    # . prolog
    55/push-ebp
    89/copy                         3/mod/direct    5/rm32/ebp    .           .             .           4/r32/esp   .               .                 # copy esp to ebp
    # . save registers
    52/push-edx
    # n = elemsize * length + 12 (for read, write and length)
    # . eax = elemsize
    8b/copy                         1/mod/*+disp8   5/rm32/ebp    .           .             .           0/r32/eax   0x10/disp8      .                 # copy *(ebp+16) to eax
    # . eax *= length
    31/xor                          3/mod/direct    2/rm32/edx    .           .             .           2/r32/edx   .               .                 # clear edx
    f7          4/subop/multiply    1/mod/*+disp8   5/rm32/ebp    .           .                                     0xc/disp8       .                 # multiply *(ebp+12) into eax
    # . if overflow abort
    81          7/subop/compare     3/mod/direct    2/rm32/edx    .           .             .           .           .               0/imm32           # compare edx
    75/jump-if-not-equal  $new-stream:abort/disp8
    # . edx = elemsize*length
    89/copy                         3/mod/direct    2/rm32/edx    .           .             .           0/r32/eax   .               .                 # copy eax to edx
    # . eax += 12
    05/add-to-eax  0xc/imm32
    # allocate(ad, n)
    # . . push args
    50/push-eax
    ff          6/subop/push        1/mod/*+disp8   5/rm32/ebp    .           .             .           .           8/disp8         .                 # push *(ebp+8)
    # . . call
    e8/call  allocate/disp32
    # . . discard args
    81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
    # eax->length = elemsize*length
    89/copy                         1/mod/*+disp8   0/rm32/eax    .           .             .           2/r32/edx   8/disp8         .                 # copy edx to *(eax+8)
    # clear-stream(eax)
    # . . push args
    50/push-eax
    # . . call
    e8/call  clear-stream/disp32
    # . . discard args
    81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               4/imm32           # add to esp
$new-stream:end:
    # . restore registers
    5a/pop-to-edx
    # . epilog
    89/copy                         3/mod/direct    4/rm32/esp    .           .             .           5/r32/ebp   .               .                 # copy ebp to esp
    5d/pop-to-ebp
    c3/return

$new-stream:abort:
    # . _write(2/stderr, error)
    # . . push args
    68/push  "new-stream: size too large\n"/imm32
    68/push  2/imm32/stderr
    # . . call
    e8/call  _write/disp32
    # . . discard args
    81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
    # . syscall(exit, 1)
    bb/copy-to-ebx  1/imm32
    b8/copy-to-eax  1/imm32/exit
    cd/syscall  0x80/imm8
    # never gets here

test-new-stream:
    # . prolog
    55/push-ebp
    89/copy                         3/mod/direct    5/rm32/ebp    .           .             .           4/r32/esp   .               .                 # copy esp to ebp
    # var heap/ecx : (address allocation-descriptor) = {0, 0}
    68/push  0/imm32/limit
    68/push  0/imm32/curr
    89/copy                         3/mod/direct    1/rm32/ecx    .           .             .           4/r32/esp   .               .                 # copy esp to ecx
    # heap = new-segment(512)
    # . . push args
    51/push-ecx
    68/push  0x200/imm32
    # . . call
    e8/call  new-segment/disp32
    # . . discard args
    81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
    # var start/edx = ad->curr
    8b/copy                         0/mod/indirect  1/rm32/ecx    .           .             .           2/r32/edx   .               .                 # copy *ecx to edx
    # eax = new-stream(heap, 3, 2)
    # . . push args
    68/push  2/imm32
    68/push  3/imm32
    51/push-ecx
    # . . call
    e8/call  new-stream/disp32
    # . . discard args
    81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               0xc/imm32         # add to esp
    # check-ints-equal(eax, edx, msg)
    # . . push args
    68/push  "F - test-new-stream: returns current pointer of allocation descriptor"/imm32
    52/push-edx
    50/push-eax
    # . . call
    e8/call  check-ints-equal/disp32
    # . . discard args
    81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               0xc/imm32         # add to esp
    # check-ints-equal(eax->length, 6, msg)
    # . . push args
    68/push  "F - test-new-stream: sets length correctly"/imm32
    68/push  6/imm32
    ff          6/subop/push        1/mod/*+disp8   0/rm32/eax    .           .             .           .           .               8/disp8           # push *(eax+8)
    # . . call
    e8/call  check-ints-equal/disp32
    # . . discard args
    81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               0xc/imm32         # add to esp
    # the rest is delegated to clear-stream() so we won't bother checking it
    # . epilog
    89/copy                         3/mod/direct    4/rm32/esp    .           .             .           5/r32/ebp   .               .                 # copy ebp to esp
    5d/pop-to-ebp
    c3/return

# . . vim:nowrap:textwidth=0