[fpc-devel]fpc v1.1 tinputline solution

[Sergey Korshunoff]

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