2. mmap tests

Start felix section to test/mmap/mmap-1-0.flx[1 /1 ]
     1: #line 76 "./lpsrc/flx_mmap.pak"
     2: #import <flx.flxh>
     3: include "mmap";
     4: open Mmap;
     5: open MixedInt;
     6: open C_hack;
     7: 
     8: val n = cast[size](10000);
     9: data :=
    10:   mmap
    11:     (
    12:       NULL,n,
    13:       PROT_WRITE \| PROT_READ,
    14:       MAP_PRIVATE \| MAP_ANONYMOUS,
    15:       -1,cast[off_t]0
    16:     )
    17: ;
    18: 
    19: if data == MAP_FAILED do
    20:   print$ "mmap failed!\n";
    21: else
    22:   res := munmap(data,n);
    23:   if res != 0 do
    24:     print$ "munmap failed!\n";
    25:   else
    26:     print$ "mmap worked!\n";
    27:   done;
    28: done;
End felix section to test/mmap/mmap-1-0.flx[1]
Start data section to test/mmap/mmap-1-0.expect[1 /1 ]
     1: mmap worked!
End data section to test/mmap/mmap-1-0.expect[1]