From bf4e54eaa4833f4772c1cd98362c534628d44d46 Mon Sep 17 00:00:00 2001 From: pierre Date: Wed, 2 Jun 1999 22:50:56 +0000 Subject: [PATCH] + 257, fixed 254,256 --- bugs/bug0257.pp | 18 ++++++++++++++++++ bugs/readme.txt | 9 ++++++--- 2 files changed, 24 insertions(+), 3 deletions(-) create mode 100644 bugs/bug0257.pp diff --git a/bugs/bug0257.pp b/bugs/bug0257.pp new file mode 100644 index 0000000000..96f0303036 --- /dev/null +++ b/bugs/bug0257.pp @@ -0,0 +1,18 @@ +{$mode tp} + +type proc = procedure(a : longint); +procedure test(b : longint); +begin + Writeln('Test ',b); +end; + +var + t : proc; + +begin + t:=test; + t:=proc(test); + test(3); + t(5); +end. + diff --git a/bugs/readme.txt b/bugs/readme.txt index 9da6b78f0d..7862a8e8b9 100644 --- a/bugs/readme.txt +++ b/bugs/readme.txt @@ -308,6 +308,10 @@ Fixed bugs: bug0250.pp error with Ansistrings and loops. OK 0.99.11 (PFV) bug0251.pp typed const are not aligned correctly OK 0.99.11 (PM) bug0253.pp problem with overloaded procedures and forward OK 0.99.11 (PFV) + bug0254.pp problem of endless loop if string at end of main + file without new line. OK 0.99.11 (PM) + bug0256.pp problem with conditionnals in TP mode OK 0.99.11 (PM) + bug0257.pp problem with procvars in tp mode OK 0.99.11 (PM) Unproducable bugs: @@ -341,10 +345,9 @@ Unfixed bugs: bug0232.pp const. procedure variables need a special syntax if they use calling specification modifiers bug0237.pp Can't have sub procedures with names defined in interface -bug0244.pp nested procedures can't have same name as global ones +bug0244.pp nested procedures can't have same name as global ones (same as bug0237) bug0245.pp assigning pointers to address of consts is allowed (refused by BP !) bug0246.pp const para can be changed without error bug0252.pp typecasting not possible within typed const -bug0254.pp problem of endless loop if string at end of main file without new line. bug0255.pp internal error 10 with in and function calls -bug0256.pp problem with conditionnals in TP mode \ No newline at end of file +