Hi!
I solved a tinputline problem (using by tscanner a destroyed object) by the following patch (do not destroy tinputfilemanager in tmodule.reset()):
diff -urN FPC-MY-1.old/fpc/compiler/fmodule.pas
FPC-MY-1/fpc/compiler/fmodule.pas
--- FPC-MY-1.old/fpc/compiler/fmodule.pas Sun Jul 7 15:34:23 2002
+++ FPC-MY-1/fpc/compiler/fmodule.pas Sun Jul 7 04:44:15 2002
@@ -495,8 +495,8 @@
dispose(map);
map:=nil;
end;
- sourcefiles.free;
- sourcefiles:=tinputfilemanager.create;
+ // sourcefiles.free;
+ // sourcefiles:=tinputfilemanager.create;
imports.free;
imports:=tlinkedlist.create;
_exports.free;Regards,
Sergey Korshunoff
