-#if 0 /* this is bullshit, newworld OF RELEASE method works fine. */
-
- /* release in not enough, it needs also an unmap call. This bit of forth
- * code inspired from Darwin's bootloader but could be replaced by direct
- * calls to the MMU package if needed
- */
- call_prom ("interpret", 3, 1,
-#if DEBUG
- ".\" ReleaseMem:\" 2dup . . cr "
-#endif
- "over \" translate\" ^mmu " // Find out physical base
- "^on0 " // Bail if translation failed
- "drop " // Leaving phys on top of stack
- "2dup \" unmap\" ^mmu " // Unmap the space first
- "2dup \" release\" ^mmu " // Then free the virtual pages
- "\" release\" ^mem " // Then free the physical pages
- ,size, virt
- );
-#endif /* bullshit */