Fix compatibility errors
This commit is contained in:
parent
e2c55d0479
commit
8206a0dee4
8
Makefile
8
Makefile
|
@ -93,17 +93,11 @@ $(DIST): cleanall
|
||||||
--xform 's!$(THIS)!$(DIST_NAME)!'\
|
--xform 's!$(THIS)!$(DIST_NAME)!'\
|
||||||
$(THIS)
|
$(THIS)
|
||||||
|
|
||||||
#documentation
|
|
||||||
docs: include/*.ads
|
|
||||||
ls include/*.ads | adabrowse -i -o ./ -f-
|
|
||||||
@mv *.html doc
|
|
||||||
|
|
||||||
#misc
|
#misc
|
||||||
all: $(LIB) $(TEST)
|
all: $(LIB) $(TEST)
|
||||||
|
|
||||||
clean:
|
clean:
|
||||||
$(RM) -f obj/*.* obj/test/*.* obj/debug/*.* ali/*.* ali/debug/*.* 2> /dev/null
|
$(RM) -f obj/*.* obj/test/*.* obj/debug/*.* ali/*.* ali/debug/*.* 2> /dev/null
|
||||||
|
|
||||||
cleanall: clean
|
cleanall: clean
|
||||||
$(RM) -f support/*.gpr bin/* lib/* adaid.gpr doc/*.html 2> /dev/null
|
$(RM) -f support/*.gpr bin/* lib/* adaid.gpr doc/*.html 2> /dev/null
|
||||||
|
|
||||||
|
|
|
@ -7,6 +7,7 @@ with AUnit.Test_Cases;
|
||||||
package AdaID_Tests is
|
package AdaID_Tests is
|
||||||
|
|
||||||
type UUID_Test is new AUnit.Test_Cases.Test_Case with null record;
|
type UUID_Test is new AUnit.Test_Cases.Test_Case with null record;
|
||||||
|
type Access_UUID_Test is access UUID_Test;
|
||||||
|
|
||||||
-- Register the tests to run
|
-- Register the tests to run
|
||||||
procedure Register_Tests(T : in out UUID_Test);
|
procedure Register_Tests(T : in out UUID_Test);
|
||||||
|
|
|
@ -11,8 +11,9 @@ with AdaID_Tests;
|
||||||
procedure Test is
|
procedure Test is
|
||||||
function Suite return Access_Test_Suite is
|
function Suite return Access_Test_Suite is
|
||||||
Result : constant Access_Test_Suite := new Test_Suite;
|
Result : constant Access_Test_Suite := new Test_Suite;
|
||||||
|
Test : constant AdaID_Tests.Access_UUID_Test := new AdaID_Tests.UUID_Test;
|
||||||
begin
|
begin
|
||||||
Add_Test(Result, new AdaID_Tests.UUID_Test);
|
Add_Test(Result, Test);
|
||||||
return Result;
|
return Result;
|
||||||
end Suite;
|
end Suite;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue