Internal error 2011010304, a rare one

[Fibonacci]

I guess this one is a rare one

Code: Pascal  [Select][+][-]

1. {$modeswitch arrayoperators}
2.  
3. var
4.   bools: array of boolean;
5.   bool: boolean;
6.  
7. begin
8.   bools += [bool or bool]; // project1.lpr(8,26) Error: Internal error 2011010304
9. end.

[speter]

I don't have an answer, but I tweaked your code (to make sure everything was initialised); and still got the same error.

Not sure if that's helpful though.

Code: Pascal  [Select][+][-]

1. var
2.   bools : array of boolean = (false,true,false,false);
3.   boola: boolean = false;
4.   boolb: boolean = true;
5. begin
6.   bools += [boola or boolb];
7.   . . .

I was trying to work out whether the problem was because you were comparing the same data...

I should also comment that I haven't encountered
 {$modeswitch arrayoperators}
before! It sounds cool though.

If i replace the "bools +="  line with:

Code: Pascal  [Select][+][-]

1.   n := length(bools);
2.   setlength(bools,n+1);
3.   bools[n] := boola or boola;

(where n:integer;)
It runs correctly.

cheers
S.

[Fibonacci]

Another example, closer to what my code looked like when I first encountered this internal error.

Code: Pascal  [Select][+][-]

1. {$modeswitch arrayoperators}
2.  
3. var
4.   bools: array of boolean;
5.   s: string;
6.  
7. begin
8.   bools := []; // init
9.   bools += [(s <> '') and (s[1] = 'x')]; // project1.lpr(9,40) Error: Internal error 2011010304
10. end.

Inserting a new value that is expression of 2 bools (or more) accessing variables or functions = internal error.

I created an issue on gitlab, and have feeling it will be fixed soon.

[speter]

The manual (https://www.freepascal.org/docs-html/ref/refsu48.html) example for Dynamic array operators is:

Code: Pascal  [Select][+][-]

1. var  
2.   a,b, c : array of byte;  
3. begin  
4.   a:=[0,1,2];  
5.   b:=[3,4,5];  
6.   c:=a+b;

So your code (I tihnk) has 2 possible issues:
  + you aren't adding 2 dynamic arrays; and
  + you are using the short-cut syntax +=

Having said all that, I agree with you!
This is a strange response.

cheers
S.

[speter]

Interestingly, this works fine:

Code: Pascal  [Select][+][-]

1. var
2.   bools : array of boolean = (false,true,false,false);
3.   boolb : array of boolean = ();
4.   s : string = 'foo';
5. begin
6.   boolb := [s[1]='f'];
7.   bools += bools + boolb;

EDIT: changing the last line to

Code: Pascal  [Select][+][-]

1.   bools += boolb;

also worked fine!

cheers
S.

[PascalDragon]

I guess this one is a rare one

Code: Pascal  [Select][+][-]

1. {$modeswitch arrayoperators}
2.  
3. var
4.   bools: array of boolean;
5.   bool: boolean;
6.  
7. begin
8.   bools += [bool or bool]; // project1.lpr(8,26) Error: Internal error 2011010304
9. end.

Please report a bug.

[Fibonacci]

Please report a bug.

I did: https://gitlab.com/freepascal.org/fpc/source/-/issues/40650

BTW. Did you see this?
https://forum.lazarus.freepascal.org/index.php/topic,66218.msg506455.html#msg506455

[PascalDragon]

Please report a bug.

I did: https://gitlab.com/freepascal.org/fpc/source/-/issues/40650

Thanks, hadn't looked at GitLab in the last 24 hours however.

BTW. Did you see this?
https://forum.lazarus.freepascal.org/index.php/topic,66218.msg506455.html#msg506455

Yes, but I currently have more important fires to put out in the time I have available.

[Joanna from IRC]

I always thought that it was necessary to set length of dynamic array before trying to use it? Since when has it been possible to add things to an array like It’s a string?

[speter]

I always thought that it was necessary to set length of dynamic array before trying to use it? Since when has it been possible to add things to an array like It’s a string?

Joanna, I don't know when {$modeswitch arrayoperators} were added; but to find out about the option, follow the link in reply #3.

cheers
S.

[Thaddy]

The feature was announced in may 2018 and released in 3.2.0.
https://lists.freepascal.org/pipermail/fpc-pascal/2018-May/053892.html
https://wiki.freepascal.org/FPC_New_Features_3.2.0