<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">Hi all:<br>in .lm3 files you could easily see that as well.<br>But needs asking again HP about it and some work.<br>Thanks in advance<br><br>--- El <b>mié, 5/9/12, Jay K <i><jay.krell@cornell.edu></i></b> escribió:<br><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><br>De: Jay K <jay.krell@cornell.edu><br>Asunto: Re: [M3devel] M3CG<br>Para: "Tony" <hosking@cs.purdue.edu><br>CC: "m3devel" <m3devel@elegosoft.com><br>Fecha: miércoles, 5 de septiembre, 2012 13:34<br><br><div id="yiv2040965319">
<style><!--
#yiv2040965319 .yiv2040965319hmmessage P
{
margin:0px;
padding:0px;}
#yiv2040965319 body.yiv2040965319hmmessage
{
font-size:12pt;
font-family:Calibri;}
--></style><div><div dir="ltr">I should really insert padding manually?<br>I don't know if I like that or not.<br> <br><br>My code is/was something like:<br><br> TYPE T1 = RECORD <br> text: TEXT; <br> typeid: TypeUID; <br> END;<br> <br><br>and that errors on some platforms.<br> <br><br>I'm not using "Multipass" right now, but it does still hold possible value.<br>We can remove multipass from m3makefile for nowif that helps.<br> <br> <br>Given a similar problem in C, I would do something like:<br> <br>/* TypeUID must fit in 32 bits, for some reason. */<br>C_ASSERT(sizeof(TypeUID) <= sizeof(UINT32));<br>Where C_ASSERT is in windows.h and looks like:<br>/* compile time assert */ <br> #define C_ASSERT(expression) typedef char __cassert__[(expression) ? 1 : -1];<br> or somesuch. The error message isn't great when it fails. <br> <br>People
also name this "static_assert". It is popular.<br> <br> It doesn't prohibit it from having padding around it, but it does assert it fits in 32 bits.<br><br> I recall we can do similar in Modula-3. <br><br> TYPE assertTypeUIDFitsIn32Bits = ARRAY [0..ORD(BITSIZE(TypeUID) <= 32)] OF INTEGER; <br> or to be more certain: <br> TYPE assertTypeUIDFitsIn32Bits = ARRAY [0..-ORD(BITSIZE(TypeUID) <= 32)] OF INTEGER; <br><br>I'm not sure 0..0 is illegal, but I think 0 .. 1 is.<br><br>(I sure do miss macros...this is too much syntax for a compile time assert...)<br><br>Can we just put <* ASSERT BITSIZE(TypeUID) <= 32 *> in the .i3 file? Or elsewhere?<br> <br><br> - Jay<br> <br><div><div id="yiv2040965319SkyDrivePlaceholder"></div>> From: hosking@cs.purdue.edu<br>> Date: Wed, 5 Sep 2012 11:36:03 -0400<br>> To: jay.krell@cornell.edu<br>> CC: m3devel@elegosoft.com<br>> Subject: Re:
[M3devel] M3CG<br>> <br>> As I recall you were having trouble with alignment, right?<br>> <br>> In which case, why not pad your record type out to a reasonably aligned value? As in:<br>> <br>> CONST PadRange = Word.LeftShift(1, BITSIZE(ADDRESS) - BITSIZE(TypeUID)) - 1;<br>> RECORD<br>> t: TypeUID;<br>> pad: BITS BITSIZE(ADDRESS) - 32 FOR [0..PadRange];<br>> END;<br>> <br>> <br>> <br>> On Sep 5, 2012, at 11:18 AM, Antony Hosking <hosking@cs.purdue.edu> wrote:<br>> <br>> > Remind me again why you can't use TypeUID as is?<br>> > There is nothing in the language spec that prohibits packed types in records.<br>> > <br>> > On Sep 5, 2012, at 10:50 AM, Jay K <jay.krell@cornell.edu> wrote:<br>> > <br>> >> This seems quite wrong from a simple engineering/design/factoring/abstraction point of view.<br>> >> <br>> >> <br>> >> Imagine I
have a few of these things. They are subranges or enums. That fit in a smaller size.<br>> >> Wouldn't it be nice, to just use the type directly and get the space savings? Opportunistically?<br>> >> What if the type is a REAL or a LONGINT?<br>> >> I want the type to be opaque/abstract where that is easy and cheap and this certainly seems like an easy/cheap place to have slightly valuable opacity.<br>> >> Isn't it really good, more than "just nice" to let the type change and have a lot of code work just as well?<br>> >> Because they didn't copy around knowledge of what the type is?<br>> >> What if the type changes?<br>> >> Anyone just copying it around by exact restated typename is unaffected.<br>> >> Anyone who looked at and decided to restate the definition might type might be broken.<br>> >> <br>> >> <br>> >> And again, really -- you want to sacrifice
both performance and abstraction when both are easily kept better?<br>> >> That is, I'm all for range checks to keep things "safe", safety is important, but in this case you can easily preserve safety w/o adding range checks.<br>> >> <br>> >> <br>> >> We do have enums at this layer.<br>> >> Would you suggest I take the ORD of all of those and store them in INTEGERs too?<br>> >> <br>> >> <br>> >> I am really surprised.<br>> >> <br>> >> <br>> >> - Jay<br>> >> <br>> >> <br>> >> From: hosking@cs.purdue.edu<br>> >> Date: Wed, 5 Sep 2012 10:33:58 -0400<br>> >> To: dragisha@m3w.org<br>> >> CC: m3devel@elegosoft.com; jay.krell@cornell.edu<br>> >> Subject: Re: [M3devel] M3CG<br>> >> <br>> >> Precisely.<br>> >> <br>> >> <br>> >> On Sep 5, 2012, at 3:40 AM,
Dragiša Durić <dragisha@m3w.org> wrote:<br>> >> <br>> >> Why holding/passing of this value in INTEGER would be a problem? As long as range checks are passed on "assignment boundaries", it is all well.<br>> >> <br>> >> It is how Modula-3 does things. <br>> >> <br>> >> --<br>> >> Divided by a common language<br>> >> <br>> >> Dragiša Durić<br>> >> dragisha@m3w.org<br>> >> <br>> >> <br>> >> <br>> >> <br>> >> On Sep 4, 2012, at 10:47 PM, Jay K wrote:<br>> >> <br>> >> RECORD HoldsTypeUID:<br>> >> typeuid: [FIRST(TypeUID)..LAST(TypeUID)];<br>> >> END?<br>> >> <br>> >> <br>> >> But what if I'm really just a holder/passer of this thing,<br>> >> and I never interpret it. Now TypeUID can't be changed<br>> >> to LONGREAL or somesuch.
Ideally some code wouldn't care<br>> >> and still be correct.<br>> >> <br>> >> <br>> >> The idea is to hold the thing, pass it on, without knowing<br>> >> what it is. I want a field with the same type.<br>> >> <br>> >> <br>> >> Why does it matter if TypeUID is representable in 32 bits?<br>> >> Isn't the range the interface?<br>> >> If it wasn't for readability of all the F's, I think<br>> >> TypeUID = [-16_7FFFFFFF - 1 .. 16_7FFFFFFF]; is best.<br>> >> <br>> >> <br>> >> Do we really care about few or many bits that occupies?<br>> >> <br>> >> <br>> >> Cstdint.int32_t I agree is a bit lazy.<br>> >> Maybe something like Word.Shift(1, 31) .. Word.Not(Word.Shift(1, 31)) ?<br>> >> A bit wordy but ok.<br>> >> Maybe not correct. Not clear the start is negative.<br>> >>
Maybe needs to be more like:<br>> >> <br>> >> (-Word.Not(Word.Shift(1, 31))) - 1 .. Word.Not(Word.Shift(1, 31)) <br>> >> <br>> >> <br>> >> But these bit twiddlings might then confuse people.<br>> >> So maybe having to count F's is better.. :(<br>> >> <br>> >> <br>> >> You know, what about being 32bits in size would be part of an interface?<br>> >> I don't think much/anything, but maybe.<br>> >> <br>> >> <br>> >> Do we do/allow things like bit operations on it? Index into it a certain number<br>> >> of bits? Take the address and assume BYTESIZE == 4?<br>> >> I could see those maybe occuring. Maybe.<br>> >> <br>> >> <br>> >> But I'm pretty sure they values are fairly abstract/opaque and the best anyone can do<br>> >> is format them as strings and compare them for e.g. sorting
purposes, but must<br>> >> assume they are fairly sparse.<br>> >> <br>> >> <br>> >> Btw, whenever the matter of "portability to signed-magnitude" or one's complement<br>> >> comes up, I admit I get a bit confused. Two's complement is very ingrained<br>> >> in my world view.<br>> >> <br>> >> <br>> >> I agree TInt.T suffices.<br>> >> Just like CARDINAL isn't needed, INTEGER suffices.<br>> >> Cardinal.T just disallows negative numbers earlier, or at lower level, etc.<br>> >> If we had to use TInt.T and add checks in a few places that it >= 0, ok.<br>> >> It seems a little nice to put the checking in.<br>> >> <br>> >> <br>> >> - Jay<br>> >> <br>> >> <br>> >> <br>> >> <br>> >> > Subject: Re: M3CG<br>> >> > From: hosking@cs.purdue.edu<br>>
>> > Date: Tue, 4 Sep 2012 13:05:34 -0400<br>> >> > CC: m3devel@elegosoft.com<br>> >> > To: jay.krell@cornell.edu<br>> >> > <br>> >> > On Sep 4, 2012, at 12:09 PM, Jay <jay.krell@cornell.edu> wrote:<br>> >> > <br>> >> > > "BITS" seems to not provide any useful value. It only makes it so you can't put the type into a portable unpacked record, which is what I was doing. I either have to pack my record somehow (counting target-dependent bits??) or lay out the fields carefully in some way that all targets allow. The problem was that some targets didn't like the layout.<br>> >> > <br>> >> > For M3CG.TypeUID the BITS 32 enforces that it is always representable in 32 bits. This is a fundamental invariant of the compiler and run-time system. Removing it might allow bug creep. You don't need to pack your record. You just need a field sufficiently
large to hold the value of a type id. In this instance an INTEGER field would suffice, or you can use the same subrange.<br>> >> > <br>> >> > > Given the stated range, that you'll get enough bits to store it, what is the point in giving the size too? Isn't providing just the range and no particular size, sufficient & more abstract? Granted, I went the other way.<br>> >> > <br>> >> > Only if an implementation chooses to store a subrange in as few bits as necessary. Yes, CM3 does this, but it is not guaranteed by the language spec. Here the size is the critical invariant.<br>> >> > <br>> >> > > I don't remember but guessing:<br>> >> > > <br>> >> > > <br>> >> > > Cardinal.T would be, like CARDINAL vs. INTEGER: only slightly subtley useful: same as TInt.T, but disallows negative numbers.<br>> >> > <br>> >> >
But for what purpose. The target does not have CARDINAL. It only has a target integer.<br>> >> > <br>> >> > > Most likely I ran into places where a host integer/cardinal did not necessarily suffice, and so a target type was called for.<br>> >> > > <br>> >> > > <br>> >> > > I know we have places that need to use target types but don't yet. Specifically for the sizes of things like records & arrays. Otherwise we have hacks where 64bit systems declare 32bit limits.<br>> >> > <br>> >> > Again, TInt.T suffices for all of these.<br>> >> > <br>> >> > > <br>> >> > > <br>> >> > > - Jay (briefly/pocket-sized-computer-aka-phone)<br>> >> > > <br>> >> > > On Sep 4, 2012, at 7:11 AM, Antony Hosking <hosking@cs.purdue.edu> wrote:<br>> >> > > <br>> >> >
>> Jay,<br>> >> > >> <br>> >> > >> I've been looking over some of your changes to M3CG interfaces. You'll notice that I removed your import of Cstdlib.int into M3CG_Ops.i3. It does not belong there. The type as declared:<br>> >> > >> <br>> >> > >> TypeUID = BITS 32 FOR [-16_7fffffff-1 .. 16_7fffffff];<br>> >> > >> <br>> >> > >> is correct as is. It is a 32 bit value that encodes a particular subrange, REGARDLESS of target machine. It is improper to change that definition to rely on some C type.<br>> >> > >> <br>> >> > >> I also have some other questions. Why did you add the type Cardinal.T? This seems entirely unnecessary, since targets don't have a Cardinal type. The only type they have is a target integer. All other Modula-3 ordinal types should be simulated in the compiler using TInt.T. I would advise
that it be removed. Also, I don't understand why you changed descriptions of the primitive types to use this Cardinal.T instead of the original CARDINAL to hold information about the bit size, alignment, and byte size. There is no situation in which a host will need to emulate the behavior of CARDINAL for these values (all can be represented using CARDINAL no matter what the host).<br>> >> > >> <br>> >> > >> I am concerned that these changes reflect a desire on your part to change the world to fit your specific needs (whether justified or not). The interfaces defined in M3CG were carefully designed and inherit from a long code-chain going back to the 1980's and have not see huge changes since then. I strongly advise against making changes unless you have good reason, because there are a number of tools that rely on M3CG (not just those in the public sources).<br>> >> > >> <br>> >> >
>> I am going to do a pass to revert some of your changes, since they are causing a number of my systems to fail to build. (cf. Niagara on tinderbox).<br>> >> > >> <br>> >> > >> I strongly advise that you try to use a private branch when developing new functionality. We as a community can then go through a revision process to vet substantive changes before merging them into the trunk.<br>> >> > >> <br>> >> > >> - Tony<br>> >> > >> <br>> >> ><br>> > <br>> <br></div> </div></div>
</div></blockquote></td></tr></table>