diff options
| -rw-r--r-- | src/corelib/x11/fpg_x11.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas index f36b0db4..264038f7 100644 --- a/src/corelib/x11/fpg_x11.pas +++ b/src/corelib/x11/fpg_x11.pas @@ -391,8 +391,8 @@ implementation uses baseunix, - {$IFNDEF DARWIN} - users, { For unix user and group name support. Mac+X11 doesn't like this } + {$IFDEF LINUX} + users, { For Linux user and group name support. FPC only supports this in Linux. } {$ENDIF} fpg_main, fpg_widget, @@ -3276,7 +3276,7 @@ begin // Especially if files are transfered on removable media the host system // might not have those user or group ids. So name lookups will fail. This // simply returns the ID's in such cases. - {$IFNDEF DARWIN} + {$IFDEF LINUX} try Result.Owner := GetUserName(TUID(info.st_uid)); except @@ -3288,7 +3288,7 @@ begin Result.Group := IntToStr(info.st_gid); end; {$ELSE} - // Darwin (Mac-OS) can't seem to use users.pp unit from FPC. A bug in FPC? + // Other *nix systems dont' seem to have a users.pp unit in FPC. Result.Owner := IntToStr(info.st_uid); Result.Group := IntToStr(info.st_gid); {$ENDIF} |