Commit e3bb5d64 authored by sewardj's avatar sewardj
Browse files

[project @ 2000-03-23 14:54:20 by sewardj]

Make Hugs compile on Win32 again after recent changes.  Also, rename
prelude.h to hugsbasictypes.h to avoid conflicts with includes/Prelude.h.
parent 0b0ee1f3
......@@ -9,11 +9,11 @@
* included in the distribution.
*
* $RCSfile: codegen.c,v $
* $Revision: 1.19 $
* $Date: 2000/03/22 18:14:22 $
* $Revision: 1.20 $
* $Date: 2000/03/23 14:54:20 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -11,11 +11,11 @@
* included in the distribution.
*
* $RCSfile: compiler.c,v $
* $Revision: 1.23 $
* $Date: 2000/03/15 23:27:16 $
* $Revision: 1.24 $
* $Date: 2000/03/23 14:54:20 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -9,11 +9,11 @@
* included in the distribution.
*
* $RCSfile: derive.c,v $
* $Revision: 1.13 $
* $Date: 2000/03/13 11:37:16 $
* $Revision: 1.14 $
* $Date: 2000/03/23 14:54:20 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -9,11 +9,11 @@
* included in the distribution.
*
* $RCSfile: dynamic.c,v $
* $Revision: 1.14 $
* $Date: 2000/03/10 20:03:36 $
* $Revision: 1.15 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "errors.h"
#include "connect.h"
......
......@@ -9,11 +9,11 @@
* included in the distribution.
*
* $RCSfile: free.c,v $
* $Revision: 1.10 $
* $Date: 2000/03/13 11:37:16 $
* $Revision: 1.11 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -9,15 +9,15 @@
* included in the distribution.
*
* $RCSfile: hugs.c,v $
* $Revision: 1.46 $
* $Date: 2000/03/22 18:14:22 $
* $Revision: 1.47 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include <setjmp.h>
#include <ctype.h>
#include <stdio.h>
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -9,9 +9,9 @@
* free software under the license in the file "License", which is
* included in the distribution.
*
* $RCSfile: prelude.h,v $
* $Revision: 1.11 $
* $Date: 2000/03/22 18:14:23 $
* $RCSfile: hugsbasictypes.h,v $
* $Revision: 1.1 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#define NON_POSIX_SOURCE
......
......@@ -9,11 +9,11 @@
* included in the distribution.
*
* $RCSfile: input.c,v $
* $Revision: 1.22 $
* $Date: 2000/03/22 18:14:22 $
* $Revision: 1.23 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -7,11 +7,11 @@
* Hugs version 1.4, December 1997
*
* $RCSfile: interface.c,v $
* $Revision: 1.41 $
* $Date: 2000/03/23 12:19:22 $
* $Revision: 1.42 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......@@ -2618,9 +2618,9 @@ Type type; {
Sym(setmode) \
SymX(system) \
SymX(sleep) \
Sym(__imp__tzname) \
Sym(__imp__timezone) \
Sym(tzset) \
SymX(__imp__tzname) \
SymX(__imp__timezone) \
SymX(tzset) \
Sym(log) \
Sym(exp) \
Sym(sqrt) \
......
......@@ -12,11 +12,11 @@
* included in the distribution.
*
* $RCSfile: lift.c,v $
* $Revision: 1.12 $
* $Date: 2000/03/22 18:14:22 $
* $Revision: 1.13 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -9,11 +9,11 @@
* included in the distribution.
*
* $RCSfile: link.c,v $
* $Revision: 1.53 $
* $Date: 2000/03/22 18:14:22 $
* $Revision: 1.54 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -10,11 +10,11 @@
* included in the distribution.
*
* $RCSfile: output.c,v $
* $Revision: 1.16 $
* $Date: 2000/03/13 11:37:16 $
* $Revision: 1.17 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -9,11 +9,11 @@
* included in the distribution.
*
* $RCSfile: static.c,v $
* $Revision: 1.31 $
* $Date: 2000/03/22 18:14:23 $
* $Revision: 1.32 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -9,11 +9,11 @@
* included in the distribution.
*
* $RCSfile: stg.c,v $
* $Revision: 1.14 $
* $Date: 2000/03/13 11:37:17 $
* $Revision: 1.15 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -9,11 +9,11 @@
* included in the distribution.
*
* $RCSfile: stgSubst.c,v $
* $Revision: 1.7 $
* $Date: 2000/03/10 20:03:36 $
* $Revision: 1.8 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -9,11 +9,11 @@
* included in the distribution.
*
* $RCSfile: storage.c,v $
* $Revision: 1.52 $
* $Date: 2000/03/22 18:14:23 $
* $Revision: 1.53 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -10,8 +10,8 @@
* included in the distribution.
*
* $RCSfile: storage.h,v $
* $Revision: 1.35 $
* $Date: 2000/03/22 18:14:23 $
* $Revision: 1.36 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#define DEBUG_STORAGE
......@@ -63,7 +63,7 @@ typedef Cell ConVarId;
* TAG_PTR_MIN(200) .. TAG_PTR_MAX(298) pointer tags
* TAG_SPEC_MIN(400) .. TAG_SPEC_MAX(425) special tags
* OFF_MIN(1,000) .. OFF_MAX(1,999) offsets
* CHAR_MIN(3,000) .. CHAR_MAX(3,255) chars
* CHARR_MIN(3,000) .. CHARR_MAX(3,255) chars
*
* SMALL_INT_MIN(100,000) .. SMALL_INT_MAX(499,999) smallish ints
* (300,000 denotes 0)
......@@ -889,11 +889,11 @@ extern Class findQualClassWithoutConsultingExportList ( QualId q );
* ------------------------------------------------------------------------*/
/* I think this assumes that NUM_CHARS==256. */
#define CHAR_MIN 3000
#define CHAR_MAX 3255
#define isChar(c) (CHAR_MIN<=(c) && (c)<=CHAR_MAX)
#define charOf(c) ((Char)((c)-CHAR_MIN))
#define mkChar(c) (CHAR_MIN+(((Cell)(c)) & 0xFF))
#define CHARR_MIN 3000
#define CHARR_MAX 3255
#define isChar(c) (CHARR_MIN<=(c) && (c)<=CHARR_MAX)
#define charOf(c) ((Char)((c)-CHARR_MIN))
#define mkChar(c) (CHARR_MIN+(((Cell)(c)) & 0xFF))
#define MAXCHARVAL (NUM_CHARS-1)
/* --------------------------------------------------------------------------
......
......@@ -10,11 +10,11 @@
* included in the distribution.
*
* $RCSfile: subst.c,v $
* $Revision: 1.16 $
* $Date: 2000/03/22 18:14:23 $
* $Revision: 1.17 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -10,11 +10,11 @@
* included in the distribution.
*
* $RCSfile: translate.c,v $
* $Revision: 1.29 $
* $Date: 2000/03/13 14:11:14 $
* $Revision: 1.30 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
......@@ -9,11 +9,11 @@
* included in the distribution.
*
* $RCSfile: type.c,v $
* $Revision: 1.30 $
* $Date: 2000/03/13 11:37:17 $
* $Revision: 1.31 $
* $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
#include "hugsbasictypes.h"
#include "storage.h"
#include "connect.h"
#include "errors.h"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment