Waldek Hebisch wrote:
Frank Heckenbach wrote:
Waldek, many of these failure seem to be side-effects of the fjf1018 patch.
That is incompatible change. If we want fjf1018.pas to be accepted by default then: filehand.pas, fjf684.pas, fjf751k.pas, fjf751l.pas, fjf800.pas, random.pas are invalid.
Indeed, BP doesn't accept such programs.
Personally I woud prefer to accept fjf1018.pas only in BP mode.
OK.
If someone else wants to try it, use this patch and add `{$borland-pascal}' in test/fjf1018[acu.pas].
--- p/module.c Thu Feb 17 04:59:34 2005 +++ p/module.c Fri Feb 18 01:22:15 2005 @@ -472,7 +472,7 @@ chk_dialect ("programs without program header are", B_D_PASCAL); id = get_identifier ("noname"); } - if (kind == 1 || (kind == 0 && !(co->pascal_dialect & C_E_O_PASCAL))) + if (kind == 1 || (kind == 0 && (co->pascal_dialect & B_D_PASCAL))) pushdecl (build_decl (NAMESPACE_DECL, id, void_type_node)); current_module = find_module (id, 1); current_module->assembler_name = NULL;
Frank