Path: utzoo!utgpu!water!watmath!clyde!att!pacbell!ames!pasteur!ucbvax!hplabs!well!ewhac
From: ewhac@well.UUCP (Leo 'Bols Ewhac' Schwab)
Newsgroups: comp.sys.amiga.tech
Subject: Re: Font help needed
Message-ID: <6241@well.UUCP>
Date: 10 Jun 88 08:35:16 GMT
References: <62300001@hobbiton> <62300003@hobbiton>
Reply-To: ewhac@well.UUCP (Leo 'Bols Ewhac' Schwab)
Organization: Bleep Gzorp!
Lines: 38

In article <62300003@hobbiton> tran@hobbiton.prime.com writes:
>Aaugh!  I'm gonna start pulling hair soon!  The following is what I do.
>All definitions are supplied below, as well as the EXACT code:
>-------------------------------------------------------------------------------
>
>VAR
>   Gfx, Intu, Dfon : LibraryPtr;
>
>BEGIN
>   Gfx := OpenLibrary(ADR("graphics.library"),0);   (* Just in case *)
>   Intu := OpenLibrary(ADR("intuition.library"),0); (* Just in case *)
>   Dfon := OpenLibrary(ADR("diskfont.library"),0);  
>
	I have *no* idea how Modula-2/Pascal deal with symbol names, or how
their Amiga library stubs work, but it occurs to me that you should be
saying:

VAR
	GfxBase, IntuitionBase, DiskFontBase : LibraryPtr;

BEGIN
	GfxBase := OpenLibrary (ADR("graphics.library"), 0);
	(*  et cetera, et cetera, et cetera... *)

	The library stubs in C require that you store the library base
pointer into a pointer variable with a specific name (in this case, GfxBase,
IntuitionBase, et al).  This is so that the linker can resolve the reference
between your code and the library stubs.  You may wish to check that your
DiskFontBase pointer is named correctly.

	However, I have *NO* idea how Modula does it, so I may be completely
off base here....

_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
Leo L. Schwab -- The Guy in The Cape  ihnp4!pacbell -\
 \_ -_		Recumbent Bikes:	      dual ---> !{well,unicom}!ewhac
O----^o	      The Only Way To Fly.	      hplabs / (pronounced "AE-wack")
"Hmm, you're right.  Air is made up of suspended meat loaf."  -- Josh Siegel