Diff for /gforth/libcc.fs between versions 1.29 and 1.31

version 1.29, 2008/02/12 16:44:58 version 1.31, 2008/04/19 19:15:14
Line 372  create gen-par-types Line 372  create gen-par-types
     ." ," gen-par-n ." ," gen-par-n ." )" ;      ." ," gen-par-n ." ," gen-par-n ." )" ;
   
 : gen-wrapped-r ( pars c-name fp-change1 sp-change1 -- fp-change sp-change )  : gen-wrapped-r ( pars c-name fp-change1 sp-change1 -- fp-change sp-change )
     2dup gen-par-r 2>r ." =" gen-wrapped-void 2r> ;      2dup gen-par-r 2>r ." =" gen-wrapped-call 2r> ;
   
 : gen-wrapped-func ( pars c-name fp-change1 sp-change1 -- fp-change sp-change )  : gen-wrapped-func ( pars c-name fp-change1 sp-change1 -- fp-change sp-change )
     gen-wrapped-a ;      gen-wrapped-a ;
Line 444  create gen-wrapped-types Line 444  create gen-wrapped-types
 : .lib-error ( -- )  : .lib-error ( -- )
     [ifdef] lib-error      [ifdef] lib-error
         ['] cr stderr outfile-execute          ['] cr stderr outfile-execute
         lib-error ['] type outfile-execute          lib-error ['] type stderr outfile-execute
     [then] ;      [then] ;
   
 DEFER compile-wrapper-function  DEFER compile-wrapper-function
Line 462  DEFER compile-wrapper-function Line 462  DEFER compile-wrapper-function
     lib-filename 2@ append s" .la" append ( c-addr u )      lib-filename 2@ append s" .la" append ( c-addr u )
     2dup system drop free throw $? abort" libtool link failed"      2dup system drop free throw $? abort" libtool link failed"
     lib-filename 2@ s" .la" s+      lib-filename 2@ s" .la" s+
   \    2dup type cr
     2dup open-lib dup 0= if      2dup open-lib dup 0= if
         .lib-error true abort" open-lib failed"          .lib-error true abort" open-lib failed"
     endif      endif

Removed from v.1.29  
changed lines
  Added in v.1.31


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>