#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):

 {{{
 <Mitch_Bradley> pgf: step down into new-dirent and see what it is unhappy
 about
 <Mitch_Bradley> pgf: I suppose it's possible that a side effect of the
 initial $find-file messed up something
 }}}

 {{{
 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\bar 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 12 )
 new-dirent              d
 : new-dirent              ( ff9d0131 9 ff9d003a 4 12 )
 >r                        ( ff9d0131 9 ff9d003a 4 )
 dup                       ( ff9d0131 9 ff9d003a 4 4 )
 >reclen                   ( ff9d0131 9 ff9d003a 4 c )
 no-dir-space?             ( ff9d0131 9 ff9d003a 4 ffffffff )
 if                        ( ff9d0131 9 ff9d003a 4 )
 bsize                     ( ff9d0131 9 ff9d003a 4 400 )
 append-block              ( ff9d0131 9 ff9d003a 4 400 )
 lblk#++                   ( ff9d0131 9 ff9d003a 4 400 )
 get-dirblk                ( ff9d0131 9 ff9d003a 4 400 ffffffff )
 if                        ( ff9d0131 9 ff9d003a 4 400 )
 r>                        ( ff9d0131 9 ff9d003a 4 400 12 )
 4drop                     ( ff9d0131 9 )
 true                      ( ff9d0131 9 ffffffff )
 ;
 Can't rename file
 ok
 }}}

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