Hello,

Earlier I mailed a problem in compiling p/rts/filename.pas on HPUX 10.20 with egcs1.1b. After a replay from Frank Heckenbach (thanks!) I reduced the file to the following, and found a workaround.

================================================ filename-fout.pas unit FileName; interface

uses gpc;

implementation { const TStringSize = 2048; type TString = String (TStringSize); }

function F : TString; begin end; end. ==================================================

This program (executed in the rts directory) yields the following error on HPUX10.20:

filename-fout.pas: In function `F': filename-fout.pas:11: warning: return value of function not assigned filename-fout.pas:11: internal error--unrecognizable insn: (insn 13 12 15 (set (zero_extract:SI (reg:SI 94) (const_int 32) (const_int 0)) (reg:SI 95)) -1 (nil) (nil)) ../toplev.c:1378: Internal compiler error in function fatal_insn

Removing the comment brackets makes the internal error go away. The workaround of course is defining TString locally in the file filename.pas

Mayby this information helps to find the bug more easily.

Sietse