[fpc-pascal]TDBF makes assumption that breaks win32 compat

[Michael.VanCanneyt at Wisa.be]

On Sat, 26 Jun 2004, Vincent Snijders wrote:

> On Fri, 25 Jun 2004 09:51:25 +0200
> Micha Nelissen <micha at neli.hopto.org> wrote:
> 
> > Tony Maro schreef:
> > > The TDBF assumes that if you are running FPC you are NOT in Windows. 
> > > Sorry this isn't a diff, but I don't have the tools in my Windows 
> > > environment yet...
> > > 
> > > Note the first $ifdef FPC - in Windows it causes it to reference a unix 
> > > type.  It should be a {$ifndef WIN32} most likely... and it won't build.
> > 
> > This issue was already fixed in CVS :-). This piece of code doesn't work 
> > in Kylix yet, I think. Revision 1.48:
> > 
> > -----
> > @@ -2440,9 +2438,11 @@
> > 
> >   procedure TDbfGlobals.InitUserName;
> >   {$ifdef FPC}
> > +{$ifndef WIN32}
> >   var
> >     TempName: UTSName;
> >   {$endif}
> > +{$endif}
> >   begin
> >   {$ifdef WIN32}
> >     FUserNameLen := MAX_COMPUTERNAME_LENGTH+1;
> > -----
> > 
> > Micha
> Can this patch be applied in FPC CVS too?

Applied.

Michael.