/[gcl]/gcl/o/sgbc.c
ViewVC logotype

Diff of /gcl/o/sgbc.c

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

revision 1.24 by camm, Thu Aug 12 16:43:09 2004 UTC revision 1.25 by camm, Sat Apr 9 13:59:23 2005 UTC
# Line 1801  perm_writable(char *p, long n) { Line 1801  perm_writable(char *p, long n) {
1801  }  }
1802    
1803  void  void
1804    un_perm_writable(char *p, long n) {
1805    
1806      unsigned long beg=page(p);
1807      unsigned long end=page(PAGE_ROUND_UP(p+n));
1808      unsigned long i;
1809    
1810      beg = ROUND_DOWN_PAGE_NO(beg);
1811      end = ROUND_UP_PAGE_NO(end);
1812      if (beg >= MAXPAGE || end >MAXPAGE)
1813        error("Address supplied to un_perm_writable out of range");
1814      for (i=beg ; i < end ; i++) {
1815        sgc_type_map [i] &= ~SGC_PERM_WRITABLE;
1816      }
1817    }
1818    
1819    void
1820  system_error(void) {  system_error(void) {
1821    FEerror("System error",0);    FEerror("System error",0);
1822  }  }

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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