paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 09:59:17 +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 begin
Inside_asm_statement:=true; Inside_asm_statement:=true;
asmstat:=nil; asmstat:=nil;
hl:=nil;
if assigned(asmmodeinfos[current_settings.asmmode]) then if assigned(asmmodeinfos[current_settings.asmmode]) then
begin begin
asmreader:=asmmodeinfos[current_settings.asmmode]^.casmreader.create; asmreader:=asmmodeinfos[current_settings.asmmode]^.casmreader.create;
@ -1085,7 +1086,7 @@ implementation
reg:=std_regnum_search(lower(cstringpattern)); reg:=std_regnum_search(lower(cstringpattern));
if reg<>NR_NO then if reg<>NR_NO then
begin 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 begin
hl.Insert(tai_regalloc.alloc(reg,nil)); hl.Insert(tai_regalloc.alloc(reg,nil));
hl.Insert(tai_regalloc.markused(reg)); hl.Insert(tai_regalloc.markused(reg));