--- a/LargeInteger.st Wed Jun 09 15:44:35 1999 +0200
+++ b/LargeInteger.st Wed Jun 09 16:29:42 1999 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+'From Smalltalk/X, Version:3.5.2 on 26-may-1999 at 12:02:16' !
+
Integer subclass:#LargeInteger
instanceVariableNames:'sign digitByteArray'
classVariableNames:''
@@ -2238,21 +2240,20 @@
# else
{
unsigned char *__srcLastX;
-
__srcLastX = __srcLast - 3 - 4;
while (__src <= __srcLastX) {
unsigned int __sum, __sum2;
- asm ("addl %%edx,%%eax \n
- adcl $0, %%ecx
- movl $0,%%edx \n
- adcl $0,%%edx"
+ asm ("addl %%edx,%%ecx
+ adcl $0, %%eax
+ movl $0, %%edx
+ adcl $0, %%edx"
: "=d" ((unsigned long)(__carry)),
- "=a" ((unsigned long)(__sum)),
- "=c" ((unsigned long)(__sum2))
+ "=c" ((unsigned long)(__sum)),
+ "=a" ((unsigned long)(__sum2))
: "0" ((unsigned long)(__carry)),
"1" ((unsigned long)(((unsigned *)__src)[0])),
- "2" ((unsigned long)(((unsigned *)__src)[1])) );
+ "2" ((unsigned long)(((unsigned *)__src)[1])));
((unsigned int *)(__src + __ptrDelta))[0] = __sum;
((unsigned int *)(__src + __ptrDelta))[1] = __sum2;
@@ -2279,11 +2280,11 @@
if (__src <= __srcLastX) {
unsigned int __sum;
- asm ("addl %%edx,%%eax \n
- movl $0,%%edx \n
- adcl $0,%%edx"
- : "=d" ((unsigned long)(__carry)),
- "=a" ((unsigned long)(__sum))
+ asm ("addl %%eax,%%edx
+ movl $0,%%eax
+ adcl $0,%%eax"
+ : "=a" ((unsigned long)(__carry)),
+ "=d" ((unsigned long)(__sum))
: "0" ((unsigned long)(__carry)),
"1" ((unsigned long)(((unsigned *)__src)[0])) );
@@ -4063,5 +4064,5 @@
!LargeInteger class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.128 1999-06-06 20:47:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.129 1999-06-09 14:29:42 stefan Exp $'
! !