On Mon, Mar 29, 2010 at 12:00 PM, Simon Marlow <span dir="ltr">&lt;<a href="mailto:marlowsd@gmail.com">marlowsd@gmail.com</a>&gt;</span> wrote:<br><div class="gmail_quote"><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<div class="im">On 26/03/2010 20:28, Mads Lindstrøm wrote:<br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Hi<br>
<br>
For some time I have been thinking about an idea, which could limit<br>
Haskell&#39;s memory footprint. I don&#39;t know if the idea is crazy or clever,<br>
but I would love to hear peoples thoughts about it. The short story is,<br>
I propose that the garbage collector should not just reclaim unused<br>
memory, it should also diminish the need for pointers, by replacing<br>
nested data structures with larger chunks of consecutive memory. In<br>
other words, I would diminish the need for pointers for arbitrary<br>
recursive data types, just as replacing linked lists with arrays<br>
eliminate the need for pointers.<br>
<br>
I will explain my idea by an example of a data type we all know and<br>
love:<br>
<br>
data List a = Cons a (List a) | Nil<br>
<br>
each Cons cell uses two pointers - one for the element and one for the<br>
rest of the list. If we could somehow merge the element and the rest of<br>
the list into consecutive memory, we would be able to eliminate the<br>
pointer to the rest of list. On 64 bit architectures merging would save<br>
us 8 bytes of &quot;wasted&quot; memory. If we could merge n elements together we<br>
could save n*8 bytes of memory.<br>
</blockquote>
<br></div>
The trouble with techniques like this is that they break the uniformity of the representation, and complexity leaks all over the place.  Various similar ideas have been tried in the past, though not with Haskell as far as I&#39;m aware: CDR-coding and BiBOP spring to mind.<br>
</blockquote><div><br>While CDR-coding can introduce one hell of a complexity explosion if you&#39;re not careful, using an (optional) BiBOP-like representation for the tag isn&#39;t that bad. I&#39;ve been experimenting with it in a lightweight Haskell-like language.<br>
<br>If you associate with each page an optional tag for that page, and then when looking up the tag first check the page level. That way you can use a bump allocator initially, and as tags benchmark as being more common during garbage collection, you can dedicate pages to them. With GHC-style pointer tagging you rarely look at the actual tag anyways, so this extra cost is only incurred when forcing the thunk initially, or when the tag can&#39;t be applied (too many constructors).<br>
<br></div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"><div class="im">
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
64 bit pointers are wasteful in another way, as nobody has anywhere near<br>
2^64 bytes of memory. And nobody is going to have that much memory for<br>
decades to come. Thus, we could use the 8 most significant bits for<br>
something besides pointing to memory, without loosing any significant<br>
ability to address our memories. This would be similar to how GHC uses<br>
some of the least significant bits for pointer tagging.<br>
</blockquote>
<br></div>
Unfortunatley you don&#39;t know whereabouts in your address space your memory is located: the OS could do randomised allocation and give you a pages all over the place, so in fact you might need all 64 bits.  Yes you can start doing OS-specific things, but that always leads to pain later (I know, I&#39;ve been there).<br>

<br>
In the Java community there has been experimentation with using different representations to avoid the 64-bit pointer overhead: e.g. shifting a 32-bit pointer to the left by 2 bits in order to access 16GB of memory.  Personally I&#39;m not keen on doing this kind of trick, mainly because in GHC it would be a compile-time switch; Java has it easy here because they can make the choice at runtime.  Also we already use the low 2 bits of pointers in GHC for pointer tagging.<br>
</blockquote><div><br></div><div>The closest I&#39;ve been able to get to making this scheme work is to use the MSB of the pointer as an &#39;evaluated&#39; bit, and using 16 byte aligned &#39;CompressedOOPs&#39; checking evaluation by something like:<br>
<br>add eax, eax -- set carry based on evaluation flag, and double the base pointer<br>jc evaluated<br>-- otherwise fetch values using base+[eax*8]+slot<br><br>Of course, knowing that something is evaluated is far less useful than knowing its actual tag, but the language in question lacks some of the niceties of Haskell with regards to optimization potential here. Though it does give access to a nice 32 gig heap at an arbitrary base address with 16 byte alignment, which makes it suitable to use SSE opcodes to manipulate thunks. <br>
<br>The biggest problem with CompressedOOPs, for me, is the lack of linker support. <br><br>You can ask for a segment to be given a chunk of memory below the 2 gig marker, but not below 4, let alone 32, so 0-based compressed OOPs can&#39;t be linked by the native linker. It wasn&#39;t until they added 0-based compressed OOPs that things finally started to perform for Java, and bringing your own linker into the mix is a decidedly unpleasant option. I&#39;m continuing to play with them in a JIT-only environment but they don&#39;t play nice with compilation.<br>
<br>-Edward Kmett <br></div></div>