mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 02:49:21 +02:00
* removed initfpu
git-svn-id: trunk@5296 -
This commit is contained in:
parent
13f359aa80
commit
5e860919f8
@ -233,14 +233,6 @@ end;
|
|||||||
Thread Handling
|
Thread Handling
|
||||||
*****************************************************************************}
|
*****************************************************************************}
|
||||||
|
|
||||||
procedure InitFPU;assembler;
|
|
||||||
|
|
||||||
asm
|
|
||||||
fninit
|
|
||||||
fldcw fpucw
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
{ if return-value is <> 0, netware shows the message
|
{ if return-value is <> 0, netware shows the message
|
||||||
Unload Anyway ?
|
Unload Anyway ?
|
||||||
To Disable unload at all, SetNLMDontUnloadFlag can be used on
|
To Disable unload at all, SetNLMDontUnloadFlag can be used on
|
||||||
|
@ -216,14 +216,6 @@ end;
|
|||||||
Thread Handling
|
Thread Handling
|
||||||
*****************************************************************************}
|
*****************************************************************************}
|
||||||
|
|
||||||
procedure InitFPU;assembler;
|
|
||||||
|
|
||||||
asm
|
|
||||||
fninit
|
|
||||||
fldcw fpucw
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
{ if return-value is <> 0, netware shows the message
|
{ if return-value is <> 0, netware shows the message
|
||||||
Unload Anyway ?
|
Unload Anyway ?
|
||||||
To Disable unload at all, SetNLMDontUnloadFlag can be used on
|
To Disable unload at all, SetNLMDontUnloadFlag can be used on
|
||||||
|
Loading…
Reference in New Issue
Block a user