Displaying 2 results from an estimated 2 matches for "get8087cw".
2004 Jun 10
2
Questions about Preserving registers
...trol word to the standard R
value, then save that as the Delphi default. Put this code 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...
2006 Nov 21
1
dyn.load
...s Rwin_fpset() to reset FPU register
R : R tests FPU register and is happy
USER : Sees "Success library is loaded!" or something to that effect :)
Any ideas on how to achieve 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...