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

added a couple of casts

Browse Source
This commit is contained in:
Paul Tucker
2000-03-16 09:13:37 +00:00
parent 8be67a0e40
commit e352ba0534
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
20000316-04:10 EST Paul Tucker <ptucker@sympatico.ca>
* source/rtl/gt/gtpca.c
* added casts
20000316-02:50 EST Paul Tucker <ptucker@sympatico.ca>
* source/rtl/gtapi.c
* removed extraneous ';'

4
harbour/source/rtl/gt/gtpca.c
View File

@@ -248,7 +248,7 @@ void hb_gt_Scroll( USHORT usTop, USHORT usLeft, USHORT usBottom, USHORT usRight,
USHORT i;
for( i = usTop; i <= usBottom; i++ )
{
hb_gt_Puts( i, usLeft, s_iAttribute, s_szSpaces, (usRight - usLeft ) + 1 );
hb_gt_Puts( i, usLeft, s_iAttribute, ( BYTE * )s_szSpaces, (usRight - usLeft ) + 1 );
}
}
}
@@ -303,7 +303,7 @@ void hb_gt_Puts( USHORT usRow, USHORT usCol, BYTE attr, BYTE * str, ULONG len )
str[ len ] = save;
/* Update the cursor position */
s_usRow = usRow;
s_usCol = usCol + len;
s_usCol = usCol + ( USHORT )len;
if( s_usCol > s_usMaxCol ) s_usCol = s_usMaxCol;
}