github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-06 02:59:14 +00:00
Code Issues Projects Releases Wiki Activity

Add braces to suppress dangling else warning.

Browse Source 
modified:   inc/tosfns.h
This commit is contained in:
Nick Briggs
2017-06-07 20:39:27 -07:00
parent 25b0a24e3f
commit 6595e9f7b1
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
inc/tosfns.h
View File

@@ -535,7 +535,7 @@ op_fn_common: \
LispPTR closure_env = (LispPTR) 0xffffffff; \
{register int NEXTBLOCK = NIL; \
defcell = fn_defcell; \
if( (defcell->ccodep == 0) ) \
if(defcell->ccodep == 0) { \
if(GetTypeNumber(defcell->defpointer)==TYPE_COMPILED_CLOSURE) \
{ /* setup closure */ \
closure=(CClosure *)Addr68k_from_LADDR(defcell->defpointer);\
@@ -550,6 +550,7 @@ op_fn_common: \
defcell = (DefCell *)GetDEFCELL68k(ATOM_INTERPRETER); \
needpush = 1; \
} /*else end */ \
} \
LOCFNCELL = (struct fnhead *)Addr68k_from_LADDR(defcell->defpointer); \
BCE_CURRENTFX->pc = ((UNSIGNED)PCMAC \
- (UNSIGNED)FuncObj) + fn_opcode_size; \