mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 07:32:24 +00:00
Simplify parameterisable memory model variables.
This commit is contained in:
parent
20a97bb570
commit
1c94abedc6
201 changed files with 607 additions and 763 deletions
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/20] for gcc LP64 on cygwin xtspkaSfF */
|
||||
/* voc 1.95 [2016/09/21] for gcc LP64 on cygwin xtspkaSfF */
|
||||
|
||||
#define INTEGER int32
|
||||
#define LONGINT int64
|
||||
|
|
@ -839,7 +839,7 @@ void OPC_TDescDecl (OPT_Struct typ)
|
|||
OPC_Str1((CHAR*)", #), {", 8, typ->size);
|
||||
nofptrs = 0;
|
||||
OPC_PutPtrOffsets(typ, 0, &nofptrs);
|
||||
OPC_Str1((CHAR*)"#}}", 4, -((nofptrs + 1) * (int64)OPM_PointerSize));
|
||||
OPC_Str1((CHAR*)"#}}", 4, -((nofptrs + 1) * (int64)OPM_AddressSize));
|
||||
OPC_EndStat();
|
||||
}
|
||||
|
||||
|
|
@ -1966,7 +1966,7 @@ void OPC_Len (OPT_Object obj, OPT_Struct array, int64 dim)
|
|||
if (OPC_ansi) {
|
||||
OPM_WriteInt(array->n);
|
||||
} else {
|
||||
OPC_IntLiteral(array->n, OPM_PointerSize);
|
||||
OPC_IntLiteral(array->n, OPM_AddressSize);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue