Browse Source

*** empty log message ***

florian 26 years ago
parent
commit
612c54b2f5
3 changed files with 59 additions and 0 deletions
  1. 24 0
      base/README
  2. 32 0
      bugs/bug0213.pp
  3. 3 0
      bugs/readme.txt

+ 24 - 0
base/README

@@ -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 - 0
bugs/bug0213.pp

@@ -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.
+

+ 3 - 0
bugs/readme.txt

@@ -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
+