paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 11:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

Converter: debug messages for the fall-bakc replacement.

Browse Source 
git-svn-id: trunk@41968 -
This commit is contained in:
juha 2013-07-02 13:21:00 +00:00
parent 1cc1c541af
commit 219041d762
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
converter/convertdelphi.pas
View File

@ -542,6 +542,7 @@ begin
repeat
CodeOk:=True;
try
DebugLn('TDelphiUnit.CopyAndLoadFile: Creating UsedUnitsTool');
// Create a tool for missing units.
fUsedUnitsTool:=TUsedUnitsTool.Create(fCTLink, fOrigUnitFilename);
except
@ -550,6 +551,7 @@ begin
if CodeFixed then
Raise // There was a second exception -> we are doomed!
else begin
DebugLn('TDelphiUnit.CopyAndLoadFile exception: Replacing .type -> .&type');
with fPascalBuffer do
Source:=StringReplace(Source,'.type','.&type',[rfReplaceAll]);
CodeOk := False;