paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 11:06:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

+bug0272; bug #269 corrected

Browse Source
This commit is contained in:
pierre 1999-06-29 11:42:14 +00:00
parent a1ed6909e7
commit c6efbc4d2c
2 changed files with 38 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
bugs/bug0272.pp Normal file
View File

@ -0,0 +1,34 @@
program test_const_string;
function astring(s :string) : string;
begin
astring:='Test string'+s;
end;
procedure testvar(var s : string);
begin
writeln('testvar s is "',s,'"');
end;
procedure testconst(const s : string);
begin
writeln('testconst s is "',s,'"');
end;
procedure testvalue(s : string);
begin
writeln('testvalue s is "',s,'"');
end;
const
s : string = 'test';
begin
testvalue(astring('e'));
testconst(astring(s));
testconst(astring(45));
{testvar(astring);refused a compile time }
end.

7
bugs/readme.txt
View File

@ -315,7 +315,8 @@ Fixed bugs:
bug0259.pp problem with optimizer for real math (use -O1) OK 0.99.12 (PM)
bug0260.pp problem with VMT generation if non virtual
method has a virtual overload OK 0.99.12 (PM)
bug0261.pp problems for assignment overloading OK 0.99.12a (PM)
bug0269.pp wrong linenumber for repeat until when type mismatch OK 0.99.12b (PM)
Unproducable bugs:
------------------
@ -350,7 +351,6 @@ bug0244.pp nested procedures can't have same name as global ones (same as bug0
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
bug0261.pp problems for assignment overloading
bug0262.pp problems with virtual and overloaded methods
bug0263.pp export directive is not necessary in delphi anymore
bug0264.pp methodpointer bugs
@ -358,6 +358,7 @@ bug0265.pp nested proc with for-counter in other lex level
bug0266.pp write cuts 256 char
bug0267.pp parameters after methodpointer are wrong
bug0268.pp crash with exceptions
bug0269.pp wrong linenumber for repeat until when type mismatch
bug0270.pp unexpected eof in tp mode with (* and directives
bug0271.pp abstract methods can't be assigned to methodpointers
bug0272.pp No error issued if wrong parameter in function inside a second function