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;
1: mmap worked!