From 652797413b32546b9f9d5ada1df0c3aa12b3de7b Mon Sep 17 00:00:00 2001 From: arr Date: Sun, 15 Apr 2018 12:25:36 -0700 Subject: [PATCH] Address compiler warnings --- csrc/pf_inner.c | 4 ++-- csrc/pf_save.c | 4 ++-- csrc/pfinnrfp.h | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/csrc/pf_inner.c b/csrc/pf_inner.c index 2e5aac6..295ee55 100644 --- a/csrc/pf_inner.c +++ b/csrc/pf_inner.c @@ -750,8 +750,8 @@ DBUGX(("After Branch: IP = 0x%x\n", InsPtr )); /* Calculate product sign: */ sg = ((cell_t)(ahi ^ bhi) < 0); /* Take absolute values and reduce to um* */ - if ((cell_t)ahi < 0) ahi = (ucell_t)(-ahi); - if ((cell_t)bhi < 0) bhi = (ucell_t)(-bhi); + if ((cell_t)ahi < 0) ahi = (ucell_t)(-(cell_t)ahi); + if ((cell_t)bhi < 0) bhi = (ucell_t)(-(cell_t)bhi); /* Break into hi and lo 16 bit parts. */ alo = LOWER_HALF(ahi); diff --git a/csrc/pf_save.c b/csrc/pf_save.c index 455b847..03f4ce8 100644 --- a/csrc/pf_save.c +++ b/csrc/pf_save.c @@ -459,7 +459,7 @@ cell_t ffSaveForth( const char *FileName, ExecToken EntryPoint, cell_t NameSize, NameSize = QUADUP(NameSize); /* Align */ if( NameSize > 0 ) { - NameSize = MAX( NameSize, (NameChunkSize + 1024) ); + NameSize = MAX( (ucell_t)NameSize, (NameChunkSize + 1024) ); } SD.sd_NameSize = NameSize; } @@ -467,7 +467,7 @@ cell_t ffSaveForth( const char *FileName, ExecToken EntryPoint, cell_t NameSize, /* How much real code is there? */ CodeChunkSize = QUADUP(relativeCodePtr); CodeSize = QUADUP(CodeSize); /* Align */ - CodeSize = MAX( CodeSize, (CodeChunkSize + 2048) ); + CodeSize = MAX( (ucell_t)CodeSize, (CodeChunkSize + 2048) ); SD.sd_CodeSize = CodeSize; diff --git a/csrc/pfinnrfp.h b/csrc/pfinnrfp.h index 6e2c628..ec476f7 100644 --- a/csrc/pfinnrfp.h +++ b/csrc/pfinnrfp.h @@ -207,7 +207,7 @@ case ID_FP_FROUND: PUSH_TOS; - TOS = fp_round(FP_TOS); + TOS = (cell_t)fp_round(FP_TOS); M_FP_DROP; break; -- 2.20.1