mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-06 22:51:41 +00:00
28 lines
996 B
Plaintext
28 lines
996 B
Plaintext
|
#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 ) ;
|
||
|
|
|