Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Analyze the package with RcppDeepState #135

Open
wants to merge 1 commit into
base: master
Choose a base branch
from

Conversation

FabrizioSandri
Copy link

This PR adds a new Github Action which runs RcppDeepState+valgrind on your package. That means the C++ functions of your package will be tested with random inputs, and there will be a comment like this one for each new PR (which reports if valgrind found any issues with random inputs).

RcppDeepState analysis result

This package contains problems, according to RcppDeepState. The report was generated by RcppDeepState-action in this repository's fork and is accessible here.

@FabrizioSandri
Copy link
Author

RcppDeepState Report

function name message file line address trace R code
h2 53 (32 direct, 21 indirect) bytes in 1 blocks are definitely lost in loss record 19 of 1,302 hash_internal.cpp:74 No Address Trace found
Test code
testlist <- list(src = c("jazeifhqzmbtzbqqslhq", NA, "phko", "anlryxemlxxbhmilaiqw", "hpfsiuxeyjqhngapuzlh", "wqcwprpwzqhyaheqgvcu", "otvjqlnwvfxquzaycsxl", "qmkkguzixhlsjlznmjad", NA, NA, "oygxeofadbbtqdfhufav", NA, "dxrqgqrwrmmyuceqbdfx", "gkabzcxquukazenuavoz", "sitlzefnjknckaeqvhfy", NA, NA, NA, "bkxmfuo", "eouyrykmunxrqhfslbke", NA, "brkhxnkxoopwdhamtfe", "lxi", "zriycskichjbxkpudqvk", NA, "saieboreynbgpdobrfpn", NA, NA, "wvmltjfqivltdwngaifv", NA, "ujwbgqkpyqatgxmhiccg", NA, "fjmmmvddoqi", "fwmjmpfafeshvxkggzbz", "bdjjsnqhweraulzurcio", "wduxhunosdiheymviirf", "hicpwlibazatqymeecee", NA, NA, NA, NA, NA, NA, NA, "tfjgkspjtxkppuntpobj", "laqxoaeefhbeqsthvkz", "qmebrzcbwepry", NA, "upxcvadsjinzlajtuugv", NA, "eckigchnemjkqrbioghz", "foyzawmyprxkxjhpruzp", "xxeyrphiaufwn", "pzhoyvlem", "ocgxjbvbusn", "wn", NA, "eniwqddxrpyxyzpdmfnh", "jnjcbqsnkbbjhscgzbcv", "vdlkhxgwidnvqqrjvmjt", "whqiseusmpnafqcnvtkc", "sdxwlikpyymufftmugs", NA, "avobfw", "zaqiywdojmlaasaihyhq", "nyeoxknymbmkqjrpgowo", "", "ufaaxszimpo", NA, "bfh"))
result <- do.call(FeatureHashing:::h2, testlist)
merge Invalid read of size 8 as.cpp:54 No Address Trace found
Test code
testlist <- list(i = c(69398254L, 829846253L, -429754007L, 454722234L, 1264783649L, -1219574286L, 98015985L, -775865131L, -466959339L, -1607073146L, -1736708173L, -1787662879L, -713162100L, -842498350L, -1625701520L, -620804674L, 688509897L, 1071009752L, 1363053543L, -1325807483L, 2009731652L, -1836050895L, -1445355132L, -655932927L, -266941904L, -333903811L, 1486038024L, -1930654204L, -1214232503L, NA, 941383185L, 60822260L, -1227021150L, -164831154L, -1090234548L, -236629848L, -2053574219L, -143880400L, -1980939892L, -1907130300L, 816113447L, -792234608L, -875766596L, -1322490826L, -1000936260L, -1032065973L, 1764612343L, -2141701199L, -48047923L, -380805707L, 439972299L, 1708524074L, 753854190L, 1775385298L, -15545985L, 1778724967L, 654849297L, 1452459632L, -868795599L, 222124857L, 725690517L, 325216018L, 1949405918L, 918701661L, -881103327L, NA), x = c(2.6418255479042e+85, 6.07873525587314e-251, -4.59496552839096e-76, 4.79262697592702e+176, 4.30861760173751e+137, -5.57029530620198e-132, 1.18609923591999e+145, 3.0780499668069e-188, 1.9692951427735e+149, 1.22968162162933e+166, 3.42600588934252e+134, -8.12928883376752e+53, -1.06100393021654e-204, 2.38737072127253e+60, 2.30146283245002e-283, -Inf, 1.84849990736347e+132, -3.7645496125776e-58, NaN, -1.42641477407811e-85, -3.65128110239489e+95, 1.14665263843998e+197, 6.53626777066896e+173, -7.53121526436136e-194, -4.13417458979099e+95, -1.9711153367173e-118, -1.04954177401165e+265, 6.50134101905189e-92, -256985985604.01, 1.18609923591999e+145, 2.13742218979633e-135, 8.32217483209601e+73, -4.03976361621628e-231, NA, 1.16105830823157e-296, 6.02621439200311e-117, 8.52493453349611e-267, -3.31112584039748e-28, 1.97145268229036e+267, -6.45517924440172e-18, -4.27827418540752e+289, -2.80040090197631e-109, -1.17243978706259e-105, 3.36421367032313e-16, 1.70915652178292e-243, 3.49351263005719e-230, -9.9032330303416e+232, -4.64727168508508e-284, -7.65114924609716e-196, -1.13483669278294e+137, 4.09950044746732e-281, 0))
result <- do.call(FeatureHashing:::merge, testlist)
pair_sort Invalid read of size 8 as.cpp:31 No Address Trace found
Test code
testlist <- list(i = c(69398254L, 829846253L, -429754007L, 454722234L, 1264783649L, -1219574286L, 98015985L, -775865131L, -466959339L, -1607073146L, -1736708173L, -1787662879L, -713162100L, -842498350L, -1625701520L, -620804674L, 688509897L, 1071009752L, 1363053543L, -1325807483L, 2009731652L, -1836050895L, -1445355132L, -655932927L, -266941904L, -333903811L, 1486038024L, -1930654204L, -1214232503L, NA, 941383185L, 60822260L, -1227021150L, -164831154L, -1090234548L, -236629848L, -2053574219L, -143880400L, -1980939892L, -1907130300L, 816113447L, -792234608L, -875766596L, -1322490826L, -1000936260L, -1032065973L, 1764612343L, -2141701199L, -48047923L, -380805707L, 439972299L, 1708524074L, 753854190L, 1775385298L, -15545985L, 1778724967L, 654849297L, 1452459632L, -868795599L, 222124857L, 725690517L, 325216018L, 1949405918L, 918701661L, -881103327L, NA), x = c(2.6418255479042e+85, 6.07873525587314e-251, -4.59496552839096e-76, 4.79262697592702e+176, 4.30861760173751e+137, -5.57029530620198e-132, 1.18609923591999e+145, 3.0780499668069e-188, 1.9692951427735e+149, 1.22968162162933e+166, 3.42600588934252e+134, -8.12928883376752e+53, -1.06100393021654e-204, 2.38737072127253e+60, 2.30146283245002e-283, -Inf, 1.84849990736347e+132, -3.7645496125776e-58, NaN, -1.42641477407811e-85, -3.65128110239489e+95, 1.14665263843998e+197, 6.53626777066896e+173, -7.53121526436136e-194, -4.13417458979099e+95, -1.9711153367173e-118, -1.04954177401165e+265, 6.50134101905189e-92, -256985985604.01, 1.18609923591999e+145, 2.13742218979633e-135, 8.32217483209601e+73, -4.03976361621628e-231, NA, 1.16105830823157e-296, 6.02621439200311e-117, 8.52493453349611e-267, -3.31112584039748e-28, 1.97145268229036e+267, -6.45517924440172e-18, -4.27827418540752e+289, -2.80040090197631e-109, -1.17243978706259e-105, 3.36421367032313e-16, 1.70915652178292e-243, 3.49351263005719e-230, -9.9032330303416e+232, -4.64727168508508e-284, -7.65114924609716e-196, -1.13483669278294e+137, 4.09950044746732e-281, 0))
result <- do.call(FeatureHashing:::pair_sort, testlist)

Analyzed functions summary

function name tested inputs inputs with issues
h 3 0
h2 3 3
intToRaw 3 0
merge 3 2
pair_sort 3 3
xi 3 0

Report details

  • Report generated by: b4ff8a5
  • Inputs generator seed: 1662467937

@wush978
Copy link
Owner

wush978 commented Oct 28, 2022

Thanks. I'll arrange sometimes to take a look.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

2 participants