[Pkg-pascal-devel] Bug#813452: fpc-3.0 regression in armhf and armel architectures

[Paul Gevers]

Hmm, I was a tiny little bit wrong earlier.

I modified hedgewars a tiny bit (patch attached) and build in on
debomatic¹. You can see that the failing line reads:
"Lua test file specified: /<<PKGBUILDDIR>>/tests/lua/hellfire_burns.lua"

When I grep for the beginning of that line I get only one answer:
paul at ruapehu ~/tmp/packages/hedgewars $ rgrep "Lua test file specified" *
hedgewars/ArgParsers.pas:        {--lua-test}            35 : begin
cTestLua := true; SetSound(false); cScriptName :=
getstringParameter(arg, paramIndex, parseParameter); WriteLn(stdout,
'Lua test file specified: ' + cScriptName);end;

So it wasn't stderr, but stdout.

Anyways, it now fails for an access violation. I don't like this at all,
but it is hard to say if this is a fpc error or hedgewars'.

Paul

¹
http://debomatic-armhf.debian.net/distribution#unstable/hedgewars/0.9.22-dfsg-4+debug+elbrus/buildlog
-------------- next part --------------
Description: Writeln inside try/except statement
Author: Paul Gevers <elbrus at debian.org>
X-Dgit-Generated: 0.9.22-dfsg-4+debug+elbrus ad588659e3d59e33080149b6ce14f2f6f64fd2de

---

--- hedgewars-0.9.22-dfsg.orig/hedgewars/uUtils.pas
+++ hedgewars-0.9.22-dfsg/hedgewars/uUtils.pas
@@ -464,7 +464,16 @@ end;
 
 procedure WriteLn(var f: textfile; s: shortstring);
 begin
-system.writeln(f, s)
+   {$I+}
+   try
+       system.writeln(f, s);
+   except
+       on E: EInOutError do
+   begin
+       system.writeln('File handling error occurred. Details: ', E.ClassName, '/', E.Message);
+       system.writeln(s);
+   end;
+   end
 end;
 
 function StrLength(s: PChar): Longword;
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 473 bytes
Desc: OpenPGP digital signature
URL: <http://lists.alioth.debian.org/pipermail/pkg-pascal-devel/attachments/20160217/27f9c783/attachment.sig>