vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 00:32:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update bootstrap sources.

Browse source
This commit is contained in:
David Brown 2016-07-11 11:01:11 +01:00
parent 57cd40aa9d
commit f784a41f8f
201 changed files with 302 additions and 282 deletions
Download patch file Download diff file Expand all files Collapse all files

24
ReadMe.md
View file

@ -29,13 +29,13 @@ default libraries complying with the Oakwood Guidelines for Oberon-2 compilers.
###### Prerequisites ###### Prerequisites
| Platform | Packages | | Platform | Packages |
| --------- | ------------ | | --------- | ------------ |
| Debian/Ubuntu/Mint ... | apt-get install git | | Debian/Ubuntu/Mint ... | `apt-get install git` |
| Fedora/RHEL/CentOS ... | yum install git gcc glibc-static | | Fedora/RHEL/CentOS ... | `yum install git gcc glibc-static` |
| FreeBSD/OpenBSD/NetBSD | pkg install git | | FreeBSD/OpenBSD/NetBSD | `pkg install git` |
| Cygwin | use setup-x86[_x64] to add packages git, make and gcc-core | | Cygwin | use setup-x86[_x64] to add packages git, make and gcc-core |
| Darwin | run 'git' at the command line and accept the prompt to install it. | | Darwin | type 'git' at the command line and accept the prompt to install it. |
More details, including for MingW and MS C, in [Installation](/doc/Installation.md). More details, including for MingW and MS C, in [Installation](/doc/Installation.md).
@ -52,11 +52,11 @@ Since 'make full' will install the compiler and libraries, it needs root (unix)
Set your path to the installed compiler binary location as reported Set your path to the installed compiler binary location as reported
by make full, e.g. by make full, e.g.
| System | Set path | | System | Set path |
| --------- | -------------------------------------- | | --------- | -------------------------------------- |
| Linux | `export PATH="/opt/voc/bin:$PATH"` | | Linux | `export PATH="/opt/voc/bin:$PATH"` |
| BSD | `export PATH="/usr/local/share/voc/bin:$PATH"` | | BSD | `export PATH="/usr/local/share/voc/bin:$PATH"` |
| Windows | See [Installation](/doc/Installation.md) | | Windows | See [Installation](/doc/Installation.md) |
| Termux | `export PATH="/data/data/com.termux/files/opt/voc/bin:$PATH"` | | Termux | `export PATH="/data/data/com.termux/files/opt/voc/bin:$PATH"` |
Also see [Installation](/doc/Installation.md). Also see [Installation](/doc/Installation.md).

4
bootstrap/unix-44/Configuration.c
View file

@ -1,7 +1,8 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
export CHAR Configuration_versionLong[41];
@ -12,5 +13,6 @@ export void *Configuration__init(void)
__DEFMOD; __DEFMOD;
__REGMOD("Configuration", 0); __REGMOD("Configuration", 0);
/* BEGIN */ /* BEGIN */
__MOVE("1.95 [2016/07/11] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__ENDMOD; __ENDMOD;
} }

3
bootstrap/unix-44/Configuration.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Configuration__h #ifndef Configuration__h
#define Configuration__h #define Configuration__h
@ -6,6 +6,7 @@
#include "SYSTEM.h" #include "SYSTEM.h"
import CHAR Configuration_versionLong[41];
import void *Configuration__init(void); import void *Configuration__init(void);

2
bootstrap/unix-44/Console.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Platform.h" #include "Platform.h"

2
bootstrap/unix-44/Console.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Console__h #ifndef Console__h
#define Console__h #define Console__h

2
bootstrap/unix-44/Files.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Configuration.h" #include "Configuration.h"
#include "Console.h" #include "Console.h"

2
bootstrap/unix-44/Files.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tspkaSfF */
#ifndef Files__h #ifndef Files__h
#define Files__h #define Files__h

