Przeglądaj źródła

* avoid level 2 comments

git-svn-id: trunk@6012 -
pierre 18 lat temu
rodzic
commit
eeb94bf9ea
1 zmienionych plików z 4 dodań i 4 usunięć
  1. 4 4
      compiler/symdef.pas

+ 4 - 4
compiler/symdef.pas

@@ -2006,14 +2006,14 @@ implementation
          if high<32 then
            begin
              settype:=smallset;
-             {
+             (*
              if current_settings.setalloc=0 then      { $PACKSET Fixed?}
-              }
+             *)
                savesize:=Sizeof(longint)
-              {
+             (*
              else                       {No, use $PACKSET VALUE for rounding}
                savesize:=current_settings.setalloc*(((high+1)+current_settings.setalloc*8-1) DIV (current_settings.setalloc*8));
-             }
+             *)
            end
          else
           if high<256 then