From 162095d09ec4022f76e6f584eaaf7900b68956e5 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 13 Jan 2009 09:50:52 +0000
Subject: [PATCH] codetools: fixed savebufferas to virtual file, bug #12966

git-svn-id: trunk@18269 -
---
 components/codetools/codecache.pas | 2 +-
 ide/main.pp                        | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/components/codetools/codecache.pas b/components/codetools/codecache.pas
index df3f3f6e9f..81017e7476 100644
--- a/components/codetools/codecache.pas
+++ b/components/codetools/codecache.pas
@@ -391,7 +391,7 @@ begin
     NewBuffer.DiskEncoding:=NewBuffer.DiskEncoding;
     NewBuffer.MemEncoding:=NewBuffer.MemEncoding;
     NewBuffer.FCodeCache:=Self;
-    Result:=NewBuffer.Save;
+    Result:=NewBuffer.IsVirtual or NewBuffer.Save;
     //DebugLn('[TCodeCache.SaveBufferAs] C ',Result,' ',NewBuffer.IsVirtual);
     if not Result then begin
       NewBuffer.FCodeCache:=nil;
diff --git a/ide/main.pp b/ide/main.pp
index 7d9528cdb5..66620fd080 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -4287,6 +4287,7 @@ var
 begin
   LFMCode:=nil;
   ResourceCode:=nil;
+  //DebugLn(['TMainIDE.DoLoadResourceFile ',AnUnitInfo.Filename,' HasResources=',AnUnitInfo.HasResources,' IgnoreSourceErrors=',IgnoreSourceErrors,' AutoCreateResourceCode=',AutoCreateResourceCode]);
   if AnUnitInfo.HasResources then begin
     //writeln('TMainIDE.DoLoadResourceFile A "',AnUnitInfo.Filename,'" "',AnUnitInfo.ResourceFileName,'"');
     LRSFilename:=MainBuildBoss.FindLRSFilename(AnUnitInfo,false);
@@ -4933,7 +4934,7 @@ begin
   SrcEdit:=GetSourceEditorForUnitInfo(AnUnitInfo);
   if NewUnitName='' then
     NewUnitName:=AnUnitInfo.UnitName;
-  //debugln('TMainIDE.DoRenameUnit ',AnUnitInfo.Filename,' NewUnitName=',NewUnitName,' OldUnitName=',AnUnitInfo.UnitName);
+  //debugln(['TMainIDE.DoRenameUnit ',AnUnitInfo.Filename,' NewUnitName=',NewUnitName,' OldUnitName=',AnUnitInfo.UnitName,' ResourceCode=',ResourceCode<>nil]);
 
   // check new resource file
   NewLFMFilename:=ChangeFileExt(NewFilename,'.lfm');