![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to prim CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to prim CVS log | Up to [gforth] / gforth |
| version 1.256, 2010/09/01 16:52:12 | version 1.258, 2011/10/18 13:13:53 |
|---|---|
| Line 1 | Line 1 |
| \ Gforth primitives | \ Gforth primitives |
| \ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2009 Free Software Foundation, Inc. | \ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2009,2010 Free Software Foundation, Inc. |
| \ This file is part of Gforth. | \ This file is part of Gforth. |
| Line 1804 if (a_addr1==NULL) | Line 1804 if (a_addr1==NULL) |
| else | else |
| a_addr2 = (Cell *)realloc(a_addr1, u); | a_addr2 = (Cell *)realloc(a_addr1, u); |
| wior = IOR(a_addr2==NULL); /* !! Define a return code */ | wior = IOR(a_addr2==NULL); /* !! Define a return code */ |
| if (a_addr2==NULL) | |
| a_addr2 = a_addr1; | |
| strerror ( n -- c_addr u ) gforth | strerror ( n -- c_addr u ) gforth |
| c_addr = (Char *)strerror(n); | c_addr = (Char *)strerror(n); |