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

untraced pointer -- noch

Browse source 
Former-commit-id: 8b846c9a5a
This commit is contained in:
Norayr Chilingarian 2015-01-25 16:22:23 +04:00
parent cc79fd7e4c
commit 7158f2169e
6 changed files with 55 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/lib/ulm/armv6j/ulmTypes.Mod
View file

@ -51,7 +51,15 @@ MODULE ulmTypes;
TYPE TYPE
Address* = LONGINT (*SYS.ADDRESS*); Address* = LONGINT (*SYS.ADDRESS*);
UntracedAddress* = LONGINT; (*SYS.UNTRACEDADDRESS;*) (* ulm compiler can accept
VAR p : SYSTEM.ADDRESS; // SYSTEM.PTR in ETH and V4 versions
...
p := SYSTEM.ADR(something);
and this is how it is used in ulm oberon system library,
while SYSTEM.ADR returns LONGINT in ETH and V4 versions.
Thus I leave it as LONGINT for now, before coming up with better solution -- noch *)
UntracedAddress* = POINTER[1] TO UntracedAddressDesc; (*SYS.UNTRACEDADDRESS;*)
UntracedAddressDesc* = RECORD[1] END;
Count* = LONGINT; Count* = LONGINT;
Size* = Count; Size* = Count;
Byte* = SYS.BYTE; Byte* = SYS.BYTE;

10
src/lib/ulm/armv6j_hardfp/ulmTypes.Mod
View file

@ -51,7 +51,15 @@ MODULE ulmTypes;
TYPE TYPE
Address* = LONGINT (*SYS.ADDRESS*); Address* = LONGINT (*SYS.ADDRESS*);
UntracedAddress* = LONGINT; (*SYS.UNTRACEDADDRESS;*) (* ulm compiler can accept
VAR p : SYSTEM.ADDRESS; // SYSTEM.PTR in ETH and V4 versions
...
p := SYSTEM.ADR(something);
and this is how it is used in ulm oberon system library,
while SYSTEM.ADR returns LONGINT in ETH and V4 versions.
Thus I leave it as LONGINT for now, before coming up with better solution -- noch *)
UntracedAddress* = POINTER[1] TO UntracedAddressDesc; (*SYS.UNTRACEDADDRESS;*)
UntracedAddressDesc* = RECORD[1] END;
Count* = LONGINT; Count* = LONGINT;
Size* = Count; Size* = Count;
Byte* = SYS.BYTE; Byte* = SYS.BYTE;

10
src/lib/ulm/armv7a_hardfp/ulmTypes.Mod
View file

@ -51,7 +51,15 @@ MODULE ulmTypes;
TYPE TYPE
Address* = LONGINT (*SYS.ADDRESS*); Address* = LONGINT (*SYS.ADDRESS*);
UntracedAddress* = LONGINT; (*SYS.UNTRACEDADDRESS;*) (* ulm compiler can accept
VAR p : SYSTEM.ADDRESS; // SYSTEM.PTR in ETH and V4 versions
...
p := SYSTEM.ADR(something);
and this is how it is used in ulm oberon system library,
while SYSTEM.ADR returns LONGINT in ETH and V4 versions.
Thus I leave it as LONGINT for now, before coming up with better solution -- noch *)
UntracedAddress* = POINTER[1] TO UntracedAddressDesc; (*SYS.UNTRACEDADDRESS;*)
UntracedAddressDesc* = RECORD[1] END;
Count* = LONGINT; Count* = LONGINT;
Size* = Count; Size* = Count;
Byte* = SYS.BYTE; Byte* = SYS.BYTE;

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

@ -51,7 +51,15 @@ MODULE ulmTypes;
TYPE TYPE
Address* = LONGINT (*SYS.ADDRESS*); Address* = LONGINT (*SYS.ADDRESS*);
UntracedAddress* = LONGINT; (*SYS.UNTRACEDADDRESS;*) (* ulm compiler can accept
VAR p : SYSTEM.ADDRESS; // SYSTEM.PTR in ETH and V4 versions
...
p := SYSTEM.ADR(something);
and this is how it is used in ulm oberon system library,
while SYSTEM.ADR returns LONGINT in ETH and V4 versions.
Thus I leave it as LONGINT for now, before coming up with better solution -- noch *)
UntracedAddress* = POINTER[1] TO UntracedAddressDesc; (*SYS.UNTRACEDADDRESS;*)
UntracedAddressDesc* = RECORD[1] END;
Count* = LONGINT; Count* = LONGINT;
Size* = Count; Size* = Count;
Byte* = SYS.BYTE; Byte* = SYS.BYTE;

10
src/lib/ulm/x86/ulmTypes.Mod
View file

@ -51,7 +51,15 @@ MODULE ulmTypes;
TYPE TYPE
Address* = LONGINT (*SYS.ADDRESS*); Address* = LONGINT (*SYS.ADDRESS*);
UntracedAddress* = LONGINT; (*SYS.UNTRACEDADDRESS;*) (* ulm compiler can accept
VAR p : SYSTEM.ADDRESS; // SYSTEM.PTR in ETH and V4 versions
...
p := SYSTEM.ADR(something);
and this is how it is used in ulm oberon system library,
while SYSTEM.ADR returns LONGINT in ETH and V4 versions.
Thus I leave it as LONGINT for now, before coming up with better solution -- noch *)
UntracedAddress* = POINTER[1] TO UntracedAddressDesc; (*SYS.UNTRACEDADDRESS;*)
UntracedAddressDesc* = RECORD[1] END;
Count* = LONGINT; Count* = LONGINT;
Size* = Count; Size* = Count;
Byte* = SYS.BYTE; Byte* = SYS.BYTE;

12
src/lib/ulm/x86_64/ulmTypes.Mod
View file

@ -50,8 +50,16 @@ MODULE ulmTypes;
IMPORT SYS := SYSTEM; IMPORT SYS := SYSTEM;
TYPE TYPE
Address* = LONGINT (*SYS.ADDRESS*); Address* = (*SYS.PTR*) LONGINT (*SYS.ADDRESS*);
UntracedAddress* = LONGINT; (*SYS.UNTRACEDADDRESS;*) (* ulm compiler can accept
VAR p : SYSTEM.ADDRESS; // SYSTEM.PTR in ETH and V4 versions
...
p := SYSTEM.ADR(something);
and this is how it is used in ulm oberon system library,
while SYSTEM.ADR returns LONGINT in ETH and V4 versions.
Thus I leave it as LONGINT for now, before coming up with better solution -- noch *)
UntracedAddress* = POINTER[1] TO UntracedAddressDesc; (*SYS.UNTRACEDADDRESS;*)
UntracedAddressDesc* = RECORD[1] END;
Count* = LONGINT; Count* = LONGINT;
Size* = Count; Size* = Count;
Byte* = SYS.BYTE; Byte* = SYS.BYTE;