Compiler red screen

[BohdanT]

Try compile sample:

Code:

MODULE TestType;
TYPE
 typ=OBJECT
 
 END typ;
VAR
 p:ANY;
BEGIN
p:=typ(typ);
END TestType.

[BohdanT]

Code:

MODULE TestProcName;
PROCEDURE "z";
BEGIN
END "z";
END TestProcName.

[BohdanT]

Code:

MODULE ATest;
TYPE
T = OBJECT
VAR
 x:REAL;
END T;

PROCEDURE Test;
VAR
 X:LONGINT;
BEGIN
 X:=ENTIER(1+T.x);
END Test;
END ATest.

[negelef]

Fixed the bugs in revisions 1198, 1196 and 1197 respectively. Thanks very much for reporting!

[BohdanT]

Not so simple! I do not stop! 
Continued...

Code:

MODULE RedScreenHelper;
PROCEDURE ":="*( VAR l: RedScreen.Show;r:LONGINT ); 
BEGIN
l.Set(r);
END ":="; 
END RedScreenHelper.

   
I am not angry, but the compiler must be error-free!
   
I did not specifically search for errors, just for writing code, accidentally forgot to import the module, etc. but it leads to bad consequences. I need to reboot .... BlueButtle.

[negelef]

Thanks for that service. The bug is fixed in revision 1201, but it was surely not the last one 

[BohdanT]

Code:

MODULE TTest;

TYPE
  Date = LONGINT;

PROCEDURE DoDateChange(FromDate, ToDate: Date; MoveMouse, ResetStartEnd: BOOLEAN): BOOLEAN;

END DoDateChange;

BEGIN

 IF DoDateChange(Date, SysUtils.Date, FALSE, FALSE) THEN END;

END TTest.

[BohdanT]

Code:

MODULE Test;
BEGIN
   RedScreen := [Show];
END Test;

[negelef]

Fixed in revisions 1204 and 1205. Did you consider freeing the compiler modules (see PC.Tool) instead of rebooting the system?

[BohdanT]

Code:

MODULE Test;
IMPORT WMComponents;
VAR
RedScreen : ANY;
BEGIN
WITH RedScreen:WMComponents.VisualComponent DO
RedScreen^.DrawBackground(canvas);
END;
END Test;

[negelef]

Thanks. Fixed in revision 1212.

[BohdanT]

Code:

MODULE Test;
IMPORT Utilities;
TYPE
 String=Utilities.String;
VAR
 pname,s:String;
PROCEDURE "+"*(CONST l, r:ARRAY OF CHAR):String; 
VAR
s:String;
BEGIN
NEW(s, Utilities.Length(l) + Utilities.Length(r) + 1);
Utilities.Concat(l, r, s^);
RETURN s;
END "+"; 
BEGIN
 s:=pname^+".";
END Test;

PS: Also wanted to ask why there was no reaction to my post about
WMStandardComponents.GroupPanel.AddContent?
I have no rights or need more information and give an example??

[negelef]

Thanks. Fixed in revision 1214.

[BohdanT]

Hello negelef!

Code:

MODULE Test;
IMPORT XMLObjects;
VAR
 i:LONGINT;
generators:XMLObjects.Dictionary;
BEGIN
FOR i:=0 TO generators.GetNumberOfElements(*-1 *) DO END ;
END Test.

[negelef]

Hi BohdanT. Thanks for reporting, we fixed it in revision 1218.