[fpc-pascal] Problem with freevision (winxp pro sp2 english)

[Florian Klaempfl]

Oliver Leitner wrote:

> Dear Ladies and Gentleman.
> 
> I am trying to compile the fv example:
> 
> C:\FPC\2.0.0\examples\fv\*.pas
> 
> with the following commands:
> 
> C:\FPC\2.0.0\examples\fv\make
> C:/FPC/2.0.0/bin/i386-Win32/ppc386.exe -Fu../../units/i386-win32/rtl
> -Fu../../units/i386-win32/fv -FE. -FUunits/i386-win32 -di386 tfileio.pas
> Free Pascal Compiler version 2.0.0 [2005/05/08] for i386
> Copyright (c) 1993-2005 by Florian Klaempfl
> Target OS: Win32 for i386
> Compiling tfileio.pas
> fvcommon.pas(2,18) Fatal: Can't find unit FVCommon
> fvcommon.pas(2,18) Error: Compilation aborted
> make: *** [tfileio.exe] Error 1
> 
> C:\FPC\2.0.0\examples\fv\fpc testapp.pas
> Free Pascal Compiler version 2.0.0 [2005/05/08] for i386
> Copyright (c) 1993-2005 by Florian Klaempfl
> Target OS: Win32 for i386
> Compiling testapp.pas
> drivers.pas(52,32) Fatal: Can't find unit Drivers
> drivers.pas(52,32) Error: Compilation aborted
> Error: C:\FPC\2.0.0\bin\i386-Win32\ppc386.exe returned an error
> exitcode (normal if you did not specifiy a source file to be compiled)

This is a combination of two problems: fv/test contains a platform.inc which is
newer than that which was used to compiled the drivers and the fvcommon unit.

Further, the fv units in 2.0.0 aren't compiled with -Ur so the compiler tries to
 recompile them because of the platform.inc.

Workaround: rename the the platform.inc in fv/test to plat.inc or something like
this and change the $i directive in the test app source and build the testapp with
make testapp.exe

> 
> ive looked if the unit dir fv exists, and it does exist.
> 
> ive tried to compile a testprogram (the usual helloworld thing) which
> does not use any freevision tech, and it works...
> 
> now my question:
> 
> am i am doing something wrong? if so, how to do it the right way?
> 
> ps: maybe there exists a solution for creating menues for dos
> programs, another unit or something, that would work, id be thankful
> for every tip.