Re: updating a hardware cursor with assembly and ada

[cl1 <charles.w.lambert@gmail.com>]

On Mar 6, 11:26 am, Georg Bauhaus <rm.tsoh-plus.nicif-
bauh...@maps.futureapps.de> wrote:
> cl1 schrieb:
>
> > unsigned char outportb (unsigned short _port, unsigned char _data)
> > {
> >  __asm__ __volatile__ ("outb %1, %0" : : "dN" (_port), "a" (_data));
> > }
> > ---------------------------------------------------------------------------­--
> >   procedure Update_Cursor (Console : Video_Console) is
> >      procedure OutportB (Port : Natural; Data : Natural);
>
> Does type Natural match C type unsigned short on your system?

If it didn't, what problem would this pose?

> (Just a guess.) Maybe Interfaces.Unsigned_N is better choice.

I have no runtime (this is os development code). I don't know if i can
use the Interfaces packages in gnat with out it. I tried to implement
Unsigned_16 with out the operations and the compiler complained about
not having primitive operations defined on the part where i was doing
Data : Unsigned_16 := Console.Column * 80 + Console.Row; even when
Column and Row were of type Unsigned_16;

>
>
>
> >      pragma Import(C, OutportB, "outportB");- Hide quoted text -
>
> - Show quoted text -