diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-03-24 10:57:32 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-24 11:57:32 +0100 |
| commit | 15f6d6e7671dc3c18805d3bad0de2cb3d59b70a0 (patch) | |
| tree | 6ad4b066aec3ef5f94e1249875ae6bdabc5e9799 /gcc/ada/s-regexp.adb | |
| parent | 572f9958127bd9db6f5e3f6df92ec8b5a9c14b55 (diff) | |
| download | gcc-15f6d6e7671dc3c18805d3bad0de2cb3d59b70a0.zip gcc-15f6d6e7671dc3c18805d3bad0de2cb3d59b70a0.tar.gz gcc-15f6d6e7671dc3c18805d3bad0de2cb3d59b70a0.tar.bz2 | |
2008-03-24 Robert Dewar <dewar@adacore.com>
* s-tpopsp-posix.adb, s-tpopsp-solaris.adb, s-tpopsp-posix-foreign.adb,
s-tpopsp-lynxos.adb, s-tpopde-vms.ads, s-tpopde-vms.adb,
s-tpopsp-vxworks.adb, s-casi16.adb, s-caun16.adb, s-inmaop.ads,
s-tadeca.adb, s-tadeca.ads, s-tadert.adb, s-tadert.ads, s-tpinop.adb,
s-tpinop.ads, s-tporft.adb, a-rbtgso.adb, a-crbtgo.ads, a-crbtgo.adb,
a-crbtgk.ads, a-crbtgk.adb, a-ciorse.adb, a-cihama.ads, a-cihama.adb,
a-cidlli.ads, a-cidlli.adb, a-chtgop.ads, a-chtgop.adb, a-cgcaso.ads,
a-cgcaso.adb, a-cgaaso.adb, a-ciormu.adb, a-cihase.adb, a-swuwha.ads,
a-rbtgso.ads, a-cgaaso.ads, a-cgaaso.ads, a-ciorma.adb, a-chtgke.ads,
a-chtgke.adb, a-llfzti.ads, a-ztenau.adb, a-ztenau.ads, a-stzhas.ads,
a-szbzha.ads, a-szbzha.adb, a-crdlli.ads, a-crdlli.ads, a-crdlli.adb,
i-forbla-darwin.adb, i-forbla.ads, s-regexp.adb, a-nllrar.ads,
a-nlrear.ads, a-nucoar.ads, a-nurear.ads, i-forlap.ads, s-gearop.adb,
s-gearop.ads, s-gecobl.adb, s-gecobl.ads, s-gecola.adb, s-gecola.ads,
s-gerebl.adb, s-gerela.ads, a-swuwha.adb, i-forbla-unimplemented.ads,
double spaced if it fits on one line and otherwise single spaced.
From-SVN: r133476
Diffstat (limited to 'gcc/ada/s-regexp.adb')
| -rwxr-xr-x | gcc/ada/s-regexp.adb | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/gcc/ada/s-regexp.adb b/gcc/ada/s-regexp.adb index ab74807..c548199 100755 --- a/gcc/ada/s-regexp.adb +++ b/gcc/ada/s-regexp.adb @@ -2,7 +2,7 @@ -- -- -- GNAT COMPILER COMPONENTS -- -- -- --- G N A T . R E G E X P -- +-- S Y S T E M . R E G E X P -- -- -- -- B o d y -- -- -- @@ -32,7 +32,7 @@ ------------------------------------------------------------------------------ with Ada.Unchecked_Deallocation; -with Ada.Exceptions; +-- with Ada.Exceptions; with System.Case_Util; @@ -177,9 +177,7 @@ package body System.Regexp is -- add a third pass to reduce the number of states in the machine, with -- no speed improvement... - procedure Raise_Exception - (M : String; - Index : Integer); + procedure Raise_Exception (M : String; Index : Integer); pragma No_Return (Raise_Exception); -- Raise an exception, indicating an error at character Index in S @@ -1223,13 +1221,9 @@ package body System.Regexp is -- Raise_Exception -- --------------------- - procedure Raise_Exception - (M : String; - Index : Integer) - is + procedure Raise_Exception (M : String; Index : Integer) is begin - Ada.Exceptions.Raise_Exception - (Error_In_Regexp'Identity, M & " at offset " & Index'Img); + raise Error_In_Regexp with M & " at offset " & Index'Img; end Raise_Exception; -- Start of processing for Compile |