diff options
| author | Wen Heping <wen@FreeBSD.org> | 2011-03-02 00:53:02 +0000 |
|---|---|---|
| committer | Wen Heping <wen@FreeBSD.org> | 2011-03-02 00:53:02 +0000 |
| commit | 571b3110cfb27275bc1110112d4c5c34385b3ce2 (patch) | |
| tree | 67f821af7d10f045fcdbde6ffff3d10cac72b57d /devel/gps/files/patch-gnatlib-gnat_src-gnatvsn.adb | |
| parent | GtkAda is an Ada graphical toolkit based on Gtk+ widgets using the (diff) | |
The GNAT Programming Studio (GPS) is a cutting-edge Free Software IDE that
streamlines the interaction between developers and their software. With its
intuitive interface, GPS is easy to use, simplying source navigation and
highlighting fundamental ideas in the program.
Features Tools
* Developer-friendly * Language-sensitive editor
* Multi-language * Version control
* Multi-platform * Graphical debugger
* Modern GUI * Automatic code fixing
* Multiple document interface * Graphs (call, dependencies, entities)
* Customizable * Application builder
* Extensible tool integration * Visual file comparison
* Free Software * Source code reformatting
* Automatic body file generation
* intelligent source code navigation
* Project Explorer
* Project Wizard
WWW: http://www.adacore.com/home/products/gnatpro/toolsuite/gps/
PR: ports/153828
Submitted by: John Marino <freebsdml@marino.st>
Diffstat (limited to 'devel/gps/files/patch-gnatlib-gnat_src-gnatvsn.adb')
| -rw-r--r-- | devel/gps/files/patch-gnatlib-gnat_src-gnatvsn.adb | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/devel/gps/files/patch-gnatlib-gnat_src-gnatvsn.adb b/devel/gps/files/patch-gnatlib-gnat_src-gnatvsn.adb new file mode 100644 index 000000000000..3b69015d65f9 --- /dev/null +++ b/devel/gps/files/patch-gnatlib-gnat_src-gnatvsn.adb @@ -0,0 +1,31 @@ +--- gnatlib/gnat_src/gnatvsn.adb.orig 2010-12-04 08:12:30 +0000 ++++ gnatlib/gnat_src/gnatvsn.adb +@@ -53,27 +53,13 @@ package body Gnatvsn is + " FOR A PARTICULAR PURPOSE."; + end Gnat_Free_Software; + +- Version_String : String (1 .. Ver_Len_Max); +- -- Import the C string defined in the (language-independent) source file +- -- version.c. +- -- The size is not the real one, which does not matter since we will +- -- check for the nul character in Gnat_Version_String. +- pragma Import (C, Version_String, "version_string"); +- + ------------------------- + -- Gnat_Version_String -- + ------------------------- + + function Gnat_Version_String return String is +- NUL_Pos : Positive := 1; + begin +- loop +- exit when Version_String (NUL_Pos) = ASCII.NUL; +- +- NUL_Pos := NUL_Pos + 1; +- end loop; +- +- return Version_String (1 .. NUL_Pos - 1); ++ return Gnat_Static_Version_String; + end Gnat_Version_String; + + end Gnatvsn; |