Hello, Axel!
Emulation of the Borland Pascal 'Assign' procedure (as suggested in the gpc.info) does not work if the 'Assign' procedure is put into a separate unit.
The problem is that String types without specified length do not (yet!;-) survive the transport through a GPI file.
Workaround: Use Strings with specified length:
(* begin 'borland.pas' - this goes into a separate file *) unit borland;
INTERFACE
type mystring = string (255);
procedure Assign(var t: text; protected Name: mystring);
IMPLEMENTATION
procedure Assign(var t: text; protected Name: mystring);
var b: BindingType; begin unbind(t); b := binding(t); b.Name := Name; bind(t, b); b := binding(t); end;
end. (* end 'borland.pas' *)
However, thanks a lot for the bug report. Without such reports, we would probably never be able to make GPC a stable compiler.
Greetings,
Peter
e-mail: peter.gerwinski@uni-essen.de home address: D"usseldorfer Str. 35, 45145 Essen, Germany WWW: http://agnes.dida.physik.uni-essen.de/~peter/