On 20 Dec 2000, at 17:41, nicolas bley wrote:
We currently face a problem porting pascal Oregon programs on GPC. These programs use files descriptors declared as global variables. These descriptors are declared in a module while they are used in another module.
Trying to open one of these files in write mode (rewrite function), we get a strange error message: ?GPC runtime error: (gpc-rts) _p_initfdr() has not been called for file (#701)
[...]
procedure assign( var t : FileType; var name : string ); var b : Bindingtype; begin { assign } unbind( t ); b := binding( t ); b.name := name; bind( t, b ); b := binding( t ); end; { assign }
I think that this is your problem. GPC has a built-in 'assign' procedure, which perhaps does some other things that your version does not do. Remove (or comment out) your own version, and things should be okay.
Best regards, The Chief --------- Prof. Abimbola Olowofoyeku, PhD (The African Chief) Email: african_chief@bigfoot.com WWW: http://www.bigfoot.com/~african_chief