*** empty log message ***

This commit is contained in:
florian 1999-02-05 22:52:31 +00:00
parent 3265869a36
commit 612c54b2f5
3 changed files with 59 additions and 0 deletions

24
base/README Normal file
View File

@ -0,0 +1,24 @@
First you need to install all the sources like:
<basedir>/
compiler
rtl
ide/text
ide/fake
api
fv
gdbint
gdbint/libgdb
- Copy the files (Makefile,makefile.fpc) from the base repository to the
<basedir>.
- get the libgdb_<system>.zip from tflily ftp and unzip it in the
gdbint/libgdb directory
- Type: SET FPCDIR=<basedir>
- Then you can type 'make info' and see it finds the correct files.
- When that works fine, then you can type in the <basedir>: 'make ide_all'

32
bugs/bug0213.pp Normal file
View File

@ -0,0 +1,32 @@
PROCEDURE Testsomething(VAR A:LONGINT);
FUNCTION Internaltest(L:LONGINT):LONGINT;
BEGIN
InternalTest:=L+10;
END;
BEGIN
A:=Internaltest(20)+5;
END;
PROCEDURE Testsomething(VAR A:WORD);
FUNCTION Internaltest(L:LONGINT):WORD;
BEGIN
InternalTest:=L+15;
END;
BEGIN
A:=Internaltest(20)+5;
END;
VAR O : LONGINT;
O2 : WORD;
BEGIN
TestSomething(O);
TestSomething(O2);
END.

View File

@ -285,3 +285,6 @@ bug0202.pp flag results not supported with case
bug0206.pp sets with variable ranges doesn't work
bug0211.pp a and not a is true !!! (if a:=boolean(5))
bug0212.pp problem with properties
bug0213.pp name mangling problem with nested procedures in overloaded
procedure