equal
deleted
inserted
replaced
585 getFPUControl |
585 getFPUControl |
586 "get the fpu control word." |
586 "get the fpu control word." |
587 |
587 |
588 %{ |
588 %{ |
589 #ifdef __BORLANDC__ |
589 #ifdef __BORLANDC__ |
|
590 unsigned int _control87(); |
|
591 |
590 int result = _control87(0, 0); |
592 int result = _control87(0, 0); |
591 RETURN(__MKSMALLINT(result)); |
593 RETURN(__MKSMALLINT(result)); |
592 #endif |
594 #endif |
593 %} |
595 %} |
594 |
596 |
2771 ! ! |
2773 ! ! |
2772 |
2774 |
2773 !Float class methodsFor:'documentation'! |
2775 !Float class methodsFor:'documentation'! |
2774 |
2776 |
2775 version |
2777 version |
2776 ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.177 2012-04-16 21:57:50 stefan Exp $' |
2778 ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.178 2012-04-16 22:12:06 stefan Exp $' |
2777 ! |
2779 ! |
2778 |
2780 |
2779 version_CVS |
2781 version_CVS |
2780 ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.177 2012-04-16 21:57:50 stefan Exp $' |
2782 ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.178 2012-04-16 22:12:06 stefan Exp $' |
2781 ! ! |
2783 ! ! |
2782 |
2784 |
2783 Float initialize! |
2785 Float initialize! |