summaryrefslogtreecommitdiff
path: root/UCoreClasses.pas
diff options
context:
space:
mode:
Diffstat (limited to 'UCoreClasses.pas')
-rw-r--r--UCoreClasses.pas2
1 files changed, 0 insertions, 2 deletions
diff --git a/UCoreClasses.pas b/UCoreClasses.pas
index 7a4a43a..a2b3989 100644
--- a/UCoreClasses.pas
+++ b/UCoreClasses.pas
@@ -100,7 +100,6 @@ begin
Group.GroupName := String(StrToUTF8(grp^.gr_name));
Group.GID := grp^.gr_gid;
Group.Users := TStringList.Create;
- {$R-}
if grp^.gr_mem^ <> nil then begin
i := 0;
repeat
@@ -108,7 +107,6 @@ begin
Inc(i);
until PCharArray(grp^.gr_mem^)[i] = nil;
end;
- {$R+}
GroupList.Add(Group);
grp := getgrent;
end;