Add MaxNoncurrentVersions to NoncurrentExpiration action (#13580)

This unit allows users to limit the maximum number of noncurrent 
versions of an object.

To enable this rule you need the following *ilm.json*
```
cat >> ilm.json <<EOF
{
    "Rules": [
        {
            "ID": "test-max-noncurrent",
            "Status": "Enabled",
            "Filter": {
                "Prefix": "user-uploads/"
            },
            "NoncurrentVersionExpiration": {
                "MaxNoncurrentVersions": 5
            }
        }
    ]
}
EOF
mc ilm import myminio/mybucket < ilm.json
```

cmd/xl-storage-format-utils.go

@@ -26,27 +26,6 @@ import (
 )
 
 func getFileInfoVersions(xlMetaBuf []byte, volume, path string) (FileInfoVersions, error) {
-	fivs, err := getAllFileInfoVersions(xlMetaBuf, volume, path)
-	if err != nil {
-		return fivs, err
-	}
-	n := 0
-	for _, fi := range fivs.Versions {
-		// Filter our tier object delete marker
-		if !fi.TierFreeVersion() {
-			fivs.Versions[n] = fi
-			n++
-		}
-	}
-	fivs.Versions = fivs.Versions[:n]
-	// Update numversions
-	for i := range fivs.Versions {
-		fivs.Versions[i].NumVersions = n
-	}
-	return fivs, nil
-}
-
-func getAllFileInfoVersions(xlMetaBuf []byte, volume, path string) (FileInfoVersions, error) {
 	if isXL2V1Format(xlMetaBuf) {
 		var versions []FileInfo
 		var err error
@@ -63,10 +42,25 @@ func getAllFileInfoVersions(xlMetaBuf []byte, volume, path string) (FileInfoVers
 			return FileInfoVersions{}, err
 		}
 
+		var freeVersions []FileInfo
+		n := 0
+		for _, fi := range versions {
+			if fi.TierFreeVersion() {
+				freeVersions = append(freeVersions, fi)
+				continue
+			}
+			versions[n] = fi
+			n++
+		}
+		versions = versions[:n]
+		for _, ver := range versions {
+			ver.NumVersions = n
+		}
 		return FileInfoVersions{
 			Volume:        volume,
 			Name:          path,
 			Versions:      versions,
+			FreeVersions:  freeVersions,
 			LatestModTime: versions[0].ModTime,
 		}, nil
 	}
@@ -83,7 +77,7 @@ func getAllFileInfoVersions(xlMetaBuf []byte, volume, path string) (FileInfoVers
 	}
 
 	fi.IsLatest = true // No versions so current version is latest.
-	fi.XLV1 = true     // indicates older version
+	fi.NumVersions = 1 // just this version
 	return FileInfoVersions{
 		Volume:        volume,
 		Name:          path,