Ada
Aus Lowlevel
Version vom 26. Februar 2009, 19:48 Uhr von Be59 (Diskussion | Beiträge)
| Diese Seite ist ein Artikel, welcher mehr haben könnte.. Wenn du mehr darüber weißt oder recherchieren willst, bist du aufgerufen, dies zu tun. Wenn du dir in einer Sache nicht sicher bist, dann stell es auf die Diskussionsseite. |
Testkernel in Ada
test.adb
with System.Storage_Elements;
procedure test is
pragma Suppress (All_checks);
multiboot: constant array (0..2) of integer
:= (16#1badb002#, 0, -16#1badb002#);
v: Array (0 .. 80 * 25 * 2) of character;
for v'Address use System.Storage_Elements.To_Address(16#B8000#);
s: constant String := "Hello world!";
begin
for i in s'range loop
v(2 * (i - 1)) := s(i);
end loop;
end test;
build.sh
#!/bin/bash gcc -c -m32 -x ada test.adb strip -dR .eh_frame test.o ld -melf_i386 -Ttext=0x100000 -e "_ada_test" -o test.krn test.o
