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

powerpc port completed.

Browse source 
mostly there are changes in Reals.Mod, for big endian.
This commit is contained in:
Norayr Chilingarian 2014-01-08 04:01:49 +04:00
parent 44086e5817
commit b273a9901b
3 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lib/ulm/powerpc/ulmTypes.Mod
View file

@ -65,7 +65,7 @@ MODULE ulmTypes;
CONST CONST
bigEndian* = 0; (* SPARC, M68K etc *) bigEndian* = 0; (* SPARC, M68K etc *)
littleEndian* = 1; (* Intel 80x86, VAX etc *) littleEndian* = 1; (* Intel 80x86, VAX etc *)
byteorder* = littleEndian; (* machine-dependent constant *) byteorder* = bigEndian; (* machine-dependent constant *)
TYPE TYPE
ByteOrder* = SHORTINT; (* bigEndian or littleEndian *) ByteOrder* = SHORTINT; (* bigEndian or littleEndian *)

9
src/lib/v4/powerpc/Reals.Mod
View file

@ -38,7 +38,8 @@ MODULE Reals;
PROCEDURE ExpoL*(x: LONGREAL): INTEGER; PROCEDURE ExpoL*(x: LONGREAL): INTEGER;
VAR h: LONGINT; VAR h: LONGINT;
BEGIN BEGIN
S.GET(S.ADR(x)+4, h); (*S.GET(S.ADR(x)+4, h);*) (* commented out, powerpc is big endian *)
S.GET(S.ADR(x), h);
RETURN SHORT(ASH(h, -20) MOD 2048) RETURN SHORT(ASH(h, -20) MOD 2048)
END ExpoL; END ExpoL;
@ -52,9 +53,11 @@ MODULE Reals;
CONST expo = {1..11}; CONST expo = {1..11};
VAR h: SET; VAR h: SET;
BEGIN BEGIN
S.GET(S.ADR(x)+4, h); (*S.GET(S.ADR(x)+4, h);*) (* big endian *)
S.GET(S.ADR(x), h);
h := h - expo + S.VAL(SET, ASH(LONG(e), 20)); h := h - expo + S.VAL(SET, ASH(LONG(e), 20));
S.PUT(S.ADR(x)+4, h) (*S.PUT(S.ADR(x)+4, h)*)
S.PUT(S.ADR(x), h)
END SetExpoL; END SetExpoL;
PROCEDURE Convert*(x: REAL; n: INTEGER; VAR d: ARRAY OF CHAR); PROCEDURE Convert*(x: REAL; n: INTEGER; VAR d: ARRAY OF CHAR);

BIN
vocstatic.linux.gnuc.powerpc Executable file
View file

Binary file not shown.