#9957 NORM 1.5-fir: ofw $rename word will create identically named files

[Zarro Boogs per Child]

#9957: ofw $rename word will create identically named files
-------------------------------------------+--------------------------------
           Reporter:  pgf                  |       Owner:  wmb at firmworks.com                 
               Type:  defect               |      Status:  assigned                          
           Priority:  normal               |   Milestone:  1.5-firmware                      
          Component:  ofw - open firmware  |     Version:  Development source as of this date
         Resolution:                       |    Keywords:                                    
        Next_action:  add to build         |    Verified:  0                                 
Deployment_affected:                       |   Blockedby:                                    
           Blocking:                       |  
-------------------------------------------+--------------------------------

Comment(by pgf):

 this time on a 4G internal SD:


 {{{
 ok copy int:\boot-versions\105\README int:\junk\foo
 ok dir int:\junk
 ext2-file-system
 ---drwxrwxrwx      1024  2010-01-07 23:18:16  .
 ---drwxr-xr-x      1024  2010-01-06 18:57:26  ..
 ----rw-rw-rw-      2380  2010-01-07 23:19:34  foo
 ok copy int:\junk\foo int:\junk\bar
 ok dev /ext2-file-system
 ok debug $hardlink
 Stepper keys: <space> Down Up Continue Forth Go Help ? See $tring Quit
 ok dend
 ok dir int:\junk
 ext2-file-system
 ---drwxrwxrwx      1024  2010-01-07 23:18:16  .
 ---drwxr-xr-x      1024  2010-01-06 18:57:26  ..
 ----rw-rw-rw-      2380  2010-01-07 23:19:34  foo
 ----rw-rw-rw-      2380  2010-01-07 23:19:51  bar
 ok rename int:\junk\foo int:\junk\bar2
 : $hardlink               ( ff9d0131 9 ff9d0131 9 ff9d003a 4 )
 2dup                      ( ff9d0131 9 ff9d0131 9 ff9d003a 4 ff9d003a 4 )
 $find-file                ( ff9d0131 9 ff9d0131 9 ff9d003a 4 ffffffff )
 0=                        ( ff9d0131 9 ff9d0131 9 ff9d003a 4 0 )
 if                        ( ff9d0131 9 ff9d0131 9 ff9d003a 4 )
 dirent-vars               ( ff9d0131 9 ff9d0131 9 ff9d003a 4 400 400 0 10
 )
 2>r                       ( ff9d0131 9 ff9d0131 9 ff9d003a 4 400 400 )
 2>r                       ( ff9d0131 9 ff9d0131 9 ff9d003a 4 )
 2swap                     ( ff9d0131 9 ff9d003a 4 ff9d0131 9 )
 $find-file                ( ff9d0131 9 ff9d003a 4 0 )
 if                        ( ff9d0131 9 ff9d003a 4 )
 wf-type                   ( ff9d0131 9 ff9d003a 4 1 )
 dir-type                  ( ff9d0131 9 ff9d003a 4 1 2 )
 =                         ( ff9d0131 9 ff9d003a 4 0 )
 if                        ( ff9d0131 9 ff9d003a 4 )
 2r>                       ( ff9d0131 9 ff9d003a 4 400 400 )
 2r>                       ( ff9d0131 9 ff9d003a 4 400 400 0 10 )
 restore-dirent            ( ff9d0131 9 ff9d003a 4 )
 wf-inum                   ( ff9d0131 9 ff9d003a 4 11 )
 new-dirent                ( ff9d0131 9 ffffffff )
 ;
 Can't rename file
 ok
 ok dir int:\junk
 ext2-file-system
 ---drwxrwxrwx      1024  2010-01-07 23:18:16  .
 ---drwxr-xr-x      1024  2010-01-06 18:57:26  ..
 ----rw-rw-rw-      2380  2010-01-07 23:19:34  foo
 ----rw-rw-rw-      2380  2010-01-07 23:19:51  bar
 ok
 }}}

-- 
Ticket URL: <http://dev.laptop.org/ticket/9957#comment:7>
One Laptop Per Child <http://laptop.org/>
OLPC bug tracking system