/[gcl]/gcl/pargcl/src/mpi_glue.lsp
ViewVC logotype

Diff of /gcl/pargcl/src/mpi_glue.lsp

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

revision 1.3 by gene, Mon Oct 31 08:10:45 2005 UTC revision 1.4 by gene, Wed Nov 2 16:22:03 2005 UTC
# Line 402  $ static int MPI_Any_Tag () { return MPI Line 402  $ static int MPI_Any_Tag () { return MPI
402              (if (>= source (MPI-World-size))              (if (>= source (MPI-World-size))
403                (error "source ~a is larger than maximum rank of processes"                (error "source ~a is larger than maximum rank of processes"
404                       source))                       source))
405              (if (< source 0)              (if (and (< source 0) (/= source (MPI-Any-source)))
406                (error "source ~a is negative" source))                (error "source ~a is negative" source))
407              (setq datatype (or (cdr (assoc datatype *type-lisp-to-mpi*))              (setq datatype (or (cdr (assoc datatype *type-lisp-to-mpi*))
408                          (error "buf is array of bad elt. type: ~a~%  ~                          (error "buf is array of bad elt. type: ~a~%  ~
# Line 427  $ static int MPI_Any_Tag () { return MPI Line 427  $ static int MPI_Any_Tag () { return MPI
427     msg is placed in array up to length of msg;  if array has     msg is placed in array up to length of msg;  if array has
428     a fill-pointer, the fill-pointer is set to actual msg length.")     a fill-pointer, the fill-pointer is set to actual msg length.")
429    
430    ;; Can't check source since used in startup before (MPI-World-size) defined
431  (defglue  (defglue
432    (MPI-Probe (&optional (source (MPI-Any-source)) (tag (MPI-Any-tag))))    (MPI-Probe (&optional (source (MPI-Any-source)) (tag (MPI-Any-tag))))
433    (MPI-Probe-glue source tag)    (MPI-Probe-glue source tag)
# Line 438  $ static int MPI_Any_Tag () { return MPI Line 439  $ static int MPI_Any_Tag () { return MPI
439     side-effects status variable; (apropos \"MPI-Status\") for more info.")     side-effects status variable; (apropos \"MPI-Status\") for more info.")
440    
441  (defglue  (defglue
442    (MPI-Iprobe (&optional (source (MPI-Any-source)) (tag (MPI-Any-tag))))    (MPI-Iprobe (&optional (source (MPI-Any-source)) (tag (MPI-Any-tag)))
443          (if (>= source (MPI-World-size))
444            (error "source ~a is larger than maximum rank of processes" source))
445          (if (and (< source 0) (/= source (MPI-Any-source)))
446            (error "source ~a is negative" source)))
447    (MPI-Iprobe-glue source tag)    (MPI-Iprobe-glue source tag)
448    ((object "MPI_Iprobe_glue") (int source) (int tag))    ((object "MPI_Iprobe_glue") (int source) (int tag))
449    ("int flag"    ("int flag"

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

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