Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10880/src/lib
Modified Files:
ExtStruct.f
Log Message:
Jos: Removed the unneeded allignment.
Index: ExtStruct.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ExtStruct.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** ExtStruct.f 19 Apr 2006 11:11:25 -0000 1.6
--- ExtStruct.f 19 Apr 2006 12:53:18 -0000 1.7
***************
*** 170,176 ****
\ create a struct in the dictionary and fill it with zero's
! \ 19-4-2006 aligned the memory structures.
: mkstruct: ( size-struct <-name-> -- )
! here dup aligned - allot create here over allot swap erase ;
in-application
--- 170,176 ----
\ create a struct in the dictionary and fill it with zero's
! \ Note create alignes the memory structures.
: mkstruct: ( size-struct <-name-> -- )
! create here over allot swap erase ;
in-application
|
