Just a quick update on this issue. I finally decided to submit a bug report via Ubuntu's Launchpad, as I didn't see any other similar bugs in their database. ( Bug report is here: <font color="#888888"><a href="https://bugs.launchpad.net/bugs/392197" target="_blank">https://bugs.launchpad.net/bugs/392197</a> )<br>
<br>It looks as if the issue has now been resolved and the fix is available for the next release (9.10 - Karmic Koala). However, I was able to download the appropriate .DEB file for my architecture and install it on a 9.04 box, and it does appear to work as advertised.<br>
<br>Alan<br><br><br></font><div class="gmail_quote">On Fri, Apr 24, 2009 at 1:39 PM, Alan Krause <span dir="ltr"><<a href="mailto:alank@shermanloan.com" target="_blank">alank@shermanloan.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">I've installed ubuntu 9.04 in a VM to test it out, and have installed fpc 2.2.4. It is always good to look before you leap, right?<br>
<br>Anyhow, I am trying to compile an existing project that works fine under Ubuntu 8.04. I can get all of the unit to compile, but when it comes time to link them together into a shared library, I get the following:<br>
<br><span style="font-family: courier new,monospace;">Linking libproj.so</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Error: Can't call the linker, switching to external linking</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">Fatal: There were 1 errors compiling module, stopping</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Fatal: Compilation aborted</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">Error: /usr/local/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)</span><br style="font-family: courier new,monospace;">
<br>Here is the source code for the sample project:<br><br><span style="font-family: courier new,monospace;">library project1;</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">uses</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> Classes;</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">function dRound(iDec: integer; dRate: double): double;</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">const</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> TenToPower: Array[0..9] of integer = (1, 10, 100, 1000, 10000, 100000,</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> 1000000, 10000000, 100000000, 1000000000);</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">var</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> dInc : double;</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">begin</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> if iDec > 0 then begin</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> dInc := 0.5000001;</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> result := trunc (dRate * (TenToPower [iDec]) + dInc) /</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> TenToPower [iDec];</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> end else begin</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> result := dRate;</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> end ;</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">end;</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">function one : double; cdecl;</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">begin</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> Result := dRound( 2, 0.529 ) ;</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">end;</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">begin</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">end.</span><br><br>And the command I use to compile it is:<br><span style="font-family: courier new,monospace;">fpc -Sd -Cg -O3 proj.pas</span><br><br>Anyone else having similar issues?<br>
<font color="#888888">
<br>Alan<br>
</font></blockquote></div><br>