Oberon Community Platform Forum
October 16, 2019, 02:56:33 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]
  Print  
Author Topic: Compiler crash WinAos and AOS  (Read 2472 times)
darek
Jr. Member
**
Posts: 59


« on: April 06, 2010, 07:40:05 PM »

Hi  All,
 when I tried to compile the program below, the A2 compiler crashed (big way).
 After that, I had to reboot my A2 machine (or restart WinAos system).
 
 I hope this is an easy fix   Smiley.

 Regards,
   Darek


-------------------------------- PROGRAM
  MODULE euler_net_p3;

IMPORT  
  kl := KernelLog;

  VAR   big_num,
            L0,
            diff,
            res           : HUGEINT;
  
PROCEDURE  Run*;
  
  VAR i: LONGINT;  
  BEGIN    
     big_num := 600851475143;    
     L0  :=  big_num;          
     kl.String ("Computations started ..."); kl.Ln;
     diff := 1;
     i   := 1;
     res := 1;
    
     WHILE  diff # 0 DO
        IF  (big_num  MOD i  =  0)  THEN
             big_num :=  big_num DIV  i;
            
             res := res *  i;
             diff :=  res - L0;
             kl.String("Res =");kl.Int(i, 3); kl.Ln;
             i := 1;
          END;          
          INC(i,1);
     END;
  
   (*  kl.String("Result is "); kl.Int(big_num, 4); kl.Ln;*)
END Run;

END euler_net_p3.


SystemTools.Free  euler_net_p3 ~

euler_net_p3.Run ~

-------------------------------- TRAP
[1] TRAP 2 PL 3 2  CASE invalid WinAos Revision 2946 (24.02.2010)
 CS:=0000001B DS:=00000023 ES:=00000023 SS:=00000023 PC=03BCA5F1 ESI=03A19013 EDI=041EFE0F ESP=041EFD74 PID=00000F18
 EAX=00000001 EBX=00000003 ECX=00000000 EDX=0000001E EBP=041EFD78 FS:=0000003B GS:=00000000 TMR=19452169
 FLAGS: cPaZstIdo iopl0 {1..2, 6, 9}
Process: 3864 run 0 203CA7A94:UNKNOWN NIL {}
PCG386.RegisterA pc=3009 [00000BC1H]
  size=4 (04H)
State PCG386:
  @Self=03BC9214H (NIL)
  SavedRegisters=03C09F40H (NIL)
  SaveLevel=0
  CCTableSwitch=0
  FPSize=-1, -1, 3 (03H), 1 (01H), 5 (05H), 0, 2 (02H)
  TccOpcode=2 (02H), 4 (04H)
  JccOpcode=05050404H (NIL), 060E020CH (NIL), 030D070FH (UNKNOWN), 00060002H (NIL), 00030007H (NIL), 03030202H (UNKNOWN), 00000000H (NIL), 00000000H (NIL)...
  Jcc2Opcode=05040500H (NIL), 050C0500H (NIL), 06050C02H (NIL), 0F07050FH (NIL), 00000305H (NIL), 00000000H (NIL), 00000000H (NIL), 00000000H (NIL)...
  Typ1Opcode=40 (28H), 0, 32 (20H), 8 (08H), 48 (30H)
  Typ1Opcode2=24 (18H), 16 (10H), 32 (20H), 8 (08H), 48 (30H)
  Group3Opcode=2 (02H), 3 (03H)
  BitOpcode=5 (05H), 6 (06H)
  ShiftOpcode=05040704H (NIL), 00000100H (NIL), 00000000H (NIL), 03020605H (UNKNOWN), 08201018H (NIL), 00000030H (NIL)
  RegName=""
  IReg=00584145H (UNKNOWN), 00584345H (UNKNOWN), 00584445H (UNKNOWN), 00584245H (UNKNOWN), 00505345H (UNKNOWN), 00504245H (UNKNOWN), 00495345H (UNKNOWN), 00494445H (UNKNOWN)...
  reg32=0, 0, 0, 0, 0, 0, 0, 0
  reg8=0, 0, 0, 0, 0, 0, 0, 0
  regFP=0, 0, 0, 0, 0, 0, 0, 0
  FSP=0
PCG386.Optimize pc=9924 [000026C4H]
  code=03CAAEDCH (NIL)
  instr=Rec@0000001CH
  pc=52 (00000034H)
  context=00000000H (NIL)
  p=00000000H (NIL)
  copy=52 (00000034H)
  pos=0
  op=57 (39H)
  debSrc1=51 (00000033H)
  debSrc2=50 (00000032H)
  mode=1 (01H)
  info=00000000H (NIL)
  format=9 (00000009H)
  size1=0
  alive=00000000H (NIL)
  hint1=-1
  hint2=-1
PCLIR.Code.Traverse pc=420 [000001A4H]
  proc=PCG386.Optimize pc=8095 [00001F9FH]
  reversed=TRUE
  context=00000000H (NIL)
  @Self=03CAAEDCH (NIL)
  p=03CAAF3CH (NIL)
  pos=52 (00000034H)
  pc0=52 (00000034H)
PCG386.DoOptimize pc=37972 [00009454H]
  code=03CAAEDCH (NIL)
  context=00000000H (NIL)
PCB.Leave pc=89637 [00015E25H]
  code=03CAAEDCH (NIL)
  scope=03CA78F4H (NIL)
  noTrap=FALSE
  proc=03CA799CH (NIL)
  name="Run"...
  adr=03CA79FCH (NIL)
  dump=FALSE
PCP.Parser.Body pc=34200 [00008598H]
  suppress=FALSE
  @Self=03CA7A94H (NIL)
  owner=03CA799CH (NIL)
  name="Run"
  export=FALSE
  awaitCount=0
PCP.Parser.@Body pc=37827 [000093C3H]
  @Self=03CA7A94H (NIL)
Objects.Wrapper pc=5203 [00001453H]
  lpParameter=03CA805CH (NIL)
  t=03CA805CH (NIL)
  obj=03CA7A94H (NIL)
  type=60894232 (03A12C18H)
  res=1 (00000001H)
  bp=69140404 (041EFFB4H)
  sp=69140360 (041EFF88H)
  excpfrm=Rec@0000013CH
Unknown PC=7C80B729H FP=041EFFECH
---------------------------------


« Last Edit: April 06, 2010, 07:59:25 PM by darek » Logged
Pages: [1]
  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!