blob: e1e3961760e968f35baf21ad7d57940601529283 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
$NetBSD: patch-af,v 1.1 2005/10/20 17:43:29 wiz Exp $
--- posix-permissions.adb.orig 2002-10-24 02:03:52.000000000 -0600
+++ posix-permissions.adb
@@ -105,7 +105,7 @@ package body POSIX.Permissions is
procedure Set_Allowed_Process_Permissions
(Permissions : in Permission_Set;
Old_Perms : out Permission_Set) is
- Mask : mode_t :=
+ Mask : constant mode_t :=
not (Form_C_Permission (Permissions) and File_Access_Permission_Bits);
begin
Cached_Umask := Mask;
|
