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

* contrib/libnf/getvid.c

Browse Source 
* Add some values for default to eliminate warnings when compiling
      with gcc -O2.
This commit is contained in:
Walter Negro
2002-04-15 04:49:14 +00:00
parent a6410fcc40
commit 4fbe1e4535
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/contrib/libnf/getvid.c
View File

@@ -62,9 +62,9 @@ HB_FUNC(_FT_GETVPG)
#if defined(HB_OS_DOS)
{
union REGS registers;
regs.h.ah=0x0F;
registers.h.ah=0x0F;
HB_DOS_INT86(0x10,&registers,&registers);
iPage=regs.h.bh;
iPage=registers.h.bh;
}
#else
{
@@ -83,9 +83,10 @@ HB_FUNC(_V_SETVPG)
int iPage;
union REGS registers;
iPage=hb_parni(1);
regs.h.ah=0x05;
regs.h.al=iPage;
registers.h.ah=0x05;
registers.h.al=iPage;
HB_DOS_INT86(0x10,&registers,&registers);
}
#endif
}