[fpc-pascal]TDBF makes assumption that breaks win32 compat
Vincent Snijders
vslist at zonnet.nl
Sat Jun 26 21:59:05 CEST 2004
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?
Regards,
Vincent.
More information about the fpc-pascal
mailing list