github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-24 11:12:00 +00:00
Code Issues Projects Releases Wiki Activity

Resolve "warning: cast from 'DLword *' to 'LispPTR *' increases required alignment from 2 to 4"

Browse Source 
by casting through (void *) since we know that the CurrentStackPTR is maintained with 4-byte
   aligned pointers.
This commit is contained in:
Nick Briggs 2023-01-13 18:39:35 -08:00
parent fff86c8050
commit 39b12b20ba
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
inc/lispemul.h
View File

@ -356,23 +356,33 @@ GetLongWord:
*****************************************************/
#define GetLongWord(address) (*((LispPTR *)(address)))
/* The stack is maintained as a DLword* pointer, carefully incremented
* and decremented by 2 (= 4 bytes), and mostly accessed as a LispPTR*
* to fetch 4-byte cells. There are a few places where items are
* accessed as 2 separate DLwords, so don't be tempted to blindly replace
* the DLword* declaration by a LispPTR*. The (void *) cast discourages
* the compiler from complaining about a required upgrade in the
* alignment when we know(!) that it will always point to an
* appropriate boundary.
*/
/****************************************************
PopCStack:
#define PopCStack {TopOfStack = *((LispPTR *)(--CurrentStackPTR)); --CurrentStackPTR;}
*****************************************************/
#define PopCStack \
do { \
TopOfStack = *((LispPTR *)(CurrentStackPTR)); \
TopOfStack = *((LispPTR *)(void *)(CurrentStackPTR)); \
CurrentStackPTR -= 2; \
} while (0)
/****************************************************
PopStackTo: CSTK -> Place
#define PopStackTo(Place) {Place= *((LispPTR *)(--CurrentStackPTR)); CurrentStackPTR--; }
#define PopStackTo(Place) {Place= *((LispPTR *)(void *)(--CurrentStackPTR)); CurrentStackPTR--; }
*****************************************************/
#define PopStackTo(Place) \
do { \
(Place) = *((LispPTR *)(CurrentStackPTR)); \
(Place) = *((LispPTR *)(void *)(CurrentStackPTR)); \
CurrentStackPTR -= 2; \
} while (0)
@ -383,7 +393,7 @@ PushCStack:
#define PushCStack \
do { \
CurrentStackPTR += 2; \
*((LispPTR *)(CurrentStackPTR)) = TopOfStack; \
*((LispPTR *)(void *)(CurrentStackPTR)) = TopOfStack; \
} while (0)
/****************************************************
@ -393,14 +403,14 @@ PushStack:
#define PushStack(x) \
do { \
CurrentStackPTR += 2; \
*((LispPTR *)(CurrentStackPTR)) = x; \
*((LispPTR *)(void *)(CurrentStackPTR)) = x; \
} while (0)
/****************************************************
SmashStack:
#define SmashStack(x) (*((LispPTR *)(CurrentStackPTR-1))=x)
*****************************************************/
#define SmashStack(x) (*((LispPTR *)(CurrentStackPTR)) = (x))
#define SmashStack(x) (*((LispPTR *)(void *)(CurrentStackPTR)) = (x))
/*********************************************************
Get_BYTE(byteptr) byteptr: pointer to 8 bit data