• R/O
  • SSH

Ada95FL: Commit

Ada 95 foundation library


Commit MetaInfo

Revision3e1414dec30f908ca4bb66e508506ab194b43792 (tree)
Zeit2019-09-15 04:08:04
AutorSergey Dukov <dukov54@live...>
CommiterSergey Dukov

Log Message

#32763 Замена "In_Stack" на "Not_In_Pool"

Ändern Zusammenfassung

Diff

diff -r 7e558221c39a -r 3e1414dec30f build/build.txt
--- a/build/build.txt Sat Sep 14 01:21:56 2019 +0400
+++ b/build/build.txt Sat Sep 14 23:08:04 2019 +0400
@@ -16,7 +16,7 @@
1616
1717
1818 cd /d C:\ADAPROJECTS\AdaMagic
19-rm -f Ada95FL.tar Ada95FL.xz.tar
19+rm -f Ada95FL.*
2020 bsdtar --create --file=Ada95FL.tar Ada95FL
2121 xz -e --threads=0 Ada95FL.tar
2222
diff -r 7e558221c39a -r 3e1414dec30f src/vector_of_bytes.adb
--- a/src/vector_of_bytes.adb Sat Sep 14 01:21:56 2019 +0400
+++ b/src/vector_of_bytes.adb Sat Sep 14 23:08:04 2019 +0400
@@ -13,7 +13,7 @@
1313 Release(Object.RB.all, Released);
1414 end if;
1515 end if;
16- if not Object.In_Stack then
16+ if not Object.Not_In_Pool then
1717 Free(This);
1818 end if;
1919 end Finalize;
@@ -95,7 +95,7 @@
9595 Vector.RB := null;
9696 Vector.Last := No_Index;
9797 Vector.BS := 0;
98- if not Vector.In_Stack and then Unallocate then
98+ if not Vector.Not_In_Pool and then Unallocate then
9999 Free(Vector_Ptr);
100100 end if;
101101 end Clean;
diff -r 7e558221c39a -r 3e1414dec30f src/vector_of_bytes.ads
--- a/src/vector_of_bytes.ads Sat Sep 14 01:21:56 2019 +0400
+++ b/src/vector_of_bytes.ads Sat Sep 14 23:08:04 2019 +0400
@@ -35,7 +35,7 @@
3535 (Index_Type range <>) of aliased Element_Type;
3636 type Array_Of_Byte_Access is access all Array_Of_Byte_Type;
3737
38- type Vector_Type (In_Stack : Boolean) is tagged limited private;
38+ type Vector_Type (Not_In_Pool : Boolean) is tagged limited private;
3939 type Vector_Access is access all Vector_Type;
4040
4141 function Is_Empty (Vector : Vector_Type) return Boolean;
@@ -78,7 +78,7 @@
7878 procedure Free is
7979 new Ada.Unchecked_Deallocation (Referenced_Buffer, Referenced_Buffer_Ptr);
8080
81- type Vector_Type (In_Stack : Boolean) is new Limited_Controlled with record
81+ type Vector_Type (Not_In_Pool : Boolean) is new Limited_Controlled with record
8282 RB : Referenced_Buffer_Ptr := null;
8383 Last : Extended_Index := No_Index;
8484 BS : Natural := 0;
Show on old repository browser