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

Merge pull request #394 from lailton/master

Browse Source 
HB_HRBLOAD: support optional filename
This commit is contained in:
FiveTech Software
2025-12-15 03:03:12 +01:00
committed by GitHub
parent e22fb4686d 9ee0a5fd17
commit fcb1eb001f
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. Entries may not always be in chronological/commit order.
See license at the end of file. */ 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) 2025-12-14 03:10 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/hbzebra/datamtrx.c * contrib/hbzebra/datamtrx.c
* extended GCC excessive diagnostics workaround also for GCC-15 to fix * 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; PHRB_BODY pHrbBody;
if( hb_hrbCheckSig( fileOrBody, nLen ) != 0 ) 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 else
pHrbBody = hb_hrbLoadFromFile( fileOrBody, usMode ); pHrbBody = hb_hrbLoadFromFile( fileOrBody, usMode );