aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/libgnat/s-trasym.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/libgnat/s-trasym.adb')
-rw-r--r--gcc/ada/libgnat/s-trasym.adb4
1 files changed, 0 insertions, 4 deletions
diff --git a/gcc/ada/libgnat/s-trasym.adb b/gcc/ada/libgnat/s-trasym.adb
index 0d6639f..bfc3a98 100644
--- a/gcc/ada/libgnat/s-trasym.adb
+++ b/gcc/ada/libgnat/s-trasym.adb
@@ -33,10 +33,6 @@
-- is not supported. It returns tracebacks as lists of hexadecimal addresses
-- of the form "0x...".
-pragma Polling (Off);
--- We must turn polling off for this unit, because otherwise we can get
--- elaboration circularities when polling is turned on.
-
with Ada.Exceptions.Traceback; use Ada.Exceptions.Traceback;
with System.Address_Image;