| Server IP : 82.208.35.60 / Your IP : 216.73.216.238 Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31 System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64 User : studiokobylisy_cz ( 1008) PHP Version : 7.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/ports/lang/gforth/files/ |
Upload File : |
--- engine/main.c.orig 2013-10-11 21:31:28 UTC
+++ engine/main.c
@@ -976,7 +976,8 @@ static void check_prims(Label symbols1[])
goto_len = goto_p[1]-goto_p[0];
debugp(stderr, "goto * %p %p len=%ld\n",
goto_p[0],symbols2[goto_p-symbols1],(long)goto_len);
- if (memcmp(goto_p[0],symbols2[goto_p-symbols1],goto_len)!=0) { /* unequal */
+ if ((goto_len < 0) ||
+ memcmp(goto_p[0],symbols2[goto_p-symbols1],goto_len)!=0) { /* unequal */
no_dynamic=1;
debugp(stderr," not relocatable, disabling dynamic code generation\n");
init_ss_cost();
@@ -1045,8 +1046,14 @@ static void check_prims(Label symbols1[])
nonrelocs++;
continue;
}
- assert(pi->length>=0);
- assert(pi->restlength >=0);
+ if((pi->length<0) || (pi->restlength<0)) {
+ pi->length = endlabel-symbols1[i];
+ pi->restlength = 0;
+#ifndef BURG_FORMAT
+ debugp(stderr,"\n adjust restlen: len/restlen < 0, %d/%d",
+ pi->length, pi->restlength);
+#endif
+ };
while (j<(pi->length+pi->restlength)) {
if (s1[j]==s3[j]) {
if (s1[j] != s2[j]) {