picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit 142f0d7e275a9e2c1ed537fbba05315be459e590
parent abda94c49b5e3d47e3d21b4304f5e056f724a86f
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat, 22 Oct 2011 16:34:32 +0200

Wrong size
Diffstat:
Msrc/ssl.c | 4++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ssl.c b/src/ssl.c @@ -1,4 +1,4 @@ -/* 21oct11abu +/* 22oct11abu * (c) Software Lab. Alexander Burger */ @@ -184,7 +184,7 @@ int main(int ac, char *av[]) { giveup("Can't lock"); if (fstat(fd,&st) < 0 || (Size = st.st_size) == 0) giveup("Can't access"); - lenLen = sprintf(len, "%lld\n", Size); + lenLen = sprintf(len, "%ld\n", Size); if ((Data = malloc(Size)) == NULL) giveup("Can't alloc"); if (read(fd, Data, Size) != Size)