OpenEuphoria

2. Re: Machine Level Exception Error

• Posted by jmduro 1 week ago
• 158 views

I get the same error without libffi. Here is ex.err after running this macro in NotepadPlusPlus to help read sequences:

Macro clean_err 
 
replace 
[0-9]+'(.)'[,\r\n]* 
by 
\1 

C:\Users\HP\Downloads\agar_1.7.0\demo\..\include\ag_gui.e:38 in function AG_InitGraphics()  
A machine-level exception occurred during execution of this statement (signal 11)  
    win = 0 
 
... called from C:\Users\HP\Downloads\agar_1.7.0\demo\hello.ex:5  
 
 
Public & Export & Global & Local Variables 
 
 C:\Euphoria\include\std\memconst.e: 
    DEP_really_works = 1 
    use_DEP = 1 
    FREE_RID = 2 
    kernel_dll = <no value> 
    memDLL_id = <no value> 
    VirtualAlloc_rid = <no value> 
    VirtualLock_rid = <no value> 
    VirtualUnlock_rid = <no value> 
    VirtualProtect_rid = <no value> 
    GetLastError_rid = <no value> 
    GetSystemInfo_rid = <no value> 
 
 C:\Euphoria\include\std\memory.e: 
    edges_only = <no value> 
    check_calls = 1 
    VirtualFree_rid = 25 
 
 C:\Euphoria\include\std\types.e: 
    Defined_Sets = { 
                     {bcdfghjklmnpqrstvwxyzBCDFGHJKLMNPQRSTVWXYZ}, 
                     {aeiouAEIOU}, 
                     { 
                       {09}, 
                       {AF}, 
                       {af} 
                     }, 
                     { 9,10,13,11,160}, 
                     { 
                       { /}, 
                       {:?}, 
                       {[`}, 
                       {{~} 
                     }, 
                     { 
                       { ~} 
                     }, 
                     { 
                       { ~}, 
                       {  }, 
                       {9,9}, 
                       {10,10}, 
                       {13,13}, 
                       {8,8}, 
                       {7,7} 
                     }, 
                     { 
                       {az} 
                     }, 
                     { 
                       {AZ} 
                     }, 
                     { 
                       {09}, 
                       {az}, 
                       {AZ} 
                     }, 
                     { 
                       {09}, 
                       {az}, 
                       {AZ}, 
                       {__} 
                     }, 
                     { 
                       {az}, 
                       {AZ} 
                     }, 
                     { 
                       {0,} 
                     }, 
                     { 
                       {0,31}, 
                       {} 
                     }, 
                     { 
                       {09} 
                     }, 
                     { 
                       {!~} 
                     }, 
                     { 
                       {0,255} 
                     }, 
                     {_}, 
                     {1,0} 
                   } 
 
 C:\Euphoria\include\std\machine.e: 
    FREE_ARRAY_RID = 1 
    page_size = 65536 
    oldprotptr = 41537520 
    kernel_dll = 140716803031040 
    memDLL_id = 140716803031040 
    VirtualAlloc_rid = 23 
    VirtualProtect_rid = 24 
    GetLastError_rid = 26 
    GetSystemInfo_rid = 27 
    vaa = <no value> 
    system_info_ptr = <no value> 
 
 C:\Euphoria\include\std\os.e: 
    cur_pid = -1 
 
 C:\Users\HP\Downloads\agar_1.7.0\demo\..\include\ag_core.e: 
    ag_core = 140716299452416 
 
 C:\Users\HP\Downloads\agar_1.7.0\demo\..\include\ag_gui.e: 
    ag_gui = 140715853414400 
 
 C:\Users\HP\Downloads\agar_1.7.0\demo\hello.ex: 
    win = <no value> 

Jean-Marc

4. Re: Machine Level Exception Error

• Posted by jmduro 1 week ago
• 148 views

I corrected AG_Initcore as such:

public function AG_InitCore(object progname, integer flags)  
  atom addr, ret  
    
  if sequence(progname) then  
    addr = allocate_string(progname)  
  else  
    addr = progname  
  end if  
  ret = c_func(xAG_InitCore, {addr, flags})  
  return ret  
end function  

I still get the same error when running this piece of code:

  if (AG_InitCore("dummy", 0) = -1) or  
     (AG_InitGraphics(0) = -1) then  
    printf(2, "Init failed: %s\n", {AG_GetError()}) 
    maybe_any_key() 
    abort (1)  
  end if  

The error happens when running AG_InitGraphics(0) or AG_InitGraphics(allocate_string("dummy")).

Jean-Marc

6. Re: Machine Level Exception Error

• Posted by petelomax 1 week ago
• 137 views

#define AG_VERBOSE        0x01 /* Allow errors and warnings on the console */ 

8. Re: Machine Level Exception Error

• Posted by Icy_Viking 1 week ago
• 128 views

public constant xAG_InitGraphics = define_c_func(gui,"+AG_InitGraphics",{C_STRING},C_INT) 
 
public function AG_InitGraphics(sequence driver) 
	return c_func(xAG_InitGraphics,{driver}) 
end function 

C_STRING does take care of string_allocation for you. https://github.com/ghaberek/libffi-euphoria/blob/main/include/std/ffi.e

However based on the other replies, it may be better to use C_POINTER in this case. However it seems the issue still isn't resolved yet.

10. Re: Machine Level Exception Error

• Posted by andreasWagner 1 week ago
• 100 views

[quote jmduro]

Hallo,

Yes, i just didn't see it. With Phix it dies silent without a message.
I assume that the problem cannot be solved from the outside. It lies within the dll. The debbuger shows that several exceptions are triggered. And AG.FatalError is called.

EXCEPTION_DEBUG_INFO: 
           dwFirstChance: 1 
           ExceptionCode: C0000005 (EXCEPTION_ACCESS_VIOLATION) 
          ExceptionFlags: 00000000 
        ExceptionAddress: ag_gui.00007FFF4EDAF95F 
        NumberParameters: 2 
ExceptionInformation[00]: 0000000000000001 Write 
ExceptionInformation[01]: 0000000000000000 Inaccessible Address 
Erste Ausnahme[First chance exception] bei 00007FFF4EDAF95F (C0000005, EXCEPTION_ACCESS_VIOLATION)! 

00007FFF4EDAF95F | 48:8910                  | mov qword ptr ds:[rax],rdx              | rdx:"AG_Driver" 
00007FFF4EDAF962 | 48:8B85 08010000         | mov rax,qword ptr ss:[rbp+108]          | [rbp+108]:"AG_Driver" 
00007FFF4EDAF969 | 48:8B80 D8000000         | mov rax,qword ptr ds:[rax+D8]           | 
00007FFF4EDAF970 | 48:8B95 08010000         | mov rdx,qword ptr ss:[rbp+108]          | [rbp+108]:"AG_Driver" 

But I have to be honest, I don't really know what it's supposed to mean. and I'm also slowly losing interest.

Andreas