mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 12:29:18 +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
|
bug0206.pp sets with variable ranges doesn't work
|
||||||
bug0211.pp a and not a is true !!! (if a:=boolean(5))
|
bug0211.pp a and not a is true !!! (if a:=boolean(5))
|
||||||
bug0212.pp problem with properties
|
bug0212.pp problem with properties
|
||||||
|
bug0213.pp name mangling problem with nested procedures in overloaded
|
||||||
|
procedure
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user