[Oberon] PO2013 - Show Heap Blocks

[Tomas Kral]

On Wed, 24 Jun 2020 11:11:02 +0100
Paul Reed <paulreed at paddedcell.com> wrote:

> merely putting more 
> checking into your tracing routines.

I just tried to view heap from Oberon0 interpreter, when
inspected from the outside, it looks good. It just doesn't like to be
looked at from the inside?

I deposit lists at free address 9FEF0H

Just inner core + Oberon0 running
     0   123| Mirror    123~
    22 Heap.Lists| Call     0~
     1655088     8| Inspect
 0009FEF0    00060700 00000000 00000000 00000000~
             list  0        1        2        3

32 allocated, 1 free, 32 allocated 0 free
    22 BM.Create32| Call     0~
    22 Heap.Lists| Call     0~
     1655088     8| Inspect
 0009FEF0    00060F00 00060E80 00000000 00060E60~
     1396896     8| Inspect
 00060E60    00000020 FFFFFFFF 00000000 00000082
    22 BM.Create32| Call     0~
    22 Heap.Lists| Call     0~
     1655088     8| Inspect
 0009FEF0    00060F00 00000000 00060EC0 00000000~


More allocation
    22 BM.Create32| Call     0~
    22 BM.Create32| Call     0~
    22 BM.Create32| Call     0~
    22 BM.Create32| Call     0~
    22 BM.Create32| Call     0~
    22 BM.Create32| Call     0~
    22 BM.Free| Call     0~
    22 Heap.Lists| Call     0~
     1655088     8| Inspect
 0009FEF0    00060320 000602A0 00060FC0 00060E60~
                                         list 3
     1396896     8| Inspect
 00060E60    00000020 FFFFFFFF 000601C0 00000000
     1393664     8| Inspect
 000601C0    00000020 FFFFFFFF 00060240 00000000
     1393792     8| Inspect
 00060240    00000020 FFFFFFFF 00000000 00004000


Oberon boot and Collect
    22 BM.Free| Call     0~
    22 Heap.Lists| Call     0~
     1655088     8| Inspect
 0009FEF0    0006E800 000700E0 0006FE00 0006FDE0~
     1458208     8| Inspect
 0006FDE0    00000020 FFFFFFFF 0006D0A0 00000086
     1446624     8| Inspect
 0006D0A0    00000020 FFFFFFFF 0006CBE0 00000173
     1445408     8| Inspect
 0006CBE0    00000020 FFFFFFFF 0006A4A0 00000105
     1435360     8| Inspect
 0006A4A0    00000020 FFFFFFFF 00060220 0000002B
     1393760     8| Inspect
 00060220    00000020 FFFFFFFF 000601E0 00000000
     1393696     8| Inspect
 000601E0    00000020 FFFFFFFF 0006A480 00000008
     1435328     8| Inspect
 0006A480    00000020 FFFFFFFF 00000000 00000006


-- 
Tomas Kral <thomas.kral at email.cz>