vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 04:02:25 +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

4
bootstrap/windows-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
#include "SYSTEM.h"
export CHAR Configuration_versionLong[41];
@ -13,5 +14,6 @@ export void *Configuration__init(void)
__DEFMOD;
__REGMOD("Configuration", 0);
/* BEGIN */
__MOVE("1.95 [2016/07/11] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__ENDMOD;
}

3
bootstrap/windows-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
#define Configuration__h
@ -7,6 +7,7 @@
#include "SYSTEM.h"
import CHAR Configuration_versionLong[41];
import void *Configuration__init(void);

2
bootstrap/windows-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
#include "SYSTEM.h"
#include "Platform.h"

2
bootstrap/windows-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
#define Console__h

2
bootstrap/windows-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
#include "SYSTEM.h"
#include "Configuration.h"

2
bootstrap/windows-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
#define Files__h

2
bootstrap/windows-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
#include "SYSTEM.h"

2
bootstrap/windows-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
#define Heap__h

2
bootstrap/windows-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
#include "SYSTEM.h"
#include "Console.h"

2
bootstrap/windows-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
#define Modules__h

2
bootstrap/windows-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
#include "SYSTEM.h"
#include "OPM.h"

2
bootstrap/windows-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
#define OPB__h

4
bootstrap/windows-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
#include "SYSTEM.h"
#include "Configuration.h"
@ -1242,7 +1242,7 @@ static void OPC_GenHeaderMsg (void)
OPM_WriteString((CHAR*)"/*", (LONGINT)3);
OPM_WriteString((CHAR*)" voc ", (LONGINT)6);
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(' ');
i = 0;
while (i <= 63) {

2
bootstrap/windows-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
#define OPC__h

4
bootstrap/windows-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
#include "SYSTEM.h"
#include "Configuration.h"
@ -199,7 +199,7 @@ BOOLEAN OPM_OpenPar (void)
if (Platform_ArgCount == 1) {
OPM_LogWLn();
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_LogWLn();
OPM_LogWStr((CHAR*)"Based on Ofront by Software Templ OEG, continued by Norayr Chilingarian and others.", (LONGINT)84);

2
bootstrap/windows-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
#define OPM__h

2
bootstrap/windows-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
#include "SYSTEM.h"
#include "OPB.h"

2
bootstrap/windows-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
#define OPP__h

9
bootstrap/windows-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
#include "SYSTEM.h"
#include "OPM.h"
@ -128,7 +128,7 @@ static INTEGER Ord__7 (CHAR ch, BOOLEAN hex)
static void OPS_Number (void)
{
INTEGER i, m, n, d, e;
INTEGER i, m, n, d, e, maxHdig;
CHAR dig[24];
LONGREAL f;
CHAR expCh;
@ -183,8 +183,9 @@ static void OPS_Number (void)
} else if (OPS_ch == 'H') {
OPM_Get(&OPS_ch);
OPS_numtyp = 2;
if (n <= 8) {
if ((n == 8 && dig[0] > '7')) {
maxHdig = 16;
if (n <= maxHdig) {
if ((n == maxHdig && dig[0] > '7')) {
OPS_intval = -1;
}
while (i < n) {

2
bootstrap/windows-88/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
#define OPS__h

2
bootstrap/windows-88/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 */
#define LARGE
#include "SYSTEM.h"
#include "OPM.h"

2
bootstrap/windows-88/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
#define OPT__h

2
bootstrap/windows-88/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 */
#define LARGE
#include "SYSTEM.h"
#include "OPC.h"

2
bootstrap/windows-88/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
#define OPV__h

2
bootstrap/windows-88/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 */
#define LARGE
#include "SYSTEM.h"

2
bootstrap/windows-88/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
#define Platform__h

2
bootstrap/windows-88/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 */
#define LARGE
#include "SYSTEM.h"

2
bootstrap/windows-88/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
#define Reals__h

20
bootstrap/windows-88/SYSTEM.h
View file

@ -49,7 +49,7 @@
#define LONGREAL double
#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)
#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 __PUT(a, x, t) *(t*)(uintptr_t)(a)=x
#define __LSHL(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 __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 __ASHR(x, n) ((LONGINT)(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 __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)))

2
bootstrap/windows-88/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 */
#define LARGE
#include "SYSTEM.h"

2
bootstrap/windows-88/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
#define Strings__h

2
bootstrap/windows-88/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 */
#define LARGE
#include "SYSTEM.h"
#include "Files.h"

2
bootstrap/windows-88/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
#define Texts__h

2
bootstrap/windows-88/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 */
#define LARGE
#include "SYSTEM.h"
#include "Configuration.h"

2
bootstrap/windows-88/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 */
#define LARGE
#include "SYSTEM.h"

2
bootstrap/windows-88/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
#define errors__h

2
bootstrap/windows-88/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 */
#define LARGE
#include "SYSTEM.h"
#include "Configuration.h"

2
bootstrap/windows-88/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
#define extTools__h

2
bootstrap/windows-88/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 */
#define LARGE
#include "SYSTEM.h"
#include "Console.h"

2
bootstrap/windows-88/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
#define vt100__h