/[gcl]/gcl/cmpnew/cmpinline.lsp
ViewVC logotype

Diff of /gcl/cmpnew/cmpinline.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by camm, Sat Jul 20 07:10:54 2002 UTC revision 1.3 by camm, Fri Aug 2 22:23:58 2002 UTC
# Line 502  Line 502 
502  (defun wt-inline-fixnum (side-effectp fun locs)  (defun wt-inline-fixnum (side-effectp fun locs)
503    (declare (ignore side-effectp))    (declare (ignore side-effectp))
504    (when (zerop *space*) (wt "CMP"))    (when (zerop *space*) (wt "CMP"))
505    (wt "make_fixnum(") (wt-inline-loc fun locs) (wt ")"))    (wt "make_fixnum((long)") (wt-inline-loc fun locs) (wt ")"))
506    
507  (defun wt-inline-integer (side-effectp fun locs)  (defun wt-inline-integer (side-effectp fun locs)
508    (declare (ignore side-effectp))    (declare (ignore side-effectp))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26