paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed a warning with DFA

Browse Source 
git-svn-id: trunk@30015 -
This commit is contained in:
Károly Balogh 2015-02-26 09:36:03 +00:00
parent afa4f0be8e
commit 56eeabd01b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pstatmnt.pas
View File

@ -1049,6 +1049,7 @@ implementation
begin
Inside_asm_statement:=true;
asmstat:=nil;
hl:=nil;
if assigned(asmmodeinfos[current_settings.asmmode]) then
begin
asmreader:=asmmodeinfos[current_settings.asmmode]^.casmreader.create;
@ -1085,7 +1086,7 @@ implementation
reg:=std_regnum_search(lower(cstringpattern));
if reg<>NR_NO then
begin
if not(po_assembler in current_procinfo.procdef.procoptions) then
if not(po_assembler in current_procinfo.procdef.procoptions) and assigned(hl) then
begin
hl.Insert(tai_regalloc.alloc(reg,nil));
hl.Insert(tai_regalloc.markused(reg));