2
bootstrap/unix-44/Heap.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tskSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tskSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
struct Heap__1 { struct Heap__1 {

2
bootstrap/unix-44/Heap.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tskSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tskSfF */
#ifndef Heap__h #ifndef Heap__h
#define Heap__h #define Heap__h

2
bootstrap/unix-44/Modules.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Console.h" #include "Console.h"
#include "Heap.h" #include "Heap.h"

2
bootstrap/unix-44/Modules.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Modules__h #ifndef Modules__h
#define Modules__h #define Modules__h

2
bootstrap/unix-44/OPB.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "OPM.h" #include "OPM.h"
#include "OPS.h" #include "OPS.h"

2
bootstrap/unix-44/OPB.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPB__h #ifndef OPB__h
#define OPB__h #define OPB__h

4
bootstrap/unix-44/OPC.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Configuration.h" #include "Configuration.h"
#include "OPM.h" #include "OPM.h"
@ -1241,7 +1241,7 @@ static void OPC_GenHeaderMsg (void)
OPM_WriteString((CHAR*)"/*", (LONGINT)3); OPM_WriteString((CHAR*)"/*", (LONGINT)3);
OPM_WriteString((CHAR*)" voc ", (LONGINT)6); OPM_WriteString((CHAR*)" voc ", (LONGINT)6);
OPM_Write(' '); OPM_Write(' ');
OPM_WriteString((CHAR*)"1.95 [2016/06/30] for gcc LP64 on cygwin", (LONGINT)41); OPM_WriteString(Configuration_versionLong, ((LONGINT)(41)));
OPM_Write(' '); OPM_Write(' ');
i = 0; i = 0;
while (i <= 31) { while (i <= 31) {

2
bootstrap/unix-44/OPC.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPC__h #ifndef OPC__h
#define OPC__h #define OPC__h

4
bootstrap/unix-44/OPM.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Configuration.h" #include "Configuration.h"
#include "Console.h" #include "Console.h"
@ -198,7 +198,7 @@ BOOLEAN OPM_OpenPar (void)
if (Platform_ArgCount == 1) { if (Platform_ArgCount == 1) {
OPM_LogWLn(); OPM_LogWLn();
OPM_LogWStr((CHAR*)"Vishap Oberon-2 compiler v", (LONGINT)27); OPM_LogWStr((CHAR*)"Vishap Oberon-2 compiler v", (LONGINT)27);
OPM_LogWStr((CHAR*)"1.95 [2016/06/30] for gcc LP64 on cygwin", (LONGINT)41); OPM_LogWStr(Configuration_versionLong, ((LONGINT)(41)));
OPM_LogW('.'); OPM_LogW('.');
OPM_LogWLn(); OPM_LogWLn();
OPM_LogWStr((CHAR*)"Based on Ofront by Software Templ OEG, continued by Norayr Chilingarian and others.", (LONGINT)84); OPM_LogWStr((CHAR*)"Based on Ofront by Software Templ OEG, continued by Norayr Chilingarian and others.", (LONGINT)84);

2
bootstrap/unix-44/OPM.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPM__h #ifndef OPM__h
#define OPM__h #define OPM__h

2
bootstrap/unix-44/OPP.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "OPB.h" #include "OPB.h"
#include "OPM.h" #include "OPM.h"

2
bootstrap/unix-44/OPP.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPP__h #ifndef OPP__h
#define OPP__h #define OPP__h

9
bootstrap/unix-44/OPS.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "OPM.h" #include "OPM.h"
@ -127,7 +127,7 @@ static INTEGER Ord__7 (CHAR ch, BOOLEAN hex)
static void OPS_Number (void) static void OPS_Number (void)
{ {
INTEGER i, m, n, d, e; INTEGER i, m, n, d, e, maxHdig;
CHAR dig[24]; CHAR dig[24];
LONGREAL f; LONGREAL f;
CHAR expCh; CHAR expCh;
@ -182,8 +182,9 @@ static void OPS_Number (void)
} else if (OPS_ch == 'H') { } else if (OPS_ch == 'H') {
OPM_Get(&OPS_ch); OPM_Get(&OPS_ch);
OPS_numtyp = 2; OPS_numtyp = 2;
if (n <= 8) { maxHdig = 8;
if ((n == 8 && dig[0] > '7')) { if (n <= maxHdig) {
if ((n == maxHdig && dig[0] > '7')) {
OPS_intval = -1; OPS_intval = -1;
} }
while (i < n) { while (i < n) {

2
bootstrap/unix-44/OPS.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tspkaSfF */
#ifndef OPS__h #ifndef OPS__h
#define OPS__h #define OPS__h

2
bootstrap/unix-44/OPT.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "OPM.h" #include "OPM.h"
#include "OPS.h" #include "OPS.h"

2
bootstrap/unix-44/OPT.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPT__h #ifndef OPT__h
#define OPT__h #define OPT__h

2
bootstrap/unix-44/OPV.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "OPC.h" #include "OPC.h"
#include "OPM.h" #include "OPM.h"

2
bootstrap/unix-44/OPV.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPV__h #ifndef OPV__h
#define OPV__h #define OPV__h

2
bootstrap/unix-44/Platform.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
typedef typedef

2
bootstrap/unix-44/Platform.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Platform__h #ifndef Platform__h
#define Platform__h #define Platform__h

2
bootstrap/unix-44/Reals.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"

2
bootstrap/unix-44/Reals.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Reals__h #ifndef Reals__h
#define Reals__h #define Reals__h

20
bootstrap/unix-44/SYSTEM.h
View file

@ -49,7 +49,7 @@
#define LONGREAL double #define LONGREAL double
#define SYSTEM_PTR void* #define SYSTEM_PTR void*
// For 32 bit builds, the size of LONGINT depends on a make option: // For 32 bit builds, the size of LONGINT depends on a make option:
#if (__SIZEOF_POINTER__ == 8) || defined(LARGE) || defined(_WIN64) #if (__SIZEOF_POINTER__ == 8) || defined(LARGE) || defined(_WIN64)
#define INTEGER int // INTEGER is 32 bit. #define INTEGER int // INTEGER is 32 bit.
@ -126,21 +126,21 @@ static int __str_cmp(CHAR *x, CHAR *y){
#define __GET(a, x, t) x= *(t*)(uintptr_t)(a) #define __GET(a, x, t) x= *(t*)(uintptr_t)(a)
#define __PUT(a, x, t) *(t*)(uintptr_t)(a)=x #define __PUT(a, x, t) *(t*)(uintptr_t)(a)=x
#define __LSHL(x, n, t) ((t)((unsigned t)(x)<<(n))) #define __LSHL(x, n, t) ((t)((unsigned t)(x)<<(n)))
#define __LSHR(x, n, t) ((t)((unsigned t)(x)>>(n))) #define __LSHR(x, n, t) ((t)((unsigned t)(x)>>(n)))
#define __LSH(x, n, t) ((n)>=0? __LSHL(x, n, t): __LSHR(x, -(n), t)) #define __LSH(x, n, t) ((n)>=0? __LSHL(x, n, t): __LSHR(x, -(n), t))
#define __ROTL(x, n, t) ((t)((unsigned t)(x)<<(n)|(unsigned t)(x)>>(8*sizeof(t)-(n))))
#define __ROTR(x, n, t) ((t)((unsigned t)(x)>>(n)|(unsigned t)(x)<<(8*sizeof(t)-(n))))
#define __LSHR(x, n, t) ((t)((unsigned t)(x)>>(n)))
#define __LSH(x, n, t) ((n)>=0? __LSHL(x, n, t): __LSHR(x, -(n), t))
#define __ROTL(x, n, t) ((t)((unsigned t)(x)<<(n)|(unsigned t)(x)>>(8*sizeof(t)-(n))))
#define __ROTR(x, n, t) ((t)((unsigned t)(x)>>(n)|(unsigned t)(x)<<(8*sizeof(t)-(n))))
#define __ROT(x, n, t) ((n)>=0? __ROTL(x, n, t): __ROTR(x, -(n), t))
#define __BIT(x, n) (*(unsigned LONGINT*)(x)>>(n)&1)
#define __MOVE(s, d, n) memcpy((char*)(uintptr_t)(d),(char*)(uintptr_t)(s),n)
#define __ASHL(x, n) ((LONGINT)(x)<<(n)) #define __ASHL(x, n) ((LONGINT)(x)<<(n))
#define __ASHR(x, n) ((LONGINT)(x)>>(n)) #define __ASHR(x, n) ((LONGINT)(x)>>(n))
#define __ASH(x, n) ((n)>=0?__ASHL(x,n):__ASHR(x,-(n))) #define __ASH(x, n) ((n)>=0?__ASHL(x,n):__ASHR(x,-(n)))
#define __ROTL(x, n, t) ((t)((unsigned t)(x)<<(n)|(unsigned t)(x)>>(8*sizeof(t)-(n))))
#define __ROTR(x, n, t) ((t)((unsigned t)(x)>>(n)|(unsigned t)(x)<<(8*sizeof(t)-(n))))
#define __ROT(x, n, t) ((n)>=0? __ROTL(x, n, t): __ROTR(x, -(n), t))
#define __BIT(x, n) (*(unsigned LONGINT*)(x)>>(n)&1)
#define __MOVE(s, d, n) memcpy((char*)(uintptr_t)(d),(char*)(uintptr_t)(s),n)
#define __ASHF(x, n) SYSTEM_ASH((LONGINT)(x), (LONGINT)(n)) #define __ASHF(x, n) SYSTEM_ASH((LONGINT)(x), (LONGINT)(n))
#define __SHORT(x, y) ((int)((unsigned LONGINT)(x)+(y)<(y)+(y)?(x):(__HALT(-8),0))) #define __SHORT(x, y) ((int)((unsigned LONGINT)(x)+(y)<(y)+(y)?(x):(__HALT(-8),0)))
#define __SHORTF(x, y) ((int)(__RF((x)+(y),(y)+(y))-(y))) #define __SHORTF(x, y) ((int)(__RF((x)+(y),(y)+(y))-(y)))

2
bootstrap/unix-44/Strings.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"

2
bootstrap/unix-44/Strings.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Strings__h #ifndef Strings__h
#define Strings__h #define Strings__h

2
bootstrap/unix-44/Texts.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Files.h" #include "Files.h"
#include "Modules.h" #include "Modules.h"

2
bootstrap/unix-44/Texts.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Texts__h #ifndef Texts__h
#define Texts__h #define Texts__h

2
bootstrap/unix-44/Vishap.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkamSf */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkamSf */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Configuration.h" #include "Configuration.h"
#include "Heap.h" #include "Heap.h"

2
bootstrap/unix-44/errors.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
typedef typedef

2
bootstrap/unix-44/errors.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef errors__h #ifndef errors__h
#define errors__h #define errors__h

2
bootstrap/unix-44/extTools.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Configuration.h" #include "Configuration.h"
#include "Console.h" #include "Console.h"

2
bootstrap/unix-44/extTools.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef extTools__h #ifndef extTools__h
#define extTools__h #define extTools__h

2
bootstrap/unix-44/vt100.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Console.h" #include "Console.h"
#include "Strings.h" #include "Strings.h"

2
bootstrap/unix-44/vt100.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef vt100__h #ifndef vt100__h
#define vt100__h #define vt100__h

4
bootstrap/unix-48/Configuration.c
View file

@ -1,7 +1,8 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
export CHAR Configuration_versionLong[41];
@ -12,5 +13,6 @@ export void *Configuration__init(void)
__DEFMOD; __DEFMOD;
__REGMOD("Configuration", 0); __REGMOD("Configuration", 0);
/* BEGIN */ /* BEGIN */
__MOVE("1.95 [2016/07/11] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__ENDMOD; __ENDMOD;
} }

3
bootstrap/unix-48/Configuration.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Configuration__h #ifndef Configuration__h
#define Configuration__h #define Configuration__h
@ -6,6 +6,7 @@
#include "SYSTEM.h" #include "SYSTEM.h"
import CHAR Configuration_versionLong[41];
import void *Configuration__init(void); import void *Configuration__init(void);

2
bootstrap/unix-48/Console.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Platform.h" #include "Platform.h"

2
bootstrap/unix-48/Console.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Console__h #ifndef Console__h
#define Console__h #define Console__h

2
bootstrap/unix-48/Files.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Configuration.h" #include "Configuration.h"
#include "Console.h" #include "Console.h"

2
bootstrap/unix-48/Files.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tspkaSfF */
#ifndef Files__h #ifndef Files__h
#define Files__h #define Files__h

2
bootstrap/unix-48/Heap.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tskSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tskSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
struct Heap__1 { struct Heap__1 {

2
bootstrap/unix-48/Heap.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tskSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tskSfF */
#ifndef Heap__h #ifndef Heap__h
#define Heap__h #define Heap__h

2
bootstrap/unix-48/Modules.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Console.h" #include "Console.h"
#include "Heap.h" #include "Heap.h"

2
bootstrap/unix-48/Modules.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Modules__h #ifndef Modules__h
#define Modules__h #define Modules__h

2
bootstrap/unix-48/OPB.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "OPM.h" #include "OPM.h"
#include "OPS.h" #include "OPS.h"

2
bootstrap/unix-48/OPB.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPB__h #ifndef OPB__h
#define OPB__h #define OPB__h

4
bootstrap/unix-48/OPC.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Configuration.h" #include "Configuration.h"
#include "OPM.h" #include "OPM.h"
@ -1241,7 +1241,7 @@ static void OPC_GenHeaderMsg (void)
OPM_WriteString((CHAR*)"/*", (LONGINT)3); OPM_WriteString((CHAR*)"/*", (LONGINT)3);
OPM_WriteString((CHAR*)" voc ", (LONGINT)6); OPM_WriteString((CHAR*)" voc ", (LONGINT)6);
OPM_Write(' '); OPM_Write(' ');
OPM_WriteString((CHAR*)"1.95 [2016/06/30] for gcc LP64 on cygwin", (LONGINT)41); OPM_WriteString(Configuration_versionLong, ((LONGINT)(41)));
OPM_Write(' '); OPM_Write(' ');
i = 0; i = 0;
while (i <= 31) { while (i <= 31) {

2
bootstrap/unix-48/OPC.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPC__h #ifndef OPC__h
#define OPC__h #define OPC__h

4
bootstrap/unix-48/OPM.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Configuration.h" #include "Configuration.h"
#include "Console.h" #include "Console.h"
@ -198,7 +198,7 @@ BOOLEAN OPM_OpenPar (void)
if (Platform_ArgCount == 1) { if (Platform_ArgCount == 1) {
OPM_LogWLn(); OPM_LogWLn();
OPM_LogWStr((CHAR*)"Vishap Oberon-2 compiler v", (LONGINT)27); OPM_LogWStr((CHAR*)"Vishap Oberon-2 compiler v", (LONGINT)27);
OPM_LogWStr((CHAR*)"1.95 [2016/06/30] for gcc LP64 on cygwin", (LONGINT)41); OPM_LogWStr(Configuration_versionLong, ((LONGINT)(41)));
OPM_LogW('.'); OPM_LogW('.');
OPM_LogWLn(); OPM_LogWLn();
OPM_LogWStr((CHAR*)"Based on Ofront by Software Templ OEG, continued by Norayr Chilingarian and others.", (LONGINT)84); OPM_LogWStr((CHAR*)"Based on Ofront by Software Templ OEG, continued by Norayr Chilingarian and others.", (LONGINT)84);

2
bootstrap/unix-48/OPM.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPM__h #ifndef OPM__h
#define OPM__h #define OPM__h

2
bootstrap/unix-48/OPP.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "OPB.h" #include "OPB.h"
#include "OPM.h" #include "OPM.h"

2
bootstrap/unix-48/OPP.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPP__h #ifndef OPP__h
#define OPP__h #define OPP__h

9
bootstrap/unix-48/OPS.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "OPM.h" #include "OPM.h"
@ -127,7 +127,7 @@ static INTEGER Ord__7 (CHAR ch, BOOLEAN hex)
static void OPS_Number (void) static void OPS_Number (void)
{ {
INTEGER i, m, n, d, e; INTEGER i, m, n, d, e, maxHdig;
CHAR dig[24]; CHAR dig[24];
LONGREAL f; LONGREAL f;
CHAR expCh; CHAR expCh;
@ -182,8 +182,9 @@ static void OPS_Number (void)
} else if (OPS_ch == 'H') { } else if (OPS_ch == 'H') {
OPM_Get(&OPS_ch); OPM_Get(&OPS_ch);
OPS_numtyp = 2; OPS_numtyp = 2;
if (n <= 8) { maxHdig = 8;
if ((n == 8 && dig[0] > '7')) { if (n <= maxHdig) {
if ((n == maxHdig && dig[0] > '7')) {
OPS_intval = -1; OPS_intval = -1;
} }
while (i < n) { while (i < n) {

2
bootstrap/unix-48/OPS.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tspkaSfF */
#ifndef OPS__h #ifndef OPS__h
#define OPS__h #define OPS__h

2
bootstrap/unix-48/OPT.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "OPM.h" #include "OPM.h"
#include "OPS.h" #include "OPS.h"

2
bootstrap/unix-48/OPT.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPT__h #ifndef OPT__h
#define OPT__h #define OPT__h

2
bootstrap/unix-48/OPV.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "OPC.h" #include "OPC.h"
#include "OPM.h" #include "OPM.h"

2
bootstrap/unix-48/OPV.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPV__h #ifndef OPV__h
#define OPV__h #define OPV__h

2
bootstrap/unix-48/Platform.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
typedef typedef

2
bootstrap/unix-48/Platform.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Platform__h #ifndef Platform__h
#define Platform__h #define Platform__h

2
bootstrap/unix-48/Reals.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"

2
bootstrap/unix-48/Reals.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Reals__h #ifndef Reals__h
#define Reals__h #define Reals__h

20
bootstrap/unix-48/SYSTEM.h
View file

@ -49,7 +49,7 @@
#define LONGREAL double #define LONGREAL double
#define SYSTEM_PTR void* #define SYSTEM_PTR void*
// For 32 bit builds, the size of LONGINT depends on a make option: // For 32 bit builds, the size of LONGINT depends on a make option:
#if (__SIZEOF_POINTER__ == 8) || defined(LARGE) || defined(_WIN64) #if (__SIZEOF_POINTER__ == 8) || defined(LARGE) || defined(_WIN64)
#define INTEGER int // INTEGER is 32 bit. #define INTEGER int // INTEGER is 32 bit.
@ -126,21 +126,21 @@ static int __str_cmp(CHAR *x, CHAR *y){
#define __GET(a, x, t) x= *(t*)(uintptr_t)(a) #define __GET(a, x, t) x= *(t*)(uintptr_t)(a)
#define __PUT(a, x, t) *(t*)(uintptr_t)(a)=x #define __PUT(a, x, t) *(t*)(uintptr_t)(a)=x
#define __LSHL(x, n, t) ((t)((unsigned t)(x)<<(n))) #define __LSHL(x, n, t) ((t)((unsigned t)(x)<<(n)))
#define __LSHR(x, n, t) ((t)((unsigned t)(x)>>(n))) #define __LSHR(x, n, t) ((t)((unsigned t)(x)>>(n)))
#define __LSH(x, n, t) ((n)>=0? __LSHL(x, n, t): __LSHR(x, -(n), t)) #define __LSH(x, n, t) ((n)>=0? __LSHL(x, n, t): __LSHR(x, -(n), t))
#define __ROTL(x, n, t) ((t)((unsigned t)(x)<<(n)|(unsigned t)(x)>>(8*sizeof(t)-(n))))
#define __ROTR(x, n, t) ((t)((unsigned t)(x)>>(n)|(unsigned t)(x)<<(8*sizeof(t)-(n))))
#define __LSHR(x, n, t) ((t)((unsigned t)(x)>>(n)))
#define __LSH(x, n, t) ((n)>=0? __LSHL(x, n, t): __LSHR(x, -(n), t))
#define __ROTL(x, n, t) ((t)((unsigned t)(x)<<(n)|(unsigned t)(x)>>(8*sizeof(t)-(n))))
#define __ROTR(x, n, t) ((t)((unsigned t)(x)>>(n)|(unsigned t)(x)<<(8*sizeof(t)-(n))))
#define __ROT(x, n, t) ((n)>=0? __ROTL(x, n, t): __ROTR(x, -(n), t))
#define __BIT(x, n) (*(unsigned LONGINT*)(x)>>(n)&1)
#define __MOVE(s, d, n) memcpy((char*)(uintptr_t)(d),(char*)(uintptr_t)(s),n)
#define __ASHL(x, n) ((LONGINT)(x)<<(n)) #define __ASHL(x, n) ((LONGINT)(x)<<(n))
#define __ASHR(x, n) ((LONGINT)(x)>>(n)) #define __ASHR(x, n) ((LONGINT)(x)>>(n))
#define __ASH(x, n) ((n)>=0?__ASHL(x,n):__ASHR(x,-(n))) #define __ASH(x, n) ((n)>=0?__ASHL(x,n):__ASHR(x,-(n)))
#define __ROTL(x, n, t) ((t)((unsigned t)(x)<<(n)|(unsigned t)(x)>>(8*sizeof(t)-(n))))
#define __ROTR(x, n, t) ((t)((unsigned t)(x)>>(n)|(unsigned t)(x)<<(8*sizeof(t)-(n))))
#define __ROT(x, n, t) ((n)>=0? __ROTL(x, n, t): __ROTR(x, -(n), t))
#define __BIT(x, n) (*(unsigned LONGINT*)(x)>>(n)&1)
#define __MOVE(s, d, n) memcpy((char*)(uintptr_t)(d),(char*)(uintptr_t)(s),n)
#define __ASHF(x, n) SYSTEM_ASH((LONGINT)(x), (LONGINT)(n)) #define __ASHF(x, n) SYSTEM_ASH((LONGINT)(x), (LONGINT)(n))
#define __SHORT(x, y) ((int)((unsigned LONGINT)(x)+(y)<(y)+(y)?(x):(__HALT(-8),0))) #define __SHORT(x, y) ((int)((unsigned LONGINT)(x)+(y)<(y)+(y)?(x):(__HALT(-8),0)))
#define __SHORTF(x, y) ((int)(__RF((x)+(y),(y)+(y))-(y))) #define __SHORTF(x, y) ((int)(__RF((x)+(y),(y)+(y))-(y)))

2
bootstrap/unix-48/Strings.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"

2
bootstrap/unix-48/Strings.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Strings__h #ifndef Strings__h
#define Strings__h #define Strings__h

2
bootstrap/unix-48/Texts.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Files.h" #include "Files.h"
#include "Modules.h" #include "Modules.h"

2
bootstrap/unix-48/Texts.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Texts__h #ifndef Texts__h
#define Texts__h #define Texts__h

2
bootstrap/unix-48/Vishap.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkamSf */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkamSf */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Configuration.h" #include "Configuration.h"
#include "Heap.h" #include "Heap.h"

2
bootstrap/unix-48/errors.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
typedef typedef

2
bootstrap/unix-48/errors.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef errors__h #ifndef errors__h
#define errors__h #define errors__h

2
bootstrap/unix-48/extTools.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Configuration.h" #include "Configuration.h"
#include "Console.h" #include "Console.h"

2
bootstrap/unix-48/extTools.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef extTools__h #ifndef extTools__h
#define extTools__h #define extTools__h

2
bootstrap/unix-48/vt100.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Console.h" #include "Console.h"
#include "Strings.h" #include "Strings.h"

2
bootstrap/unix-48/vt100.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef vt100__h #ifndef vt100__h
#define vt100__h #define vt100__h

4
bootstrap/unix-88/Configuration.c
View file

@ -1,8 +1,9 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#define LARGE #define LARGE
#include "SYSTEM.h" #include "SYSTEM.h"
export CHAR Configuration_versionLong[41];
@ -13,5 +14,6 @@ export void *Configuration__init(void)
__DEFMOD; __DEFMOD;
__REGMOD("Configuration", 0); __REGMOD("Configuration", 0);
/* BEGIN */ /* BEGIN */
__MOVE("1.95 [2016/07/11] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__ENDMOD; __ENDMOD;
} }

3
bootstrap/unix-88/Configuration.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Configuration__h #ifndef Configuration__h
#define Configuration__h #define Configuration__h
@ -7,6 +7,7 @@
#include "SYSTEM.h" #include "SYSTEM.h"
import CHAR Configuration_versionLong[41];
import void *Configuration__init(void); import void *Configuration__init(void);

2
bootstrap/unix-88/Console.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#define LARGE #define LARGE
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Platform.h" #include "Platform.h"

2
bootstrap/unix-88/Console.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Console__h #ifndef Console__h
#define Console__h #define Console__h

2
bootstrap/unix-88/Files.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tspkaSfF */
#define LARGE #define LARGE
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Configuration.h" #include "Configuration.h"

2
bootstrap/unix-88/Files.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tspkaSfF */
#ifndef Files__h #ifndef Files__h
#define Files__h #define Files__h

2
bootstrap/unix-88/Heap.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tskSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tskSfF */
#define LARGE #define LARGE
#include "SYSTEM.h" #include "SYSTEM.h"

2
bootstrap/unix-88/Heap.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tskSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tskSfF */
#ifndef Heap__h #ifndef Heap__h
#define Heap__h #define Heap__h

2
bootstrap/unix-88/Modules.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#define LARGE #define LARGE
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Console.h" #include "Console.h"

2
bootstrap/unix-88/Modules.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Modules__h #ifndef Modules__h
#define Modules__h #define Modules__h

2
bootstrap/unix-88/OPB.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#define LARGE #define LARGE
#include "SYSTEM.h" #include "SYSTEM.h"
#include "OPM.h" #include "OPM.h"

2
bootstrap/unix-88/OPB.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPB__h #ifndef OPB__h
#define OPB__h #define OPB__h

4
bootstrap/unix-88/OPC.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#define LARGE #define LARGE
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Configuration.h" #include "Configuration.h"
@ -1242,7 +1242,7 @@ static void OPC_GenHeaderMsg (void)
OPM_WriteString((CHAR*)"/*", (LONGINT)3); OPM_WriteString((CHAR*)"/*", (LONGINT)3);
OPM_WriteString((CHAR*)" voc ", (LONGINT)6); OPM_WriteString((CHAR*)" voc ", (LONGINT)6);
OPM_Write(' '); OPM_Write(' ');
OPM_WriteString((CHAR*)"1.95 [2016/06/30] for gcc LP64 on cygwin", (LONGINT)41); OPM_WriteString(Configuration_versionLong, ((LONGINT)(41)));
OPM_Write(' '); OPM_Write(' ');
i = 0; i = 0;
while (i <= 63) { while (i <= 63) {

2
bootstrap/unix-88/OPC.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPC__h #ifndef OPC__h
#define OPC__h #define OPC__h

4
bootstrap/unix-88/OPM.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#define LARGE #define LARGE
#include "SYSTEM.h" #include "SYSTEM.h"
#include "Configuration.h" #include "Configuration.h"
@ -199,7 +199,7 @@ BOOLEAN OPM_OpenPar (void)
if (Platform_ArgCount == 1) { if (Platform_ArgCount == 1) {
OPM_LogWLn(); OPM_LogWLn();
OPM_LogWStr((CHAR*)"Vishap Oberon-2 compiler v", (LONGINT)27); OPM_LogWStr((CHAR*)"Vishap Oberon-2 compiler v", (LONGINT)27);
OPM_LogWStr((CHAR*)"1.95 [2016/06/30] for gcc LP64 on cygwin", (LONGINT)41); OPM_LogWStr(Configuration_versionLong, ((LONGINT)(41)));
OPM_LogW('.'); OPM_LogW('.');
OPM_LogWLn(); OPM_LogWLn();
OPM_LogWStr((CHAR*)"Based on Ofront by Software Templ OEG, continued by Norayr Chilingarian and others.", (LONGINT)84); OPM_LogWStr((CHAR*)"Based on Ofront by Software Templ OEG, continued by Norayr Chilingarian and others.", (LONGINT)84);

2
bootstrap/unix-88/OPM.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPM__h #ifndef OPM__h
#define OPM__h #define OPM__h

2
bootstrap/unix-88/OPP.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#define LARGE #define LARGE
#include "SYSTEM.h" #include "SYSTEM.h"
#include "OPB.h" #include "OPB.h"

2
bootstrap/unix-88/OPP.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin xtspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPP__h #ifndef OPP__h
#define OPP__h #define OPP__h

9
bootstrap/unix-88/OPS.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/06/30] for gcc LP64 on cygwin tspkaSfF */ /* voc 1.95 [2016/07/11] for gcc LP64 on cygwin tspkaSfF */
#define LARGE #define LARGE
#include "SYSTEM.h" #include "SYSTEM.h"
#include "OPM.h" #include "OPM.h"
@ -128,7 +128,7 @@ static INTEGER Ord__7 (CHAR ch, BOOLEAN hex)
static void OPS_Number (void) static void OPS_Number (void)
{ {
INTEGER i, m, n, d, e; INTEGER i, m, n, d, e, maxHdig;
CHAR dig[24]; CHAR dig[24];
LONGREAL f; LONGREAL f;
CHAR expCh; CHAR expCh;
@ -183,8 +183,9 @@ static void OPS_Number (void)
} else if (OPS_ch == 'H') { } else if (OPS_ch == 'H') {
OPM_Get(&OPS_ch); OPM_Get(&OPS_ch);
OPS_numtyp = 2; OPS_numtyp = 2;
if (n <= 8) { maxHdig = 16;
if ((n == 8 && dig[0] > '7')) { if (n <= maxHdig) {
if ((n == maxHdig && dig[0] > '7')) {
OPS_intval = -1; OPS_intval = -1;
} }
while (i < n) { while (i < n) {

Some files were not shown because too many files have changed in this diff Show more