Ticket #2180: 2180.patch

File 2180.patch, 0.6 KB (added by bubaflub, 22 months ago)

quick patch for examples/nci/ls.pir

  • examples/nci/ls.pir 

    diff --git a/examples/nci/ls.pir b/examples/nci/ls.pir
index 182e5be..10ca98b 100644
    a b  
    2020     .local pmc opendir 
    2121     .local pmc readdir 
    2222     .local pmc closedir 
     23 
     24     load_bytecode 'NCI/Utils.pbc' 
     25     $P1 = get_root_global ['parrot';'NCI';'Utils'], 'dlfancy' 
     26 
    2327     libc = loadlib 'libc' 
    24      dlfunc opendir, libc, 'opendir', 'pt' 
     28     opendir = $P1(libc, 'opendir', 'pt') 
    2529     dlfunc readdir, libc, 'readdir', 'pp' 
    2630     dlfunc closedir, libc, 'closedir', 'ip' 
    2731     .local pmc curdir