diff options
Diffstat (limited to 'devel/asis-gpl/files/patch-ab')
| -rw-r--r-- | devel/asis-gpl/files/patch-ab | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/devel/asis-gpl/files/patch-ab b/devel/asis-gpl/files/patch-ab deleted file mode 100644 index 294bc08c8226..000000000000 --- a/devel/asis-gpl/files/patch-ab +++ /dev/null @@ -1,27 +0,0 @@ -#PATCHOPTIONS: -p0 ---- examples/ds/display_source.adb.dist Wed Sep 1 17:16:01 1999 -+++ examples/ds/display_source.adb Fri May 26 19:02:05 2000 -@@ -311,7 +311,7 @@ - Asis.Ada_Environments.Dissociate ( The_DS_Context ); - Asis.Implementation.Finalize (""); - -- -- let's delete the *.at? and *.ali files -+ -- let's delete the *.adt and *.ali files - declare - To_Erase : String := Ada.Command_Line.Argument (Command_File) ; - File : File_Type ; -@@ -320,12 +320,12 @@ - To_Erase (To_Erase'Last - 3 .. To_Erase'Last - 1 ) = ".AD" - then - -- tree file -- To_Erase ( To_Erase'Last - 1 ) := 't' ; -+ To_Erase ( To_Erase'Last ) := 't' ; - Open ( File , Out_File , To_Erase ) ; - Delete ( File ) ; - - -- ali file -- To_Erase (To_Erase'Last -2 .. To_Erase'Last) := "ali"; -+ To_Erase (To_Erase'Last - 2 .. To_Erase'Last) := "ali"; - Open ( File , Out_File , To_Erase ) ; - Delete ( File ) ; - |