I couldn't get in contact with the bug-report system, but the following code behaves incorrectly (compiled using -Sd):

program TestConsole;
var
  AStr,BStr : string;
procedure WriteStr(p1,p2 : PChar);
begin
  WriteLn(p1,p2);
end;
begin
  AStr := 'Hel';
  BStr := 'Hi';
  //The following outputs 'Hello Hello'
  WriteStr(PChar(AStr+'lo '),PChar(BStr+'Hi'));
  //The following outputs 'Hello Hi Hi'
  WriteStr('Hello',' Hi Hi');
  ReadLn;
end.

Regards
Morten

Morten Juel wrote

I couldn't get in contact with the bug-report system, but the following code behaves incorrectly (compiled using -Sd):

No, it is correct.
The result of a PChar() typecast on an expression is not defined outside the expression. This is correct behaviour - maybe unexpected. You must explicitly assign the expression result to a string, and typecase that.

This is documented behaviour!

Michael.

OK Thanks!

I didn't find the exact place in the documentation, but this is a change in behaviour right? It worked in earlier versions of FPC and it works in Delphi...

Regards
Morten

No problem here:

C:\Down>pp11 p -Sd
Free Pascal Compiler version 1.9.3 [2004/01/16] for i386 Copyright (c) 1993-2002 by Florian Klaempfl
Target OS: Win32 for i386
Compiling p.pp
Linking p.exe
18 Lines compiled, 0.2 sec

C:\Down>p
Hello HiHi
Hello Hi Hi

C:\Down>

Morten Juel wrote

OK Thanks! I didn't find the exact place in the documentation, but this is a change in behaviour right?

No, it was always like that.

It worked in earlier versions of FPC and it works in Delphi...

This is pure coincidence. The change in the register allocator just exposes a bug in your code. Delphi documentation also warns against this...

Michael.

Hi guys,

this is two years as I test FPC on my project. Every now and then it does not work. I submit reports, they are fixed, but later on they are here again. I intensively use default parameters, open and dynamic arrays, overloaded functions. They all work, but when used a lot, and especially used together (Say dynarray as a result of an overloaded function, or open array with a default value) -- compiler cannot handle it.

I might be wrong but I guess it is just because nobody esle is using those features so extensively as I do. And these features luck attention of developers. Let's take it seriously and once complete them! Waiting for two years and to see little of progress is no good!

Here is another report. I believe it was working before! Now again with 1.9.2 it is here.

type
 strs = array of string;
function list(b: string = ''): strs;
begin
end;
begin
 list;
end.
bug3.pas(9,2) Fatal: Internal error 200212141

See, I have a project 20000 lines long, with dynarrays, openarrays, defaults and overloads used just in every second line (and that's why it is only 20K lines, not 100K) and I believe that this project is a great test for the compiler! If you guys decide to help me to compile it and get it working as good as it works when compiled with delphi/kylix (console app with only system unit used) -- you will get these four new features really stable!

Thanks,
Yakov Sudeikin

Dynamic arrays and default parameters are new features and only available in 2 public beta's so you can't expect that they are completly bug free as they don't have enough testing in the field yet. We are dependent on the public to test these features, the compiler itself does not use it.

Also 1.9.x is still not feature frozen. And this bug was introduced as side effect by a new feature register calling and only happends when the result of the function is returned using a hidden parameter. It is impossible for us to see that kind of issues and have them covered in test cases. They only way we find them is when ppl use the features and report bugs. The bug report will then be added to the regression tests.

And btw. the bug was already fixed before you wrote this mail. It is better to follow the daily snapshots when you use new features.

Peter

Hi,

What happened with "closedir", "opendir" "Dirent" things in FreeBSD RTL? in 1.1 I used just to add "uses unix;" and the functions were here, now I just cannot find them in the 1.9.2 idea where are they now?

Thank you,
Yakov

What happened with "closedir", "opendir" "Dirent" things in FreeBSD RTL? in 1.1 I used just to add "uses unix;" and the functions were here, now I just cannot find them in the 1.9.2 idea where are they now?

fpopendir, fpclosedir and dirent in baseunix