vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 08:42:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update bootstrap source

Browse source
This commit is contained in:
Dave Brown 2019-11-11 13:03:12 +00:00
parent e8ef46a4d9
commit e22bec7fc1
185 changed files with 500 additions and 340 deletions
Download patch file Download diff file Expand all files Collapse all files

5
bootstrap/windows-48/Strings.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2019/11/01]. Bootstrapping compiler for address size 8, alignment 8. xrtspaSF */
/* voc 2.1.0 [2019/11/11]. Bootstrapping compiler for address size 8, alignment 8. xrtspaSF */
#define SHORTINT INT8
#define INTEGER INT16
@ -27,16 +27,13 @@ export void Strings_StrToReal (CHAR *s, ADDRESS s__len, REAL *r);
INT16 Strings_Length (CHAR *s, ADDRESS s__len)
{
INT32 i;
__DUP(s, s__len, CHAR);
i = 0;
while ((i < s__len && s[__X(i, s__len)] != 0x00)) {
i += 1;
}
if (i <= 32767) {
__DEL(s);
return __SHORT(i, 32768);
} else {
__DEL(s);
return 32767;
}
__RETCHK;