[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