paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-31 01:04:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

Converter: fixed access violation (bug #7503)

Browse Source 
git-svn-id: trunk@10269 -
This commit is contained in:
vincents 2006-12-01 08:47:19 +00:00
parent a4f24ffb45
commit 93cdf93327
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/delphiunit2laz.pas
View File

@ -583,8 +583,10 @@ begin
if not FileExists(DOFFilename) then exit(mrOk); if not FileExists(DOFFilename) then exit(mrOk);
if AProjPkg is TProject then begin if AProjPkg is TProject then begin
AProject:=TProject(AProjPkg); AProject:=TProject(AProjPkg);
APackage:=nil;
CompOpts:=AProject.CompilerOptions; CompOpts:=AProject.CompilerOptions;
end else if AProjPkg is TLazPackage then begin end else if AProjPkg is TLazPackage then begin
AProject:=nil;
APackage:=TLazPackage(AProjPkg); APackage:=TLazPackage(AProjPkg);
CompOpts:=APackage.CompilerOptions; CompOpts:=APackage.CompilerOptions;
end else end else