#!/usr/bin/env perl

# * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
# * This file is part of SableVM.                             *
# * See the file "LICENSE" for Copyright information and the  *
# * terms and conditions for copying, distribution and        *
# * modification of SableVM.                                  *
# * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

# Use this to initialize inlineability informations for another architecture.
# Usage: ./addarch.pl ./inlineability.list >./inlineability.list-new

while (<>) { s/,([^,]{3,5}),\s*$/,$1,    ,\n/; print ; }