Pārlūkot izejas kodu

* avoid level 2 comments

git-svn-id: trunk@6012 -
pierre 18 gadi atpakaļ
vecāks
revīzija
eeb94bf9ea
1 mainītis faili ar 4 papildinājumiem un 4 dzēšanām
  1. 4 4
      compiler/symdef.pas

+ 4 - 4
compiler/symdef.pas

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