/[gcl]/gcl/h/386-linux.h
ViewVC logotype

Diff of /gcl/h/386-linux.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12.6.1 by camm, Sun Apr 4 19:29:08 2004 UTC revision 1.12.6.1.12.1 by camm, Sat Jan 15 16:28:16 2005 UTC
# Line 41  Line 41 
41    
42  #define I386  #define I386
43  #define SGC  #define SGC
44    
45    
46    #ifdef IN_SFASL
47    #include <sys/mman.h>
48    #define CLEAR_CACHE {\
49       void *p,*pe; \
50       p=(void *)((unsigned long)memory->cfd.cfd_start & ~(PAGESIZE-1)); \
51       pe=(void *)((unsigned long)(memory->cfd.cfd_start+memory->cfd.cfd_size) & ~(PAGESIZE-1)) + PAGESIZE-1; \
52       if (mprotect(p,pe-p,PROT_READ|PROT_WRITE|PROT_EXEC)) {\
53         fprintf(stderr,"%p %p\n",p,pe);\
54         perror("");\
55         FEerror("Cannot mprotect", 0);\
56       }\
57    }
58    #endif

Legend:
Removed from v.1.12.6.1  
changed lines
  Added in v.1.12.6.1.12.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26