mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 15:59:30 +02:00
*** empty log message ***
This commit is contained in:
parent
3265869a36
commit
612c54b2f5
24
base/README
Normal file
24
base/README
Normal 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
32
bugs/bug0213.pp
Normal 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.
|
||||
|
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user