aboutsummaryrefslogtreecommitdiff
path: root/lang/jgnat/files
diff options
context:
space:
mode:
Diffstat (limited to 'lang/jgnat/files')
-rw-r--r--lang/jgnat/files/patch-aa79
-rw-r--r--lang/jgnat/files/patch-ab87
-rw-r--r--lang/jgnat/files/patch-ac31
-rw-r--r--lang/jgnat/files/patch-ad38
4 files changed, 235 insertions, 0 deletions
diff --git a/lang/jgnat/files/patch-aa b/lang/jgnat/files/patch-aa
new file mode 100644
index 000000000000..7dee6b7877a8
--- /dev/null
+++ b/lang/jgnat/files/patch-aa
@@ -0,0 +1,79 @@
+--- Makefile.orig Mon Mar 27 18:56:24 2000
++++ Makefile Tue Apr 4 21:00:47 2000
+@@ -66,7 +66,7 @@
+ DEBUG_JGNAT =
+ # Set this variable if you want to be able to debug the JGNAT toolchain
+
+-JDK11_LIB =
++JDK11_LIB = :/usr/local/jdk1.1.8/lib/classes.zip
+ # Needed only if you are using Sun's JDK 1.1.*. Leave this blank for JDK 1.2.*.
+ # Path separator followed by the zip file containing the JDK 1.1 lib
+ # installed on the machine on which you are doing the build. For instance, on
+@@ -82,7 +82,7 @@
+ VERSION = 1.0p
+ # The current version number of JGNAT
+
+-HOST = ${shell gcc -dumpmachine}
++HOST = ${shell adagcc -dumpmachine}
+ # Name of the host computer on which the JGNAT executables were built
+
+ TGZ = tgz
+@@ -236,6 +236,7 @@
+ CD = cd
+ CP = cp -p -f
+ ECHO = echo
++FIND = find
+ MKDIR = mkdir -p
+ MV = mv -f
+ PWD = pwd
+@@ -277,7 +278,7 @@
+ TOOL_FLAGS = -O2 -gnatgp -gnata
+ LIB_FLAGS = -O -gnatgp -gnata
+ STRIP = -s
+- JAR = jar c0f
++ JAR = /usr/local/jdk1.1.8/bin/jar c0f
+ else
+ C_FLAGS = -O
+ TOOL_FLAGS = -g -O -gnatgpa
+@@ -325,13 +326,13 @@
+ $(EXTRA_LINK_FLAGS)
+ # Linker flags used to build the $(GNATMAKE_CUR_LIB) executables
+
+-GCC = gcc -c $(C_FLAGS)
++GCC = adagcc -c $(C_FLAGS)
+ # C compiler to build the C objects
+
+ JGNAT = $(BIN)/jgnat $(LIB_FLAGS)
+ # JGNAT compiler to build the Ada part of the JGNAT library
+
+-JAVAC = javac -deprecation -classpath $(LIB)$(JDK11_LIB)
++JAVAC = /usr/local/jdk1.1.8/bin/javac -deprecation -classpath $(LIB)$(JDK11_LIB)
+ # The Java compiler to build the Java part of the JGNAT library
+
+ ###########################################
+@@ -410,12 +411,12 @@
+
+ clean_bin : check_vars
+ $(CD) $(BIN); $(RM) $(HOST_TOOLS_EXE)
+- $(RM) $(OBJ)/*
+- $(RM) $(OBJS)/*
++ $(RM) -r $(OBJ) && $(MKDIR) $(OBJ)
++ $(RM) -r $(OBJS) && $(MKDIR) $(OBJS)
+
+ clean_lib : check_vars
+- $(RM) $(ADALIB)/*
+- $(RM) $(ADAINCLUDE)/*
++ $(RM) -r $(ADALIB) && $(MKDIR) $(ADALIB)
++ $(RM) -r $(ADAINCLUDE) && $(MKDIR) $(ADAINCLUDE)
+ $(RM) $(LIB)/*.jar
+
+ ########
+@@ -1316,7 +1317,7 @@
+ else
+ $(CD) $(LIB); $(JAR) $(JGNAT_JAR) jgnat/adalib/*.class
+ endif
+- $(RM) $(ADALIB)/*.class
++ $(FIND) $(ADALIB) -name '*.class' -exec rm {} \;
+
+ ###########################################
+ # JGNAT Installation: create_install_dirs #
diff --git a/lang/jgnat/files/patch-ab b/lang/jgnat/files/patch-ab
new file mode 100644
index 000000000000..36b40089dca3
--- /dev/null
+++ b/lang/jgnat/files/patch-ab
@@ -0,0 +1,87 @@
+--- osint.ads.orig Tue Apr 4 20:28:14 2000
++++ osint.ads Tue Apr 4 20:28:42 2000
+@@ -227,15 +227,6 @@
+ -- Type used to return a String_Access_List without dragging in secondary
+ -- stack.
+
+- function To_Canonical_File_List
+- (Wildcard_Host_File : String; Only_Dirs : Boolean)
+- return String_Access_List_Access;
+- -- Expand a wildcard host syntax file or directory specification (e.g. on
+- -- a VMS host, any file or directory spec that contains:
+- -- "*", or "%", or "...")
+- -- and return a list of valid Unix syntax file or directory specs.
+- -- If Only_Dirs is True, then only return directories.
+-
+ function To_Canonical_Dir_Spec
+ (Host_Dir : String;
+ Prefix_Style : Boolean)
+--- osint.adb.orig Tue Apr 4 20:28:22 2000
++++ osint.adb Tue Apr 4 20:28:58 2000
+@@ -2333,66 +2333,6 @@
+ end Time_From_Last_Bind;
+
+ ---------------------------
+- -- To_Canonical_File_List --
+- ---------------------------
+-
+- function To_Canonical_File_List
+- (Wildcard_Host_File : String;
+- Only_Dirs : Boolean)
+- return String_Access_List_Access
+- is
+- function To_Canonical_File_List_Init
+- (Host_File : Address;
+- Only_Dirs : Integer)
+- return Integer;
+- pragma Import (C, To_Canonical_File_List_Init,
+- "to_canonical_file_list_init");
+-
+- function To_Canonical_File_List_Next return Address;
+- pragma Import (C, To_Canonical_File_List_Next,
+- "to_canonical_file_list_next");
+-
+- procedure To_Canonical_File_List_Free;
+- pragma Import (C, To_Canonical_File_List_Free,
+- "to_canonical_file_list_free");
+-
+- Num_Files : Integer;
+- C_Wildcard_Host_File : String (1 .. Wildcard_Host_File'Length + 1);
+-
+- begin
+- C_Wildcard_Host_File (1 .. Wildcard_Host_File'Length) :=
+- Wildcard_Host_File;
+- C_Wildcard_Host_File (C_Wildcard_Host_File'Last) := ASCII.NUL;
+-
+- -- Do the expansion and say how many there are
+-
+- Num_Files := To_Canonical_File_List_Init
+- (C_Wildcard_Host_File'Address, Boolean'Pos (Only_Dirs));
+-
+- declare
+- Canonical_File_List : String_Access_List (1 .. Num_Files);
+- Canonical_File_Addr : Address;
+- Canonical_File_Len : Integer;
+-
+- begin
+- -- Retrieve the expanded directoy names and build the list
+-
+- for J in 1 .. Num_Files loop
+- Canonical_File_Addr := To_Canonical_File_List_Next;
+- Canonical_File_Len := C_String_Length (Canonical_File_Addr);
+- Canonical_File_List (J) := To_Path_String_Access
+- (Canonical_File_Addr, Canonical_File_Len);
+- end loop;
+-
+- -- Free up the storage
+-
+- To_Canonical_File_List_Free;
+-
+- return new String_Access_List'(Canonical_File_List);
+- end;
+- end To_Canonical_File_List;
+-
+- ---------------------------
+ -- To_Canonical_Dir_Spec --
+ ---------------------------
+
diff --git a/lang/jgnat/files/patch-ac b/lang/jgnat/files/patch-ac
new file mode 100644
index 000000000000..c2c1be7597b1
--- /dev/null
+++ b/lang/jgnat/files/patch-ac
@@ -0,0 +1,31 @@
+--- g-os_lib.adb.orig Tue Apr 4 20:32:52 2000
++++ g-os_lib.adb Tue Apr 4 20:33:38 2000
+@@ -173,25 +173,11 @@
+ (FD : out File_Descriptor;
+ Name : out Temp_File_Name)
+ is
+- function Get_Temp_Name (T : Address) return Address;
+- pragma Import (C, Get_Temp_Name, "mktemp");
+-
+- function Open_New_Temp
+- (Name : System.Address;
+- Fmode : Mode)
+- return File_Descriptor;
+- pragma Import (C, Open_New_Temp, "open_new_temp");
+-
++ function Get_Temp_Name (T : Address) return File_Descriptor;
++ pragma Import (C, Get_Temp_Name, "mkstemp");
+ begin
+ Name := "GNAT-XXXXXX" & ASCII.NUL;
+-
+- -- Check for NULL pointer returned by C
+-
+- if Get_Temp_Name (Name'Address) = Null_Address then
+- FD := -1;
+- else
+- FD := Open_New_Temp (Name'Address, Binary);
+- end if;
++ FD := Get_Temp_Name (Name'Address);
+ end Create_Temp_File;
+
+ -----------------
diff --git a/lang/jgnat/files/patch-ad b/lang/jgnat/files/patch-ad
new file mode 100644
index 000000000000..1d85daf0036a
--- /dev/null
+++ b/lang/jgnat/files/patch-ad
@@ -0,0 +1,38 @@
+--- GNAT_libc.java.orig Tue Apr 4 20:52:26 2000
++++ GNAT_libc.java Tue Apr 4 22:23:54 2000
+@@ -67,9 +67,10 @@
+ import java.lang.reflect.Constructor;
+ import java.lang.reflect.InvocationTargetException;
+
+-import java.security.AccessControlException;
++// import java.security.AccessControlException;
+
+ import java.util.Date;
++import java.util.Calendar;
+ import java.util.GregorianCalendar;
+
+ import jgnat.adalib.constraint_error;
+@@ -798,17 +799,13 @@
+
+ // char *tmpnam (char s[L_tmpnam])
+
+- static public void tmpnam (Object s)
+- {
+- byte buf [] = (byte []) s;
++ static public void tmpnam (Object s)
++ {
++ byte buf [] = (byte []) s;
+
+- try {
+- copy (File.createTempFile ("JGNAT-", null).getCanonicalPath (), buf);
+- }
+- catch (IOException e) {
+- buf [0] = 0;
+- }
+- }
++ copy ("JGNAT-" + (new GregorianCalendar()).get(Calendar.MILLISECOND),
++ buf);
++ }
+
+ // int ungetc (int c, FILE *stream)
+
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-14 15:07:37 +0000