mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-18 18:40:22 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-05 05:48:59 +00:00
parent ea9c5daba0
commit 46cd9a346f
20 changed files with 207 additions and 715 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/vm.c
View file

@ -207,9 +207,19 @@ vm_fetch_length (scm_byte_t *ip, size_t *lenp)
if (*lenp < 254)
return ip;
else if (*lenp == 254)
*lenp = (*ip++ << 8) + *ip++;
{
int b1 = *ip++;
int b2 = *ip++;
*lenp = (b1 << 8) + b2;
}
else
*lenp = (*ip++ << 24) + (*ip++ << 16) + (*ip++ << 8) + *ip++;
{
int b1 = *ip++;
int b2 = *ip++;
int b3 = *ip++;
int b4 = *ip++;
*lenp = (b1 << 24) + (b2 << 16) + (b3 << 8) + b4;
}
return ip;
}