fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

HB_HRBLOAD: support optional filename

Browse Source 
2025-12-14 00:00 UTC-0300 Lailton Fernando Mariano (lailton/at/paysoft.com.br)
  * src/vm/runner.c
    * HB_HRBLOAD: support optional filename for in-memory HRB load
      hb_hrbLoad( cPCode, cFileName )
This commit is contained in:
Lailton
2025-12-14 00:03:27 -03:00
parent e22fb4686d
commit 9ee0a5fd17
2 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog.txt
View File

@@ -7,6 +7,11 @@
Entries may not always be in chronological/commit order.
See license at the end of file. */
2025-12-14 00:00 UTC-0300 Lailton Fernando Mariano (lailton/at/paysoft.com.br)
* src/vm/runner.c
* HB_HRBLOAD: support optional filename for in-memory HRB load
hb_hrbLoad( cPCode, cFileName )
2025-12-14 03:10 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/hbzebra/datamtrx.c
* extended GCC excessive diagnostics workaround also for GCC-15 to fix

10
src/vm/runner.c
View File

@@ -743,7 +743,15 @@ HB_FUNC( HB_HRBLOAD )
PHRB_BODY pHrbBody;
if( hb_hrbCheckSig( fileOrBody, nLen ) != 0 )
pHrbBody = hb_hrbLoad( fileOrBody, nLen, usMode, NULL );
{
const char * szFileName = NULL;
if( hb_pcount() > nParam && HB_ISCHAR( nParam + 1 ) )
{
szFileName = hb_parc( nParam + 1 );
nParam++;
}
pHrbBody = hb_hrbLoad( fileOrBody, nLen, usMode, szFileName );
}
else
pHrbBody = hb_hrbLoadFromFile( fileOrBody, usMode );