projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Address various compiler warnings about precision loss
[pforth]
/
csrc
/
pf_save.c
diff --git
a/csrc/pf_save.c
b/csrc/pf_save.c
index
03f4ce8
..
faa6d81
100644
(file)
--- a/
csrc/pf_save.c
+++ b/
csrc/pf_save.c
@@
-315,7
+315,7
@@
cell_t ffSaveForth( const char *FileName, ExecToken EntryPoint, cell_t NameSize,
/***************************************************************/
static int Write32ToFile( FileStream *fid, uint32_t Val )
{
/***************************************************************/
static int Write32ToFile( FileStream *fid, uint32_t Val )
{
-
in
t numw;
+
size_
t numw;
uint8_t pad[4];
Write32BigEndian(pad,Val);
uint8_t pad[4];
Write32BigEndian(pad,Val);
@@
-515,7
+515,7
@@
error:
/***************************************************************/
static int32_t Read32FromFile( FileStream *fid, uint32_t *ValPtr )
{
/***************************************************************/
static int32_t Read32FromFile( FileStream *fid, uint32_t *ValPtr )
{
-
int32
_t numr;
+
size
_t numr;
uint8_t pad[4];
numr = sdReadFile( pad, 1, sizeof(pad), fid );
if( numr != sizeof(pad) ) return -1;
uint8_t pad[4];
numr = sdReadFile( pad, 1, sizeof(pad), fid );
if( numr != sizeof(pad) ) return -1;
@@
-533,7
+533,7
@@
PForthDictionary pfLoadDictionary( const char *FileName, ExecToken *EntryPointPt
uint32_t ChunkSize;
uint32_t FormSize;
uint32_t BytesLeft;
uint32_t ChunkSize;
uint32_t FormSize;
uint32_t BytesLeft;
-
uint32
_t numr;
+
size
_t numr;
int isDicBigEndian;
DBUG(("pfLoadDictionary( %s )\n", FileName ));
int isDicBigEndian;
DBUG(("pfLoadDictionary( %s )\n", FileName ));
@@
-726,7
+726,7
@@
DBUG(("pfLoadDictionary( %s )\n", FileName ));
/* Find special words in dictionary for global XTs. */
if( (Result = FindSpecialXTs()) < 0 )
{
/* Find special words in dictionary for global XTs. */
if( (Result = FindSpecialXTs()) < 0 )
{
- pfReportError("pfLoadDictionary: FindSpecialXTs", Result);
+ pfReportError("pfLoadDictionary: FindSpecialXTs",
(Err)
Result);
goto error;
}
}
goto error;
}
}