Function to load an execute source code from runtime. Error BASE/6105 Argument error: HB_HRBUNLOAD

[wildarcanjo]

I'm having a problem with some source code. The program opens a source file (.prg) and executes it from another already compiled file, using the functions hb_compileFromBuf(), hb_hrbLoad() and hb_hrbUnload() (the problem is with the last one. When it is executed, it always returns the error:

Error BASE/6105 Argument error: HB_HRBUNLOAD
Called from HB_HRBUNLOAD(0)
Called from HB_FILERUN(47)
Called from MAIN(12)

CodeBlock.zip

[FiveTechSoft]

https://deepwiki.com/search/im-having-a-problem-with-some_d6584dc1-bf92-4b48-8272-b71a0d492531?mode=fast

[wildarcanjo]

The code uploaded is not correct. The new code is base of problem. ant the problem continues.

[diegofazio]

I'm having a problem with some source code. The program opens a source file (.prg) and executes it from another already compiled file, using the functions hb_compileFromBuf(), hb_hrbLoad() and hb_hrbUnload() (the problem is with the last one. When it is executed, it always returns the error:

Error BASE/6105 Argument error: HB_HRBUNLOAD Called from HB_HRBUNLOAD(0) Called from HB_FILERUN(47) Called from MAIN(12)

CodeBlock.zip

You should use hb_hrbLoad/hb_hrbUnload this way...

// load hrb data
pHrb := hb_hrbLoad( hHRB )
/*
   do something.....
*/
// Clean up memory
hb_hrbUnload( pHrb )

[wildarcanjo]

I think I found the problem, and it seems to be due to how function calls are handled, which appears to be due to the compilation parameters passed in hb_compileFromBuf and how compilation errors are reported in the runtime code. I'm attaching a working example. In the main.prg program, there's a commented-out call to hb_compileFromBuf where the error occurs. But the fact is, it's working now. I'm investigating the code further to find out why this behavior is happening.

Code.zip

[wildarcanjo]

hb_hrbLoad() points to the first instruction defined within the source code (which may even be initialization code in the source file), and the subsequent call to Do() will execute the code by default as if it were a program or procedure (starting from the first instruction found). To reference a function or procedure within the source code, it is necessary to use the hb_hrbGetFunsym() function, which returns the pointer to the function you want to execute from within the compiled source code structure represented by the pointer returned by hb_hrbLoad(), so that this function can then be called for execution. From there, the release calls to the structure represented by the entire source code can be made using hb_hrbUnload(), passing the pointer returned in the hb_hrbLoad() call.

A correction:

The HB_Code_Unload(hHRB) call was missing at the end of the MAIN procedure's source code to release the pointer. But it works, you can trust me! ;-)

[alcz]

Basically you should keep reference of what hb_hrbLoad() function returns.

   // 2. Compila e pega o handle do código compilado em memória
   hHRB := hb_compileFromBuf( cSource, .T., "-n1", "-w3", "-es2", "-q2" )

   IF !Empty( hHRB )
      // 3. Carrega o código a ser executado
      hb_hrbLoad( hHRB )
      
      // Chama a função e passa os parametros e espera o retorno
      Do( procedureName,aParameters, @aReturn )

      // Clean up memory
      hb_hrbUnload( hHRB )
      hHRB:= NIL
   ELSE
      RETURN .F.
   ENDIF	

should become more like

   // 2. Compila e pega o handle do código compilado em memória
   cHRB := hb_compileFromBuf( cSource, .T., "-n1", "-w3", "-es2", "-q2" )

   IF !Empty( cHRB )
      // 3. Carrega o código a ser executado
      hHRB := hb_hrbLoad( cHRB )
      
      // Chama a função e passa os parametros e espera o retorno
      Do( procedureName,aParameters, @aReturn )

      // Clean up memory
      hb_hrbUnload( hHRB )
      hHRB:= NIL
   ELSE
      RETURN .F.
   ENDIF