From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,a8f278a497778ced,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-02-01 03:34:56 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!newsfeeds.belnet.be!news.belnet.be!news.tele.dk!small.news.tele.dk!195.54.122.107!newsfeed1.bredband.com!bredband!newsfeed1.telenordia.se!algonet!uab.ericsson.se!erinews.ericsson.se!newstoo.ericsson.se!not-for-mail
From: "Petter Fryklund" <qsbpefr@esavionics.se>
Newsgroups: comp.lang.ada
Subject: VxWorks: Link problem
Date: Fri, 1 Feb 2002 12:35:07 +0100
Organization: ericsson
Message-ID: <a3dt2s$t7j$1@newstoo.ericsson.se>
NNTP-Posting-Host: 172.17.76.206
X-Newsreader: Microsoft Outlook Express 4.72.2106.4
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.2106.4
Xref: archiver1.google.com comp.lang.ada:19459
Date: 2002-02-01T12:35:07+01:00
List-Id: <comp.lang.ada>

I get undefined reference for high123 and low123 when trying to make
VwWorks_rom including this little neat machine code: (AdaMULTI builds OK!)

with Machine_Code;
procedure rdtsc (High, Low : out Interfaces.Unsigned_32) is

   high123 : Interfaces.Unsigned_32;
   low123  : Interfaces.Unsigned_32;
   pragma Export (C, High123, "high123");
   pragma Export (C, Low123, "low123");


   procedure Do_Inline_Code is
      use Machine_Code;
   begin
      asm'(inst => "rdtsc                            ");
      asm'(inst => "movl    %eax,high123             ");
      asm'(inst => "movl    %edx,low123              ");
   end Do_Inline_Code;

begin
   Do_Inline_Code;
   High := High123;
   Low  := Low123;
end Rdtsc;

(This is done in order to get 64 bit tick counter.) Any suggestions.