kylekrein/live-bootstrap
1
0
Fork 0
mirror of https://github.com/fosslinux/live-bootstrap.git synced 2026-03-15 15:55:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Switch to perl tarballs generated from archiving git tags.

Browse source
This commit is contained in:
Andrius Štikonas 2021-02-17 20:23:50 +00:00
parent e9455c8463
commit 621b099a57
12 changed files with 28 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

31
sysa/perl5.000/files/opcode.awk
View file

@ -1,31 +0,0 @@
# SPDX-FileCopyrightText: 2021 Andrius Štikonas <andrius@stikonas.eu>
#
# SPDX-License-Identifier: GPL-3.0-or-later
{
argsum = 0
argsum = or(argsum, 1 * (index($4, "m") != 0))
argsum = or(argsum, 2 * (index($4, "f") != 0))
argsum = or(argsum, 4 * (index($4, "s") != 0))
argsum = or(argsum, 8 * (index($4, "t") != 0))
argsum = or(argsum, 16 * (index($4, "i") != 0))
argsum = or(argsum, 32 * (index($4, "I") != 0))
argsum = or(argsum, 64 * (index($4, "d") != 0))
argsum = or(argsum, 128 * (index($4, "u") != 0))
mul = 256
arg_val="SLAHCFR"
argstr=$5
gsub(" ", "", argstr)
split(argstr, args, "")
for(i=1; i<=length(argstr); i+=1) {
argnum = (index(argstr, "?") != 0) * 8
argnum += index(arg_val, args[i])
argsum += argnum * mul
mul = lshift(mul, 4)
}
printf("\t0x%08x,\t/* %s */\n", argsum, $1)
}