From: Alexey Vyskubov <alexey@ocaml.nl>
Date: Fri, 30 Jan 2015 22:33:09 +0000 (+0200)
Subject: allow Read32FromFile to return signed value
X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/commitdiff_plain/2bfdc82f9e73c8393d2853968db5b0b82e7537d5

allow Read32FromFile to return signed value
---

diff --git a/csrc/pf_save.c b/csrc/pf_save.c
index d46958a..80b4c1e 100644
--- a/csrc/pf_save.c
+++ b/csrc/pf_save.c
@@ -513,7 +513,7 @@ error:
 #ifndef PF_NO_FILEIO
 
 /***************************************************************/
-static uint32_t Read32FromFile( FileStream *fid, uint32_t *ValPtr )
+static int32_t Read32FromFile( FileStream *fid, uint32_t *ValPtr )
 {
 	int32_t numr;
 	uint8_t pad[4];