Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix declaration for default integer type. Previously the type was

INTEGER but it should have been INTEGER4.
  • Loading branch information...
commit 98415352743722efbcba078dfe528f94f489ee8b 1 parent 8bea21e
rtoy authored
Showing with 8 additions and 4 deletions.
  1. +8 −4 src/f2cl/src/f2cl5.l
View
12 src/f2cl/src/f2cl5.l
@@ -50,7 +50,7 @@
(in-package :f2cl)
(defparameter *f2cl5-version*
- "$Id: f2cl5.l,v 1.203 2010/02/23 03:37:24 rtoy Exp $")
+ "$Id: f2cl5.l,v 1.204 2010/02/23 05:21:30 rtoy Exp $")
;; functions for setting up varaible declarations and initialisations
(eval-when (compile load eval)
@@ -2518,11 +2518,11 @@
`(declare (type ,type ,vble_name)))))
;; otherwise use default declaration
(t
- ;;(format t "default decl~%")
(let ((limit (when parameterp
`(,parameterp ,parameterp))))
+ ;;(format t "default decl ~A, limit = ~A~%" vble limit)
(if (default-int-p vble)
- `(declare (type (integer ,@limit) ,vble_name))
+ `(declare (type (integer4 ,@limit) ,vble_name))
`(declare (type (,(maybe-promote-type 'single-float) ,@limit) ,vble_name)))))))))
(defun make-char-decl (decl type)
@@ -3850,8 +3850,12 @@
;;;-----------------------------------------------------------------------------
;;; end of f2cl5.l
;;;
-;;; $Id: f2cl5.l,v 1.203 2010/02/23 03:37:24 rtoy Exp $
+;;; $Id: f2cl5.l,v 1.204 2010/02/23 05:21:30 rtoy Exp $
;;; $Log: f2cl5.l,v $
+;;; Revision 1.204 2010/02/23 05:21:30 rtoy
+;;; Fix declaration for default integer type. Previously the type was
+;;; INTEGER but it should have been INTEGER4.
+;;;
;;; Revision 1.203 2010/02/23 03:37:24 rtoy
;;; Add :PROMOTE-TO-DOUBLE option to promote all single precision
;;; variables and constants to double precision.
Please sign in to comment.
Something went wrong with that request. Please try again.