From c86e36a53b47db9a7cb555dfc5cb6ba362a67fc0 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 3 Nov 2011 16:38:28 +0000
Subject: [PATCH]  Avoid warning on non-i386 CPUs

git-svn-id: trunk@19594 -
---
 packages/gdbint/src/gdbint.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/packages/gdbint/src/gdbint.pp b/packages/gdbint/src/gdbint.pp
index 47aad59686..3acce9b1b7 100644
--- a/packages/gdbint/src/gdbint.pp
+++ b/packages/gdbint/src/gdbint.pp
@@ -2658,6 +2658,8 @@ function MaskAllFPUExceptions(control : TFPUState) : TFPUState;
 begin
 {$ifdef cpui386}
   MaskAllFPUExceptions := control or MaskAllExceptions;
+{$else}
+  MaskAllFPUExceptions:=0;
 {$endif}
 end;