Changeset 26963 in project


Ignore:
Timestamp:
06/30/12 15:14:00 (8 years ago)
Author:
sjamaan
Message:

packedobjects: Fix #828 by changing null-pointer check to #f check

Location:
release/4/packedobjects/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/packedobjects/trunk/packedobjects.scm

    r19477 r26963  
    171171  (define pdu-buf (allocate pdusize))
    172172 
    173   (if (null-pointer? pdu-buf) (error "malloc failed for" pdusize))
     173  (unless pdu-buf (error "malloc failed for" pdusize))
    174174 
    175175  (define str-buf (make-string strsize))
     
    191191      ('unpack (unpack-pdu))
    192192      ('free
    193        (unless (null-pointer? pdu-buf)
     193       (when pdu-buf
    194194         (free pdu-buf)
    195          (set! pdu-buf (null-pointer))))
     195         (set! pdu-buf #f)))
    196196      ('dump-buffer (c-dump-buffer (car args) pdu-buf (cadr args)))
    197197      ('write (c-write-data (car args) pdu-buf (cadr args)))
  • release/4/packedobjects/trunk/packedobjects.setup

    r19477 r26963  
    1313 'packedobjects
    1414 '("packedobjects.so" "packedobjects.import.so")
    15  '((version 0.77)))
     15 '((version 0.78)))
Note: See TracChangeset for help on using the changeset viewer.