"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/compiler/rtl-string.bas" between
FreeBASIC-1.07.0-source.tar.gz and FreeBASIC-1.07.1-source.tar.gz

About: FreeBasic is a set of cross-platform development tools consisting of a compiler, GNU-based assembler, linker and archiver, and supporting runtime libraries, including a software-based graphics library.

rtl-string.bas  (FreeBASIC-1.07.0-source):rtl-string.bas  (FreeBASIC-1.07.1-source)
skipping to change at line 2541 skipping to change at line 2541
end if end if
'' byval dstlen as integer '' byval dstlen as integer
if( astNewARG( proc, astNewCONSTi( lgt ) ) = NULL ) then if( astNewARG( proc, astNewCONSTi( lgt ) ) = NULL ) then
exit function exit function
end if end if
'' always calc len before pushing the param '' always calc len before pushing the param
lgt = rtlCalcStrLen( src, sdtype ) lgt = rtlCalcStrLen( src, sdtype )
'' src as any '' src as const any
if( astNewARG( proc, src, astGetDataType( src ) ) = NULL ) then if( astNewARG( proc, src ) = NULL ) then
exit function exit function
end if end if
'' byval srclen as integer '' byval srclen as integer
if( astNewARG( proc, astNewCONSTi( lgt ) ) = NULL ) then if( astNewARG( proc, astNewCONSTi( lgt ) ) = NULL ) then
exit function exit function
end if end if
'' byval fillrem as integer '' byval fillrem as integer
if( astNewARG( proc, astNewCONSTi( ddtype = FB_DATATYPE_FIXSTR ) ) = NULL ) then if( astNewARG( proc, astNewCONSTi( ddtype = FB_DATATYPE_FIXSTR ) ) = NULL ) then
 End of changes. 1 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)