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

* contrib/libnf/kspeed.c

Browse Source 
* Fix values in switch-case.
    * Add some values for default to eliminate warnings when compiling
      with gcc -O2.
This commit is contained in:
Walter Negro
2002-04-15 04:41:39 +00:00
parent cfa2892433
commit bb78314109
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
harbour/contrib/libnf/kspeed.c
View File

@@ -154,18 +154,21 @@ HB_FUNC( FT_SETRATE)
{
union REGS registers;
int tempo,nrepete;
switch(PCOUNT) {
case 0: tempo = 0 ;
int tempo = 0,nrepete = 0;
switch( hb_pcount() ) {
case 0:
tempo = 0 ;
nrepete = 0;
break;
case 1: tempo = hb_parni(1) ;
case 1:
tempo = hb_parni(1) ;
nrepete = 0;
break;
case 0: tempo = hb_parni(1);
case 2:
tempo = hb_parni(1);
nrepete = hb_parni(2);
break;
}
}
registers.h.ah = 0x03;
registers.h.al = 0x05;
registers.h.bh = tempo;
@@ -174,3 +177,6 @@ HB_FUNC( FT_SETRATE)
}
#endif
}