bugnyacc parser generator - Bugs: bug #63798, pointer-to double may not work

 
 

bug #63798: pointer-to double may not work

Submitter:  Matt Wette <mwette>
Submitted:  Sun 12 Feb 2023 11:09:46 PM UTC
   
 
Category:  None Severity:  3 - Normal
Item Group:  None Status:  In Progress
Privacy:  Public Assigned to:  mwette
Open/Closed:  Open
* Mandatory Fields

Add a New Comment Rich Markup
   

Fri 15 Sep 2023 12:58:15 PM UTC, comment #2: 

ignore previous comment - meant for another bug

Matt Wette <mwette>
Group administrator
Fri 15 Sep 2023 12:57:05 PM UTC, comment #1: 

The problem is in ffi-help.scm,  This routine assumes typerefs have been expanded, which apparently they are not.  I need to work that.

;; assumes fields are unitized
(define (bounding-mtail-for-union-fields fields)
  (let loop ((btail #f) (mxsz 0) (mxal 0) (flds fields))
    (if (null? flds) btail
(let ((mtail (cdr (udecl->mdecl (car flds)))))
  (call-with-values (lambda () (sizeof-mtail mtail (udict)))
    (lambda (sz al)
      (if (> sz mxsz)
  (loop mtail sz (max al mxal) (cdr flds))
  (loop btail mxsz (max al mxal) (cdr flds)))))))))

Matt Wette <mwette>
Group administrator
Sun 12 Feb 2023 11:09:46 PM UTC, original submission:  

With nyacc-1.08 i'm getting 0.0 for this but should something else.  That's telling me I'm broken somewhere:

(let ((ux (make-double)) (uy (make-double)))
  (cairo_device_to_user_distance dpy-cr (pointer-to ux) (pointer-to uy))
  (sferr "ux=~S yu=~S\n" (fh-object-ref ux) (fh-object-ref uy)))

Matt Wette <mwette>
Group administrator

 

(Note: upload size limit is set to 16384 kB, after insertion of the required escape characters.)

Attach Files:
   
   
Comment:
   

No files currently attached

 

Depends on the following items: None found

Items that depend on this one: None found

 

Carbon-Copy List
  • -email is unavailable- added by mwette (Submitted the item)
  •  

    There are 0 votes so far. Votes easily highlight which items people would like to see resolved in priority, independently of the priority of the item set by tracker managers.

    Only logged-in users can vote.

     

    Follow 2 latest changes.

    Date Changed by Updated Field Previous Value => Replaced by
    2024-03-10 mwette StatusNone In Progress
        Assigned toNone mwette

    Back to the top

    Powered by Savane 3.13-02a9.
    Corresponding source code