Browse Source

fixed a warning with DFA

git-svn-id: trunk@30015 -
Károly Balogh 10 years ago
parent
commit
56eeabd01b
1 changed files with 2 additions and 1 deletions
  1. 2 1
      compiler/pstatmnt.pas

+ 2 - 1
compiler/pstatmnt.pas

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