Commits

Toby Inkster committed 0a4bb6f Draft

initial checkin

Comments (0)

Files changed (7)

greeter

Binary file added.
+with Ada.Text_IO; use Ada.Text_IO;
+package body Greeter is
+	procedure Hello is
+	begin
+		Put_Line ("Hello, world!");
+	end Hello;
+end Greeter;
+package Greeter is
+	procedure Hello;
+end Greeter;
+V "GNAT Lib v4.4"
+A -fPIC
+P SS ZX
+R nnnnnnnnnnnnnnnnnnnnnnvnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn
+
+U greeter%b		greeter.adb		57e8f8e1 NE OO PK
+W ada%s			ada.ads			ada.ali
+W ada.text_io%s		a-textio.adb		a-textio.ali
+
+U greeter%s		greeter.ads		39d692b6 EE NE OO PK
+
+D ada.ads		20070406091342 9c7dd3ea
+D a-except.ads		20090409232307 b54b55de
+D a-finali.ads		20090409232307 9eaacebd
+D a-filico.ads		20090409232307 9299732a
+D a-ioexce.ads		20070406091342 be0900a0
+D a-stream.ads		20090409232307 34aca5be
+D a-tags.ads		20090409232307 bfa07446
+D a-textio.ads		20090409232307 fe8af46e
+D a-unccon.ads		20070406091342 51e09df2
+D greeter.ads		20130118103547 39d692b6
+D greeter.adb		20130118103853 90b49e39
+D interfac.ads		20090409232307 a69cad5c
+D i-cstrea.ads		20090409232307 e1e064a9
+D system.ads		20110917192145 df55302f
+D s-crtl.ads		20090409232307 997234a1
+D s-exctab.ads		20090409232307 5c1c61ae
+D s-ficobl.ads		20090409232307 8bb681e5
+D s-finimp.ads		20090409232307 9449f4cb
+D s-finroo.ads		20090409232307 1408f9d1
+D s-parame.ads		20090409232307 f32e56e9
+D s-secsta.ads		20090409232307 7bae3621
+D s-soflin.ads		20090409232307 0c6fd39d
+D s-stache.ads		20090409232307 257b3be8
+D s-stalib.ads		20090409232307 52b793d5
+D s-stoele.ads		20090409232307 ed966df3
+D s-stoele.adb		20090409232307 e9998c78
+D s-stratt.ads		20090409232307 fef7c1da
+D s-traent.ads		20090409232307 bd5f2753
+D s-unstyp.ads		20090409232307 c0f9fae5
+D s-wchcon.ads		20090409232307 ab028799
+X 1 ada.ads
+16K9*Ada 19e8 11|1r6 1r23
+X 8 a-textio.ads
+48K13*Text_IO 506e16 11|1w10 1r27
+263U14*Put_Line 11|5r17
+X 10 greeter.ads
+1K9*Greeter 3l5 3e12 11|2b14 7l5 7t12
+2U19*Hello 11|3b19 6l13 6t18
+

greeter.o

Binary file added.
+use 5.014;
+use strict;
+use warnings;
+
+#BEGIN { $ENV{PERL_DL_DEBUG} = 1 };
+
+package Greeter
+{
+	use constant ADADIR => '/usr/lib/gcc/x86_64-linux-gnu/4.4/rts-native/adalib/';
+	use constant OURDIR => do { (my $f = __FILE__) =~ s{[^/]+$}//; $f || "." };
+	
+	require DynaLoader;
+	our @ISA = 'DynaLoader';
+	
+	my $runtime = DynaLoader::dl_load_file(
+		ADADIR.'/libgnat.so',
+	) or die DynaLoader::dl_error();
+	
+	my $gep = DynaLoader::dl_find_symbol(
+		$runtime,
+		'__gnat_eh_personality',
+	) or die DynaLoader::dl_error();
+	
+	my $libref = DynaLoader::dl_load_file(
+		OURDIR.'/libgreeter.so',
+		0x01,
+	) or die DynaLoader::dl_error();
+	
+	my $func = DynaLoader::dl_find_symbol(
+		$libref,
+		'greeter__hello',
+	) or die DynaLoader::dl_error();
+
+	print $func, $/;
+}

libgreeter.so

Binary file added.