diff options
Diffstat (limited to 'gcc/ada/s-stalib.adb')
| -rw-r--r-- | gcc/ada/s-stalib.adb | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/gcc/ada/s-stalib.adb b/gcc/ada/s-stalib.adb index 096eac45b42..acb1a9bf879 100644 --- a/gcc/ada/s-stalib.adb +++ b/gcc/ada/s-stalib.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1995-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2003 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -47,7 +47,7 @@ with System.Soft_Links; -- Referenced directly from generated code using external symbols so it -- must always be present in a build, even if no unit has a direct with -- of this unit. Also referenced from exception handling routines. --- This is needed for programs that don't use exceptions explicitly but +-- This is needed for programs that don't use exceptions explicitely but -- direct calls to Ada.Exceptions are generated by gigi (for example, -- by calling __gnat_raise_constraint_error directly). @@ -88,4 +88,19 @@ package body System.Standard_Library is end if; end Adafinal; + ----------------- + -- Break_Start -- + ----------------- + + procedure Break_Start; + pragma Export (C, Break_Start, "__gnat_break_start"); + -- This is a dummy procedure that is called at the start of execution. + -- Its sole purpose is to provide a well defined point for the placement + -- of a main program breakpoint. + + procedure Break_Start is + begin + null; + end Break_Start; + end System.Standard_Library; |