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

powerpc

Browse source 
Former-commit-id: 13a7216990
This commit is contained in:
Norayr Chilingarian 2014-01-08 05:14:57 +04:00
parent 239aaa95f8
commit 3a0e194d18
2 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/voc/OPM.cmdln.Mod
View file

@ -450,6 +450,15 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *)
MaxSInt := 7FH; MaxInt := 7FFFH; MaxLInt := 7FFFFFFFH; (*2147483647*) MaxSInt := 7FH; MaxInt := 7FFFH; MaxLInt := 7FFFFFFFH; (*2147483647*)
MaxSet := SetSize * 8 -1; (* noch *) MaxSet := SetSize * 8 -1; (* noch *)
*) *)
ELSIF (version.defaultTarget = version.gnupowerpc) THEN
Console.String (" GNU ");
Console.String (version.arch); Console.String (" target"); Console.Ln;
ByteSize := 1; CharSize := 1; BoolSize := 1; SIntSize := 1; IntSize := 2; LIntSize := 4;
SetSize := 4; RealSize := 4; LRealSize := 8; ProcSize := 4; PointerSize := 4; RecSize := 1;
CharAlign := 1; BoolAlign := 1; SIntAlign := 1; IntAlign := 2; LIntAlign := 4;
SetAlign := 4; RealAlign := 4; LRealAlign := 8; ProcAlign := 4; PointerAlign := 4; RecAlign := 1;
ELSIF version.defaultTarget = version.gnux86 THEN ELSIF version.defaultTarget = version.gnux86 THEN
Console.String("GNU "); Console.String(version.arch); Console.String(" target"); Console.Ln; Console.String("GNU "); Console.String(version.arch); Console.String(" target"); Console.Ln;
ByteSize := 1; CharSize := 1; BoolSize := 1; SIntSize := 1; IntSize := 2; LIntSize := 4; ByteSize := 1; CharSize := 1; BoolSize := 1; SIntSize := 1; IntSize := 2; LIntSize := 4;

4
src/voc/version.Mod
View file

@ -2,7 +2,7 @@ MODULE version;
IMPORT Strings := oocOakStrings, architecture; IMPORT Strings := oocOakStrings, architecture;
CONST CONST
(* targets *) (* targets *)
gnux86* = 0; gnux8664* = 1; gnuarmv6j* = 2; gnuarmv6jhardfp* = 3; gnuarmv7ahardfp* = 4; gnux86* = 0; gnux8664* = 1; gnuarmv6j* = 2; gnuarmv6jhardfp* = 3; gnuarmv7ahardfp* = 4; gnupowerpc* = 5;
VAR arch-, version-, date-, versionLong-, prefix0-, prefix- : ARRAY 23 OF CHAR; VAR arch-, version-, date-, versionLong-, prefix0-, prefix- : ARRAY 23 OF CHAR;
defaultTarget* : INTEGER; defaultTarget* : INTEGER;
@ -31,6 +31,8 @@ Strings.Append(date, versionLong);
defaultTarget := gnuarmv6jhardfp defaultTarget := gnuarmv6jhardfp
ELSIF arch = "armv7a_hardfp" THEN ELSIF arch = "armv7a_hardfp" THEN
defaultTarget := gnuarmv7ahardfp defaultTarget := gnuarmv7ahardfp
ELSIF arch = "powerpc" THEN
defaultTarget := gnupowerpc
ELSE ELSE
defaultTarget := gnux8664 defaultTarget := gnux8664
END END