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,9fdb4e673a488b12 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2002-12-08 04:26:20 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!colt.net!kibo.news.demon.net!news.demon.co.uk!demon!not-for-mail From: Simon Wright Newsgroups: comp.lang.ada Subject: Re: Placement of pragma Import Date: 08 Dec 2002 12:26:04 +0000 Organization: Pushface Sender: simon@smaug.pushface.org Message-ID: References: NNTP-Posting-Host: pogner.demon.co.uk Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: news.demon.co.uk 1039350379 24252 62.49.19.209 (8 Dec 2002 12:26:19 GMT) X-Complaints-To: abuse@demon.net NNTP-Posting-Date: Sun, 8 Dec 2002 12:26:19 +0000 (UTC) User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.1 Xref: archiver1.google.com comp.lang.ada:31548 Date: 2002-12-08T12:26:04+00:00 List-Id: Michal Nowak writes: > -- Possibility 1: > > package Import_Test is > > procedure Asm_Coded; > > pragma Import (Assembler, Asm_Coded, "donothing"); > pragma Linker_Options ("nothing_asm.s"); > > end Import_Test; > > -- Possibility 2: > package Import_Test is > > procedure Asm_Coded; > > private -- Imported in private section > > pragma Import (Assembler, Asm_Coded, "donothing"); > pragma Linker_Options ("nothing_asm.s"); > > end Import_Test; I would certainly use the second choice; it probably makes no difference to the generated code, but it removes complication from the public part of the spec. By the way, I think you meant nothing_asm.o, not nothing_asm.s?