github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-20 09:45:13 +00:00
Code Issues Projects Releases Wiki Activity

Remove LHS casts in old color code. Add void return types where needed. Add includes.

Browse Source
This commit is contained in:
Nick Briggs 2023-03-10 15:20:08 -08:00
parent 92df6316dc
commit f16b01167e
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/rawcolor.c
View File

@ -33,9 +33,14 @@
#include "arith.h"
#include "bitblt.h"
#include "lldsp.h"
#include "bbtsubdefs.h"
#include "gcarraydefs.h"
#include "testtooldefs.h"
#include "lsthandldefs.h"
#include "car-cdrdefs.h"
#include "keyeventdefs.h"
#define IMIN(x, y) (((x) > (y)) ? (y) : (x))
#define IMAX(x, y) (((x) > (y)) ? (x) : (y))
@ -94,9 +99,9 @@ LispPTR SLOWBLTCHAR_index;
#define FReplaceSmallp(place, val, puntcase) \
{ \
if ((0 <= (val)) && ((val) <= MAX_SMALL)) \
(LispPTR)(place) = (LispPTR)(S_POSITIVE | (val)); \
(place) = (LispPTR)(S_POSITIVE | (val)); \
else if (MIN_SMALL <= val) \
(LispPTR)(place) = (LispPTR)(S_NEGATIVE | (0xffff & (val))); \
(place) = (LispPTR)(S_NEGATIVE | (0xffff & (val))); \
else { \
puntcase; \
} \
@ -125,7 +130,7 @@ LispPTR COLORSCREEN_index; /* if it's 0xffffffff, not yet initialized */
/* */
/************************************************************************/
C_slowbltchar(LispPTR *args)
void C_slowbltchar(LispPTR *args)
{
Stream *n_dstream;
DISPLAYDATA *n_dd;
@ -210,8 +215,8 @@ C_slowbltchar(LispPTR *args)
w = *(DLword *)NativeAligned2FromLAddr(n_dd->ddcharimagewidths + Char8Code(charcode));
h = src_h;
(short)dst_x = (short)curx;
(short)dst_y = (short)cury - (short)n_csinfo->CHARSETDESCENT;
dst_x = (short)curx;
dst_y = (short)cury - (short)n_csinfo->CHARSETDESCENT;
{ /* clipping */
short left, right, bottom, top;