comp.lang.ada
 help / color / mirror / Atom feed
From: Xavier Petit <xpetit@becoast.fr>
Subject: Re: Kernel Syscall from Ada?
Date: Fri, 24 Jun 2016 03:13:28 +0200
Date: 2016-06-24T03:13:28+02:00	[thread overview]
Message-ID: <576c8938$0$3336$426a74cc@news.free.fr> (raw)
In-Reply-To: <2048d6d6-04e2-4e2c-9483-e3769da59781@googlegroups.com>

On windows :

procedure Beethoven is
    type Dword is mod 2 ** 32 with Size => 32;

    procedure Beep (Frequency, Period : in Dword)
      with Import, Convention => Stdcall, External_Name => "Beep";
begin
    Beep (784, 250);
    Beep (784, 250);
    Beep (784, 250);
    Beep (622, 1000);
end;

Maybe you are looking at this "Stdcall" convention ?
Also regarding small executables, I LOVE this one :
http://madebyevan.com/diskitude/

(false positive for a few antivirus)

10kb (static) for a very useful windows tool (use right click to 
zoom-in/out to folders), very impressive, too bad the author doesn't 
give the source code...

-- 
Xavier Petit

  parent reply	other threads:[~2016-06-24  1:13 UTC|newest]

Thread overview: 13+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2016-06-23  8:36 Kernel Syscall from Ada? Diogenes
2016-06-23 10:58 ` Björn Lundin
2016-06-23 16:28   ` Per Sandberg
2016-06-23 22:18 ` Randy Brukardt
2018-07-12 19:07   ` Dan'l Miller
2018-07-12 20:59     ` Randy Brukardt
2016-06-24  1:13 ` Xavier Petit [this message]
2016-06-24 22:23 ` Florian Weimer
2018-07-11 22:38 ` alexgrantbenedict
2018-07-12  1:32 ` Dan'l Miller
2018-07-12  8:19   ` Lucretia
2018-07-12 15:27     ` Dan'l Miller
2018-07-12 17:27       ` Lucretia
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox