Using the attached code, gpc-970714 (with #define HASH_EMBED commented
out in module.c), I get:
C:\source\mpt1352\port>gpc -c -O2 foo.pas
foo.pas: In function `Dectobin':
foo.pas:6: prior parameter's size depends on `Binary'
foo.pas:22: warning: return value of function not assigned
However, if I uncomment out BinToDec, gpc aborts in fix_lexical_addr,
stack trace attached.
Bill
--
Leave others their otherness.
-------stack trace for abort (BinToDec uncommented) -----
_abort
_fix_lexical_addr, line 4391 in file function.c
_expand_expr, line 4292 in file expr.c
_expand_expr, line 5235 in file expr.c
_expand_expr, line 4659 in file expr.c
_expand_expr, line 4886 in file expr.c
_emit_library_call_value+1628
_expand_call+4891
_expand_expr, line 5189 in file expr.c
_expand_expr_stmt+253
_rts_read, line 3409 in file util.c
_build_rts_call, line 5232 in file util.c
_yyparse, line 4574 in file parse.c
_compile_file, line 2232 in file toplev.c
_main, line 3938 in file toplev.c
___crt1_startup+290
start+465
unit TrunkUti;
interface
type wrkstring=string[255];
function BinToDec(Binary: string) : LongInt;
function DecToBin(DecInput: string) : wrkstring;
implementation
function BinToDec(Binary: string) : LongInt;
begin
BinToDec:=0;
end;
function DecToBin(DecInput: string) : wrkstring;
var
DecNum : word;
begin
ReadStr(DecInput,DecNum);
end;
end.