BohdanT
|
 |
« on: April 16, 2008, 05:50:08 PM » |
|
Try compile sample: MODULE TestType; TYPE typ=OBJECT END typ; VAR p:ANY; BEGIN p:=typ(typ); END TestType.
|
|
« Last Edit: April 16, 2008, 05:56:59 PM by BohdanT »
|
Logged
|
|
|
|
BohdanT
|
 |
« Reply #1 on: April 16, 2008, 05:55:53 PM » |
|
MODULE TestProcName; PROCEDURE "z"; BEGIN END "z"; END TestProcName.
|
|
|
Logged
|
|
|
|
BohdanT
|
 |
« Reply #2 on: April 18, 2008, 01:40:22 PM » |
|
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.
|
|
|
Logged
|
|
|
|
negelef
|
 |
« Reply #3 on: April 18, 2008, 04:05:29 PM » |
|
Fixed the bugs in revisions 1198, 1196 and 1197 respectively. Thanks very much for reporting!
|
|
|
Logged
|
|
|
|
BohdanT
|
 |
« Reply #4 on: April 21, 2008, 04:07:46 PM » |
|
Not so simple! I do not stop! Continued... 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.
|
|
« Last Edit: April 21, 2008, 04:14:01 PM by BohdanT »
|
Logged
|
|
|
|
negelef
|
 |
« Reply #5 on: April 21, 2008, 04:22:21 PM » |
|
Thanks for that service. The bug is fixed in revision 1201, but it was surely not the last one 
|
|
|
Logged
|
|
|
|
BohdanT
|
 |
« Reply #6 on: April 23, 2008, 07:08:41 AM » |
|
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.
|
|
|
Logged
|
|
|
|
BohdanT
|
 |
« Reply #7 on: April 23, 2008, 01:55:04 PM » |
|
MODULE Test; BEGIN RedScreen := [Show]; END Test;
|
|
|
Logged
|
|
|
|
negelef
|
 |
« Reply #8 on: April 23, 2008, 03:14:13 PM » |
|
Fixed in revisions 1204 and 1205. Did you consider freeing the compiler modules (see PC.Tool) instead of rebooting the system?
|
|
|
Logged
|
|
|
|
BohdanT
|
 |
« Reply #9 on: May 05, 2008, 02:24:05 PM » |
|
MODULE Test; IMPORT WMComponents; VAR RedScreen : ANY; BEGIN WITH RedScreen:WMComponents.VisualComponent DO RedScreen^.DrawBackground(canvas); END; END Test;
|
|
|
Logged
|
|
|
|
negelef
|
 |
« Reply #10 on: May 05, 2008, 03:33:21 PM » |
|
Thanks. Fixed in revision 1212.
|
|
|
Logged
|
|
|
|
BohdanT
|
 |
« Reply #11 on: May 07, 2008, 04:20:02 PM » |
|
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??
|
|
« Last Edit: May 07, 2008, 04:21:37 PM by BohdanT »
|
Logged
|
|
|
|
negelef
|
 |
« Reply #12 on: May 07, 2008, 05:22:14 PM » |
|
Thanks. Fixed in revision 1214.
|
|
|
Logged
|
|
|
|
BohdanT
|
 |
« Reply #13 on: May 15, 2008, 03:45:14 AM » |
|
Hello negelef! MODULE Test; IMPORT XMLObjects; VAR i:LONGINT; generators:XMLObjects.Dictionary; BEGIN FOR i:=0 TO generators.GetNumberOfElements(*-1 *) DO END ; END Test.
|
|
|
Logged
|
|
|
|
negelef
|
 |
« Reply #14 on: May 15, 2008, 10:13:41 AM » |
|
Hi BohdanT. Thanks for reporting, we fixed it in revision 1218.
|
|
|
Logged
|
|
|
|
|