mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-02-19 18:56:33 +01:00
- remove unused variable
This commit is contained in:
parent
68781abf2d
commit
a39d48b22d
@ -118,7 +118,6 @@ procedure RaisePendingExceptions;
|
||||
procedure fpc_throwfpuexception;[public,alias:'FPC_THROWFPUEXCEPTION'];
|
||||
var
|
||||
fpsr : qword;
|
||||
f: TFPUException;
|
||||
begin
|
||||
{ at this point, we know already, that an exception will be risen }
|
||||
fpsr:=getfpsr;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user