Browse Source

* comment links to test now

git-svn-id: trunk@38204 -
florian 7 years ago
parent
commit
092223f400
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/x86/cgx86.pas

+ 1 - 1
compiler/x86/cgx86.pas

@@ -2677,7 +2677,7 @@ unit cgx86;
             getcpuregister(list,REGSI);
             getcpuregister(list,REGSI);
 {$ifdef i8086}
 {$ifdef i8086}
             { at this point, si and di are allocated, so no register is available as index =>
             { at this point, si and di are allocated, so no register is available as index =>
-              compiler will hang/ie during spilling, so avoid that srcref has base and index }
+              compiler will hang/ie during spilling, so avoid that srcref has base and index, see also tests/tbs/tb0637.pp }
             if (srcref.base<>NR_NO) and (srcref.index<>NR_NO) then
             if (srcref.base<>NR_NO) and (srcref.index<>NR_NO) then
               begin
               begin
                 r:=getaddressregister(list);
                 r:=getaddressregister(list);