Displaying 2 results from an estimated 2 matches for "set8087cw".
Did you mean:
get8087cw
2004 Jun 10
2
Questions about Preserving registers
...ode in the
library module:
## My question: Is that mean put the following code in my Fortran
routine without any change based on the message I got?
procedure Rwin_fpset; cdecl; external '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 be...
2006 Nov 21
1
dyn.load
...ieve this?
Many thanks
Tom
====DELPHI CODE=====
procedure Rwin_fpset; cdecl; external 'R.dll';
function Get8087CW:word;
begin
asm
fstcw result
end;
end;
begin
Rwin_fpset(); <============== these lines I think is called on loading
of the DLL to reset the register
Set8087CW(Get8087CW); <========
end.
===END DELPHI CODE=====
--
Dr. Thomas McCallum
Systems Architect,
Level E Limited
ETTC, The King's Buildings
Mayfield Road,
Edinburgh EH9 3JL, UK
Work +44 (0) 131 472 4813
Fax: +44 (0) 131 472 4719
http://www.levelelimited.com
Email: tom at levelelimited.com...