QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 16:10:39 +00:00
Code Issues Releases Wiki Activity

Fix return types and results

Browse source 
- return type is uint32_t in C/C++ and ULONGTYPE in QB64
- adler32 must return one (1) on an empty input
This commit is contained in:
Roland Heyder 2024-02-03 11:25:48 +01:00
parent a84e174b63
commit 6b3842673f
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
internal/c/parts/compression/compression.cpp
View file

@ -8,13 +8,13 @@
#include "miniz.h"
uint32_t func__adler32(qbs *text) {
if (!text->len) return 0;
return (uint32) adler32(1, text->chr, text->len);
if (!text->len) return 1;
return (uint32_t) adler32(1, text->chr, text->len);
}
uint32_t func__crc32(qbs *text) {
if (!text->len) return 0;
return (uint32) crc32(0, text->chr, text->len);
return (uint32_t) crc32(0, text->chr, text->len);
}
qbs *func__deflate(qbs *text) {

4
source/subs_functions/subs_functions.bas
View file

@ -3833,7 +3833,7 @@ id.subfunc = 1
id.callname = "func__adler32"
id.args = 1
id.arg = MKL$(STRINGTYPE - ISPOINTER)
id.ret = LONGTYPE - ISPOINTER
id.ret = ULONGTYPE - ISPOINTER
id.hr_syntax = "_ADLER32(dataString$)"
regid
@ -3844,7 +3844,7 @@ id.subfunc = 1
id.callname = "func__crc32"
id.args = 1
id.arg = MKL$(STRINGTYPE - ISPOINTER)
id.ret = LONGTYPE - ISPOINTER
id.ret = ULONGTYPE - ISPOINTER
id.hr_syntax = "_CRC32(dataString$)"
regid