Displaying 1 result from an estimated 1 matches for "default8087cw".
2004 Jun 10
2
Questions about Preserving registers
...#39;R.dll';
function Get8087CW:word;
begin
asm
fstcw result
end;
end;
begin
Rwin_fpset();
Set8087CW(Get8087CW);
end.
2. After any operation that may have changed the status word, put this
call before returning to R:
## My question: where do I put the line below?
Set8087CW(Default8087CW);
3. The following function may be useful in debugging; it returns false
when the control word has been unexpectedly changed:
function Okay8087CW:boolean;
begin
result := ((Default8087CW xor Get8087CW) and not $E060) = 0;
end;
Thanks.
Rui
Phone: (403)220-4501
Email: rwang@math.ucalgar...