Frank Heckenbach wrote:
Emil Jerabek wrote:
The following schema definition does not compile.
[~/pas]% cat tstsch.pas program Test (output);
type colour = (red, yellow, green, blue); { from ISO 10206, 6.4.10 } colour_map (formal_discriminant: colour) = record case formal_discriminant of red: (red_field: integer value ord (red)); yellow: (yellow_field: integer value ord (yellow)); green: (green_field: integer value ord (green)); blue: (blue_field: integer value ord (blue)); end; cmap_blue = colour_map (blue);
const cb = cmap_blue [case blue of [blue_field: 42]];
var cg: colour_map (green);
begin if (cb.blue_field = 42) and (cg.green_field = 2) then writeln ('OK') else writeln ('failed') end.
I've fixed the problem now (emil28a.pas). I'm not sending a patch now, since I'm not 100% sure which changes were relevant, and I'm still investigating some related issues. But I plan to make a new alpha soon, when the other current problems are resolved.
Frank
Might this be the gpc.alpha to auto-generate c.headers for (ie; with module dot qualifiers) ??
I would like to give it a try using TCL scripts.