projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
pforth: improve 64-bit support
[pforth]
/
csrc
/
pf_save.c
diff --git
a/csrc/pf_save.c
b/csrc/pf_save.c
index
455b847
..
ac2c85e
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);
@@
-332,8
+332,8
@@
static cell_t WriteChunkToFile( FileStream *fid, cell_t ID, char *Data, int32_t
EvenNumW = EVENUP(NumBytes);
EvenNumW = EVENUP(NumBytes);
- if( Write32ToFile( fid, ID ) < 0 ) goto error;
- if( Write32ToFile( fid, EvenNumW ) < 0 ) goto error;
+ if( Write32ToFile( fid,
(uint32_t)
ID ) < 0 ) goto error;
+ if( Write32ToFile( fid,
(uint32_t)
EvenNumW ) < 0 ) goto error;
numw = sdWriteFile( Data, 1, EvenNumW, fid );
if( numw != EvenNumW ) goto error;
numw = sdWriteFile( Data, 1, EvenNumW, fid );
if( numw != EvenNumW ) goto error;