[fpc-pascal]TDBF makes assumption that breaks win32 compat
Michael.VanCanneyt at Wisa.be
Michael.VanCanneyt at Wisa.be
Sun Jun 27 00:57:28 CEST 2004
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.
More information about the fpc-pascal
mailing list