Oberon Community Platform Forum
October 23, 2019, 02:43:55 AM *
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
News:
 
   Home   Help Search Login Register  
Pages: [1] 2
  Print  
Author Topic: Compiler red screen  (Read 22384 times)
BohdanT
Sr. Member
****
Posts: 271


Life is difficult, but fortunately is short!


WWW
« on: April 16, 2008, 05:50:08 PM »

Try compile sample:
Code:
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
Sr. Member
****
Posts: 271


Life is difficult, but fortunately is short!


WWW
« Reply #1 on: April 16, 2008, 05:55:53 PM »

Code:
MODULE TestProcName;
PROCEDURE "z";
BEGIN
END "z";
END TestProcName.
Logged
BohdanT
Sr. Member
****
Posts: 271


Life is difficult, but fortunately is short!


WWW
« Reply #2 on: April 18, 2008, 01:40:22 PM »

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.
Logged
negelef
Administrator
Jr. Member
*****
Posts: 55


« 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
Sr. Member
****
Posts: 271


Life is difficult, but fortunately is short!


WWW
« Reply #4 on: April 21, 2008, 04:07:46 PM »

Not so simple! I do not stop!  Cheesy Cheesy Cheesy
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.
« Last Edit: April 21, 2008, 04:14:01 PM by BohdanT » Logged
negelef
Administrator
Jr. Member
*****
Posts: 55


« 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  Undecided
Logged
BohdanT
Sr. Member
****
Posts: 271


Life is difficult, but fortunately is short!


WWW
« Reply #6 on: April 23, 2008, 07:08:41 AM »

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.
Logged
BohdanT
Sr. Member
****
Posts: 271


Life is difficult, but fortunately is short!


WWW
« Reply #7 on: April 23, 2008, 01:55:04 PM »

Code:
MODULE Test;
BEGIN
   RedScreen := [Show];
END Test;
Logged
negelef
Administrator
Jr. Member
*****
Posts: 55


« 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
Sr. Member
****
Posts: 271


Life is difficult, but fortunately is short!


WWW
« Reply #9 on: May 05, 2008, 02:24:05 PM »

Code:
MODULE Test;
IMPORT WMComponents;
VAR
RedScreen : ANY;
BEGIN
WITH RedScreen:WMComponents.VisualComponent DO
RedScreen^.DrawBackground(canvas);
END;
END Test;
Logged
negelef
Administrator
Jr. Member
*****
Posts: 55


« Reply #10 on: May 05, 2008, 03:33:21 PM »

Thanks. Fixed in revision 1212.
Logged
BohdanT
Sr. Member
****
Posts: 271


Life is difficult, but fortunately is short!


WWW
« Reply #11 on: May 07, 2008, 04:20:02 PM »

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??
« Last Edit: May 07, 2008, 04:21:37 PM by BohdanT » Logged
negelef
Administrator
Jr. Member
*****
Posts: 55


« Reply #12 on: May 07, 2008, 05:22:14 PM »

Thanks. Fixed in revision 1214.
Logged
BohdanT
Sr. Member
****
Posts: 271


Life is difficult, but fortunately is short!


WWW
« Reply #13 on: May 15, 2008, 03:45:14 AM »

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.
Logged
negelef
Administrator
Jr. Member
*****
Posts: 55


« Reply #14 on: May 15, 2008, 10:13:41 AM »

Hi BohdanT. Thanks for reporting, we fixed it in revision 1218.
Logged
Pages: [1] 2
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!