Miroirs/newrpl
1
0
Fork 0
mirror of https://git.code.sf.net/p/newrpl/sources synced 2024-09-29 17:36:57 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed dirty stack in SORT.

Browse source
This commit is contained in:
claudiol 2018-01-02 18:01:23 -05:00
parent 75935a38e6
commit 9f4d91601d
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
newrpl/lib-62-lists.c
View file

@ -547,14 +547,15 @@ void LIB_HANDLER()
return;
}
WORDPTR *stksave=DSTop;
BINT nitems=rplListLength(list);
if(nitems<2) return;
rplDropData(1);
rplExplodeList(list);
if(Exceptions) return;
if(Exceptions) { DSTop=stksave; return; }
// PERFORM BINARY INSERTION SORT
@ -578,18 +579,26 @@ void LIB_HANDLER()
right=left+(right-left)/2;
}
else {
if(Exceptions) { DSTop=stksave; return; }
left=left+(right-left)/2;
}
}
} else right=left;
} else {
if(Exceptions) { DSTop=stksave; return; }
right=left;
}
// INSERT THE POINTER RIGHT BEFORE right
for(ptr2=ptr;ptr2>right; ptr2-=1 ) *ptr2=*(ptr2-1);
//memmoveb(right+1,right,(ptr-right)*sizeof(WORDPTR));
*right=save;
}
if(Exceptions) { DSTop=stksave; return; }
}
rplCreateList();
if(Exceptions) { DSTop=stksave; return; }
rplOverwriteData(2,rplPeekData(1));
rplDropData(1);
return;
}