From owner-freebsd-ports-bugs@FreeBSD.ORG Tue Oct 4 08:20:28 2005 Return-Path: X-Original-To: freebsd-ports-bugs@hub.freebsd.org Delivered-To: freebsd-ports-bugs@hub.freebsd.org Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id 94B8B16A41F for ; Tue, 4 Oct 2005 08:20:28 +0000 (GMT) (envelope-from gnats@FreeBSD.org) Received: from freefall.freebsd.org (freefall.freebsd.org [216.136.204.21]) by mx1.FreeBSD.org (Postfix) with ESMTP id 4ABB743D5D for ; Tue, 4 Oct 2005 08:20:26 +0000 (GMT) (envelope-from gnats@FreeBSD.org) Received: from freefall.freebsd.org (gnats@localhost [127.0.0.1]) by freefall.freebsd.org (8.13.3/8.13.3) with ESMTP id j948KQYQ038849 for ; Tue, 4 Oct 2005 08:20:26 GMT (envelope-from gnats@freefall.freebsd.org) Received: (from gnats@localhost) by freefall.freebsd.org (8.13.3/8.13.1/Submit) id j948KQd0038848; Tue, 4 Oct 2005 08:20:26 GMT (envelope-from gnats) Resent-Date: Tue, 4 Oct 2005 08:20:26 GMT Resent-Message-Id: <200510040820.j948KQd0038848@freefall.freebsd.org> Resent-From: FreeBSD-gnats-submit@FreeBSD.org (GNATS Filer) Resent-To: freebsd-ports-bugs@FreeBSD.org Resent-Reply-To: FreeBSD-gnats-submit@FreeBSD.org, "Daniel O'Connor" Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id CBED616A41F for ; Tue, 4 Oct 2005 08:16:20 +0000 (GMT) (envelope-from radar@andenes.gsoft.com.au) Received: from andenes.gsoft.com.au (andenes.gsoft.com.au [203.31.81.46]) by mx1.FreeBSD.org (Postfix) with ESMTP id CD7B143D4C for ; Tue, 4 Oct 2005 08:16:19 +0000 (GMT) (envelope-from radar@andenes.gsoft.com.au) Received: from andenes.gsoft.com.au (localhost [127.0.0.1]) by andenes.gsoft.com.au (8.13.4/8.13.4) with ESMTP id j948GDbm073402 for ; Tue, 4 Oct 2005 08:16:13 GMT (envelope-from radar@andenes.gsoft.com.au) Received: (from radar@localhost) by andenes.gsoft.com.au (8.13.4/8.13.4/Submit) id j948GDOc073401; Tue, 4 Oct 2005 08:16:13 GMT (envelope-from radar) Message-Id: <200510040816.j948GDOc073401@andenes.gsoft.com.au> Date: Tue, 4 Oct 2005 08:16:13 GMT From: "Daniel O'Connor" To: FreeBSD-gnats-submit@FreeBSD.org X-Send-Pr-Version: 3.113 Cc: Subject: ports/86884: Fix f2c to work on 64 bit platforms X-BeenThere: freebsd-ports-bugs@freebsd.org X-Mailman-Version: 2.1.5 Precedence: list Reply-To: Daniel O'Connor List-Id: Ports bug reports List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 04 Oct 2005 08:20:28 -0000 >Number: 86884 >Category: ports >Synopsis: Fix f2c to work on 64 bit platforms >Confidential: no >Severity: serious >Priority: medium >Responsible: freebsd-ports-bugs >State: open >Quarter: >Keywords: >Date-Required: >Class: change-request >Submitter-Id: current-users >Arrival-Date: Tue Oct 04 08:20:25 GMT 2005 >Closed-Date: >Last-Modified: >Originator: Daniel O'Connor >Release: FreeBSD 6.0-BETA5 amd64 >Organization: >Environment: System: FreeBSD andenes.gsoft.com.au 6.0-BETA5 FreeBSD 6.0-BETA5 #0: Fri Sep 30 06:27:43 UTC 2005 radar@andenes.gsoft.com.au:/usr/obj/usr/src/sys/GENESIS amd64 >Description: >How-To-Repeat: >Fix: Use specific width types in f2c.h to handle assumptions about width. --- f2c.h.orig Tue Oct 4 05:38:52 2005 +++ f2c.h Tue Oct 4 08:05:43 2005 @@ -6,22 +6,23 @@ #ifndef F2C_INCLUDE #define F2C_INCLUDE +#include -typedef long int integer; -typedef unsigned long int uinteger; +typedef int32_t integer; +typedef uint32_t uinteger; typedef char *address; typedef short int shortint; typedef float real; typedef double doublereal; typedef struct { real r, i; } complex; typedef struct { doublereal r, i; } doublecomplex; -typedef long int logical; +typedef int32_t logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; #ifdef INTEGER_STAR_8 /* Adjust for integer*8. */ -typedef long long longint; /* system-dependent */ -typedef unsigned long long ulongint; /* system-dependent */ +typedef int64_t longint; /* system-dependent */ +typedef uint64_t ulongint; /* system-dependent */ #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) #define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) #endif @@ -42,9 +43,9 @@ typedef short ftnlen; typedef short ftnint; #else -typedef long int flag; -typedef long int ftnlen; -typedef long int ftnint; +typedef int32_t flag; +typedef int32_t ftnlen; +typedef int32_t ftnint; #endif /*external read, write*/ >Release-Note: >Audit-Trail: >Unformatted: