diff options
author | Neil Blakey-Milner <nbm@FreeBSD.org> | 2000-08-01 10:00:31 +0000 |
---|---|---|
committer | Neil Blakey-Milner <nbm@FreeBSD.org> | 2000-08-01 10:00:31 +0000 |
commit | b45c6f59e4a973409a9dc5f7673a86c62cc89ebf (patch) | |
tree | f4ef5983eb9f612b7a52973343451f87e19c5471 /devel/asis-gpl/files/patch-ab | |
parent | Distfile is changed without version number bump. Differences are (diff) |
Add asis, the Ada Semantic Interface Specification.
PR: ports/19873
Submitted by: Thomas Quinot <quinot@inf.enst.fr>
Notes
Notes:
svn path=/head/; revision=31200
Diffstat (limited to 'devel/asis-gpl/files/patch-ab')
-rw-r--r-- | devel/asis-gpl/files/patch-ab | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/devel/asis-gpl/files/patch-ab b/devel/asis-gpl/files/patch-ab new file mode 100644 index 000000000000..294bc08c8226 --- /dev/null +++ b/devel/asis-gpl/files/patch-ab @@ -0,0 +1,27 @@ +#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 ) ; + |