sbool linux_rssFixedForZGC_verbose;

static long linux_rssFixedForZGC() {
  ret linux_rssFixedForZGC(processID_int());
}

static long linux_rssFixedForZGC(int pid) {
  S text = loadTextFile("/proc/" + pid + "/smaps");

  S range = null;
  new TreeMap<S, Long> rssByRange;
  for (S s : lines(text)) {
    S addr = regexpFirstGroupIC("^([0-9a-f]{1,16})-", s);
    if (addr != null) {
      addr = lpad(addr, 16, '0');
      //print("Have address: " + addr);
      S cleanedAddr = longToHex(parseUnsignedHexLong(addr) & ~((1L << 42)-1));
      //range = takeFirst(/*7*/6, addr);
      range = takeFirst(6, cleanedAddr);
      continue;
    } // else print("Not range: " + s);
    PairS p = parseColonProperty(s);
    if (eqic(pairA(p), "rss")) {
      long size = parseFirstLong(p.b);
      if (size != 0)
        rssByRange.put(range, getOrCreate_long(rssByRange, range) + size);
    }
  }
  if (linux_rssFixedForZGC_verbose)
    for (unpair S _range, long size : mapToPairs(rssByRange)) {
      print("Address range " + rpad(_range, 16, 'x') + ": " + toK(size) + " MB");
    }
  L<Long> offendingRanges = ll(
    toLong(rssByRange.get("000004")),
    toLong(rssByRange.get("000008")),
    toLong(rssByRange.get("000010")));
  
  long total = longSum(values(rssByRange));
  long offending = longMin(offendingRanges);
  long guess = total-offending*2 /*3*/; // seems 2 is the right one
  
  /* Bad fix (?) for this situation:
    Address range 000000xxxxxxxxxx: 1 MB
    Address range 000004xxxxxxxxxx: 2461 MB
    Address range 000008xxxxxxxxxx: 2476 MB
    Address range 000010xxxxxxxxxx: 2662 MB
    Address range 00007cxxxxxxxxxx: 648 MB
  */
  /*long high = toLong(rssByRange.get("00007c"));
  if (high < offending*2)
    guess += offending;*/
  
  ret guess*1024;
}