Index: fpc-1.9/compiler/symdef.pas
===================================================================
RCS file: /FPC/CVS/fpc/compiler/symdef.pas,v
retrieving revision 1.271
diff -u -r1.271 symdef.pas
--- fpc-1.9/compiler/symdef.pas	15 Nov 2004 23:35:31 -0000	1.271
+++ fpc-1.9/compiler/symdef.pas	16 Nov 2004 08:47:15 -0000
@@ -4273,7 +4273,8 @@
         if overloadnumber>0 then
          mangledname:=mangledname+'$'+tostr(overloadnumber);
         { add parameter types }
-        for i:=0 to paras.count-1 do
+        if assigned(paras) then
+         for i:=0 to paras.count-1 do
          begin
            hp:=tparavarsym(paras[i]);
            if not(vo_is_hidden_para in hp.varoptions) then