+ basic infrastructure to generate code for floating point exception

  checking for CPUs without floating point exception support


git-svn-id: https://svn.freepascal.org/svn/fpc/branches/laksen@39637 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 7 insertions, 0 deletions

diff --git a/riscv_new/compiler/scandir.pas b/riscv_new/compiler/scandir.pas
index a30f7a13cd..f3fe0286d8 100644
--- a/riscv_new/compiler/scandir.pas
+++ b/riscv_new/compiler/scandir.pas
@@ -436,6 +436,12 @@ unit scandir;
       end;
 
 
+    procedure dir_checkfpuexceptions;
+      begin
+        do_localswitch(cs_check_fpu_exceptions);
+      end;
+
+
     procedure dir_objectchecks;
       begin
         do_localswitch(cs_check_object);
@@ -1902,6 +1908,7 @@ unit scandir;
         AddDirective('BOOLEVAL',directive_all, @dir_booleval);
         AddDirective('BITPACKING',directive_all, @dir_bitpacking);
         AddDirective('CALLING',directive_all, @dir_calling);
+        AddDirective('CHECKFPUEXCEPTIONS',directive_all, @dir_checkfpuexceptions);
         AddDirective('CHECKLOWADDRLOADS',directive_all, @dir_checklowaddrloads);
         AddDirective('CHECKPOINTER',directive_all, @dir_checkpointer);
         AddDirective('CODEALIGN',directive_all, @dir_codealign);