Skip to content

R
riscv-gcc-1
Commit 43ad1f80 by Richard Henderson
Options

Typo applying the last patch. 

From-SVN: r17415
parent 94f09d6b
Showing with 1 additions and 1 deletions
gcc/f/runtime/libI77/backspace.c
...@@ -47,7 +47,7 @@ integer f_back(alist *a) ...@@ -47,7 +47,7 @@ integer f_back(alist *a)
if(b->ufmt==0) if(b->ufmt==0)
{ (void) fseek(b->ufd,-(long)sizeof(uiolen),SEEK_CUR); { (void) fseek(b->ufd,-(long)sizeof(uiolen),SEEK_CUR);
(void) fread((char *)&n,sizeof(int),1,b->ufd); (void) fread((char *)&n,sizeof(uiolen),1,b->ufd);
(void) fseek(b->ufd,-(long)n-2*sizeof(uiolen),SEEK_CUR); (void) fseek(b->ufd,-(long)n-2*sizeof(uiolen),SEEK_CUR);
return(0); return(0);
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment