slackware-current/source/d/p2c/p2c_1.21alpha2-2.1.diff

--- p2c-1.21alpha2.orig/debian/README.Debian
+++ p2c-1.21alpha2/debian/README.Debian
@@ -0,0 +1,54 @@
+p2c for Debian
+--------------
+
+You should be aware that p2c is not perfect in converting Pascal sources
+to C, and it won't make the best C code.
+
+Also if you notice that your translated C program won't compile because
+of an undefined reference to PASCAL_MAIN function, just comment that line
+from the C file and it should work.
+
+Here are some words from src/INSTALL file that could be of some use:
+
++++
+
+  Incomplete interface texts for standard Turbo units are included in
+  turbo.imp.  Turbo users will have to flesh these out and write emulations
+  for whatever parts of the Turbo runtime library they need.
+
+  If you wish to edit various system-wide configuration parameters, it is
+  better to put them in loc.p2crc than in sys.p2crc.  As an example, on a
+  Turbo-oriented environment you may wish to add
+
+      Language Turbo
+
+  to the loc.p2crc file to replace the normal default (HP Pascal).
+
+  PORTABILITY
+
+  P2c was originally developed on a homebrew C compiler on the HP Pascal
+  Workstation operating system.  Current development takes place on HP-UX,
+  which is System V based.  The translator has also been compiled and used
+  on Sun-3's, so presumably it is fairly portable among 32-bit Unix machines.
+
+  Many parts of the code will have to be adjusted in order for p2c to work
+  on a machine with 16-bit ints.  I have never had reason or opportunity to
+  track these down since I don't have access to such a machine.  Please note
+  that code _generated_ by p2c works with either size of int even though p2c
+  itself does not.
+
+  If your compiler supports ANSI prototypes, most of the 16-bit portability
+  problems will go away except for possible %d/%ld sloppiness in sprintf control
+  strings.  There may be places where p2c tries to cast a pointer into an
+  int, but I believe all such cases use longs consistently.  You will have
+  a problem if your long type is not large enough to store a pointer.
+
+  Because p2c was developed to run under Unix, it is sloppy about memory
+  allocation.  Some data structures are allocated but never freed.  Profiles
+  show that the waste is not too great in most cases, but if it is a problem
+  you may have to write a garbage collector (this shouldn't be too hard if you
+  only run the collector after translating each procedure).
+
++++
+
+ -- Josip Rodin <joy-packages@debian.org>, Mon, 28 Dec 1998 18:14:23 +0100
--- p2c-1.21alpha2.orig/debian/rules
+++ p2c-1.21alpha2/debian/rules
@@ -0,0 +1,46 @@
+#!/usr/bin/make -f
+# Derived from a dh_make example and Andrew Howell's rules file.
+
+#export DH_VERBOSE=1
+export DH_COMPAT=4
+
+CFLAGS := -g -Wall
+ifneq "$(findstring noopt,$(DEB_BUILD_OPTIONS))" ""
+CFLAGS += -O0
+else
+CFLAGS += -O2
+endif
+
+build: src/p2c
+src/p2c: src/p2c.h
+	$(MAKE) -C src OPT="$(CFLAGS)" LFLAGS="-s"
+
+clean:
+	dh_testdir
+	dh_testroot
+	$(MAKE) -C src clean
+	dh_clean
+
+binary-indep:
+# No architecture independant packages here.
+
+binary-arch: build
+	dh_testdir
+	dh_testroot
+	dh_clean -k
+	$(MAKE) -C src install PREFIX="$(CURDIR)/debian/p2c/usr"
+	dh_installdocs src/README src/NOTES
+	dh_installexamples examples/*
+	dh_installchangelogs src/HISTORY
+	dh_link usr/share/man/man1/p2c.1.gz usr/share/man/man1/p2cc.1.gz
+	dh_strip
+	dh_compress
+	dh_fixperms
+	dh_installdeb
+	dh_shlibdeps
+	dh_gencontrol
+	dh_md5sums
+	dh_builddeb
+
+binary: binary-indep binary-arch
+.PHONY: build clean binary-indep binary-arch binary
--- p2c-1.21alpha2.orig/debian/control
+++ p2c-1.21alpha2/debian/control
@@ -0,0 +1,26 @@
+Source: p2c
+Section: devel
+Priority: optional
+Maintainer: Josip Rodin <joy-packages@debian.org>
+Build-Depends: debhelper (>= 4)
+Standards-Version: 3.6.0
+
+Package: p2c
+Architecture: any
+Depends: ${shlibs:Depends}
+Suggests: gcc, gpc
+Description: Pascal to C translator
+ P2c is a tool for translating Pascal programs into C. The input
+ consists of a set of source files in any of the following Pascal
+ dialects: HP Pascal, Turbo/UCSD Pascal, DEC VAX Pascal, Oregon Software
+ Pascal/2, Macintosh Programmer's Workshop Pascal, Sun/Berkeley Pascal,
+ Texas Instruments Pascal, Apollo Domain Pascal. Modula-2 syntax is also
+ supported.
+ .
+ Output is a set of .c and .h files that comprise an equivalent program
+ in any of several dialects of C. Output code may be kept machine and
+ dialect-independent, or it may be targeted to a specific machine and
+ compiler. Most reasonable Pascal programs are converted into fully
+ functional C which will compile and run with no further modifications,
+ although p2c sometimes chooses to generate readable code at the expense
+ of absolute generality.
--- p2c-1.21alpha2.orig/debian/copyright
+++ p2c-1.21alpha2/debian/copyright
@@ -0,0 +1,25 @@
+This package was put together by Andrew Howell.
+The current maintainer is Josip Rodin <joy-packages@debian.org>.
+
+The original source can be found at:
+	http://www.synaptics.com/people/daveg/
+
+p2c's author is Dave Gillespie <daveg@synaptics.com>.
+
+Copyright 1989-1993  Free Software Foundation, Inc.
+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; version 2 dated June, 1991.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program;  if not, write to the Free Software Foundation,
+   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+On Debian systems, the complete text of the GNU General Public License
+can be found in the file /usr/share/common-licenses/GPL.
--- p2c-1.21alpha2.orig/debian/changelog
+++ p2c-1.21alpha2/debian/changelog
@@ -0,0 +1,52 @@
+p2c (1.21alpha2-2.1) unstable; urgency=low
+
+  * Non-maintainer upload (0-day)
+  * Applied patch by Peter De Wachter that fixes double memory free()'s
+    (Closes: #305412, #307706)
+
+ -- Roland Stigge <stigge@antcom.de>  Thu,  5 May 2005 16:04:37 +0200
+
+p2c (1.21alpha2-2) unstable; urgency=low
+
+  * Added debhelper to build-depends, closes: #190499.
+  * Updated package standards.
+
+ -- Josip Rodin <joy-packages@debian.org>  Sat, 16 Aug 2003 13:02:10 +0200
+
+p2c (1.21alpha2-1) unstable; urgency=low
+
+  * New upstream version. Although it is marked as "alpha", it has been
+    made in 1993, so... :) (closes: #39400)
+  * Updated for Policy 3.x, rewrote most of debian/* and made a better
+    src/Makefile patch.
+
+ -- Josip Rodin <jrodin@jagor.srce.hr>  Sat, 11 Sep 1999 23:34:19 +0200
+
+p2c (1.20-3) unstable; urgency=low
+
+  * Removed `-m486 -fomit-frame-pointer' from the gcc flags, since ix86
+    doesn't need it and it bugs m68k (and other ports).
+
+ -- Josip Rodin <jrodin@jagor.srce.hr>  Thu,  7 Jan 1999 19:01:32 +0100
+
+p2c (1.20-2) unstable; urgency=low
+
+  * Fixed the FSF address in copyright file
+
+ -- Josip Rodin <jrodin@jagor.srce.hr>  Tue, 29 Dec 1998 21:13:52 +0100
+
+p2c (1.20-1) unstable; urgency=low
+
+  * Initial Release for potato (2.2)
+  * Converted to new packaging format/standards
+
+ -- Josip Rodin <jrodin@jagor.srce.hr>  Mon, 28 Dec 1998 18:14:23 +0100
+
+Changes by Andrew Howell <andrew@it.com.au>:
+
+1.20-2:
+ 951123
+ * Converted to ELF.
+
+1.20-1:
+ * added Debian GNU/Linux package maintenance system files
--- p2c-1.21alpha2.orig/src/Makefile
+++ p2c-1.21alpha2/src/Makefile
@@ -19,22 +19,23 @@
 SHELL = /bin/sh
 
 # Directories (private version)
-HOMEDIR = ../home
-INCDIR = ../home/p2c
-BINDIR = ..
-LIBDIR = ../home
-MANDIR = ../home
-MANFILE = p2c.cat          # human-readable manual (for cat.1)
+#HOMEDIR = ../home
+#INCDIR = ../home/p2c
+#BINDIR = ..
+#LIBDIR = ../home
+#MANDIR = ../home
+#MANFILE = p2c.cat          # human-readable manual (for cat.1)
 #MANFILE = p2c.man.inst    # uncompressed nroff source (for man.1)
 #MANFILE = p2c.man.Z       # compressed nroff source (for man.1.Z)
 
 # Directories (public version)
-#HOMEDIR = /usr/lib/p2c
-#INCDIR = /usr/include/p2c
-#BINDIR = /usr/bin
-#LIBDIR = /usr/lib
-#MANDIR = /usr/man/man1
-#MANFILE = p2c.man.inst
+PREFIX = /usr
+HOMEDIR = $(PREFIX)/lib/p2c
+INCDIR = $(PREFIX)/include/p2c
+BINDIR = $(PREFIX)/bin
+LIBDIR = $(PREFIX)/lib
+MANDIR = $(PREFIX)/share/man/man1
+MANFILE = p2c.man.inst
 
 # Compiler options
 CC = cc                    # you may wish to use gcc here instead
@@ -64,9 +65,9 @@
 LIBOBJS = p2clib.o loc.p2clib.o
 OTHERLIBOBJS =
 
-ABSHOMEDIR = `cd $(HOMEDIR); pwd`
-ABSINCDIR = `cd $(INCDIR); pwd`
-ABSLIBDIR = `cd $(LIBDIR); pwd`
+ABSHOMEDIR = /usr/lib/p2c
+ABSINCDIR = /usr/include/p2c
+ABSLIBDIR = /usr/lib
 
 MISCSRCS = makeproto.c
 PROTOS = p2c.proto p2c.hdrs
@@ -161,11 +162,11 @@
 
 SHELL=/bin/sh
 makedirs:
-	if [ ! -d $(HOMEDIR) ]; then mkdir $(HOMEDIR); else true; fi
-	if [ ! -d $(BINDIR) ]; then mkdir $(BINDIR); else true; fi
-	if [ ! -d $(LIBDIR) ]; then mkdir $(LIBDIR); else true; fi
-	if [ ! -d $(MANDIR) ]; then mkdir $(MANDIR); else true; fi
-	if [ ! -d $(INCDIR) ]; then mkdir $(INCDIR); else true; fi
+	if [ ! -d $(HOMEDIR) ]; then mkdir -p $(HOMEDIR); else true; fi
+	if [ ! -d $(BINDIR) ]; then mkdir -p $(BINDIR); else true; fi
+	if [ ! -d $(LIBDIR) ]; then mkdir -p $(LIBDIR); else true; fi
+	if [ ! -d $(MANDIR) ]; then mkdir -p $(MANDIR); else true; fi
+	if [ ! -d $(INCDIR) ]; then mkdir -p $(INCDIR); else true; fi
 
 $(BINDIR)/p2c: p2c
 	$(COPY)  p2c          $(BINDIR)/p2c
@@ -212,6 +213,7 @@
 
 clean:
 	rm -f $(OBJS) $(LIBOBJS) $(PROTOS) p2c libp2c.a
+	rm -f makeproto p2cc p2c.man.inst p2c.cat
 
 wc:
 	wc $(SRCS) $(LIBSRCS) trans.h
--- p2c-1.21alpha2.orig/src/decl.c
+++ p2c-1.21alpha2/src/decl.c
@@ -789,8 +789,10 @@
 		mpp2 = &mp2->snext;
 	    if (mp2)
 		*mpp2 = mp2->snext;
+#if 0
 	    if (mp->kind == MK_CONST)
 		free_value(&mp->val);
+#endif
 	    freeexpr(mp->constdefn);
 	    if (mp->cbase)
 		forget_ctx(mp, 1);
--- p2c-1.21alpha2.orig/src/parse.c
+++ p2c-1.21alpha2/src/parse.c
@@ -4642,8 +4642,10 @@
 	}
     }
     if (conserve_mem) {
+#if 0
 	free_stmt((Stmt *)func->val.i);   /* is this safe? */
 	func->val.i = 0;
+#endif
 	forget_ctx(func, 0);
     }
     outsection(spacing);