Ticket #585: 0001-support-int32-as-foreign-argument-type.patch

File 0001-support-int32-as-foreign-argument-type.patch, 819 bytes (added by Jim Ursetto, 13 years ago)

  • c-backend.scm 

    From 73d7bd75240099f698bc8d8b4f7493e365a2d571 Mon Sep 17 00:00:00 2001
From: zbigniew <zbigniewsz@gmail.com>
Date: Mon, 30 May 2011 14:25:23 -0500
Subject: [PATCH] support int32 as foreign argument type

---
 c-backend.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/c-backend.scm b/c-backend.scm
index e4358db..1d04f01 100644
    a b  
    12491249    (case type
    12501250      ((scheme-object) "(")
    12511251      ((char unsigned-char) "C_character_code((C_word)")
    1252       ((byte int unsigned-int unsigned-int32 unsigned-byte) "C_unfix(")
     1252      ((byte int int32 unsigned-int unsigned-int32 unsigned-byte) "C_unfix(")
    12531253      ((short) "C_unfix(")
    12541254      ((unsigned-short) "(unsigned short)C_unfix(")
    12551255      ((unsigned-long) "C_num_to_unsigned_long(")