codetools: fixed savebufferas to virtual file, bug #12966

git-svn-id: trunk@18269 -
This commit is contained in:
mattias 2009-01-13 09:50:52 +00:00
parent 9a8987c091
commit 162095d09e
2 changed files with 3 additions and 2 deletions

View File

@ -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;

View File

@ -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');