Просмотр исходного кода

* small freebsd <-> OS X fix

git-svn-id: trunk@11084 -
marco 17 лет назад
Родитель
Сommit
0cf0c22521
1 измененных файлов с 3 добавлено и 1 удалено
  1. 3 1
      packages/users/examples/testpass2.pp

+ 3 - 1
packages/users/examples/testpass2.pp

@@ -42,7 +42,9 @@ Begin
       printpchar('pw_shell',p^.pw_shell);
      {$ifdef BSD}
       printpchar('pw_expire',inttostr(p^.pw_expire));
-      printpchar('pw_fields',inttostr(p^.pw_fields));
+      {$ifdef FreeBSD}
+        printpchar('pw_fields',inttostr(p^.pw_fields)); 
+      {$endif}
      {$endif}
     End;
   nrgids := 100;