Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
alpha64 stuff
authorClaus Gittinger <cg@exept.de>
Tue, 19 Aug 1997 22:41:08 +0200
changeset 2869 6fcc9aafb7c4
parent 2868 772c890f907c
child 2870 2939917c5119
alpha64 stuff
CompCode.st file | annotate | diff | comparison | revisions
CompiledCode.st file | annotate | diff | comparison | revisions
ExtAddr.st file | annotate | diff | comparison | revisions
ExternalAddress.st file | annotate | diff | comparison | revisions 
--- a/CompCode.st	Tue Aug 19 22:40:49 1997 +0200
+++ b/CompCode.st	Tue Aug 19 22:41:08 1997 +0200
@@ -825,7 +825,7 @@
 
 %{  /* NOCONTEXT */
 
-    int newFlags = __intVal(__INST(flags));
+    INT newFlags = __intVal(__INST(flags));
 
     /* made this a primitive to get define in stc.h */
     if (aBoolean == true)
@@ -891,7 +891,7 @@
 
 %{  /* NOCONTEXT */
 
-    int newFlags = __intVal(__INST(flags));
+    INT newFlags = __intVal(__INST(flags));
 
     /* made this a primitive to get define in stc.h */
     if (aBoolean == true)
@@ -957,7 +957,7 @@
               may (will ?)  crash smalltalk badly."
 
 %{  /* NOCONTEXT */
-    int f = __intVal(__INST(flags));
+    INT f = __intVal(__INST(flags));
 
     /* made this a primitive to get define in stc.h */
     if (__isSmallInteger(aNumber)) {
@@ -994,7 +994,7 @@
                a bad stack will be detected and triggers an error)"
 
 %{  /* NOCONTEXT */
-    int f = __intVal(__INST(flags));
+    INT f = __intVal(__INST(flags));
 
     /* made this a primitive to get define in stc.h */
     if (__isSmallInteger(aNumber)) {
@@ -1110,6 +1110,6 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.53 1997-07-31 22:31:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.54 1997-08-19 20:41:03 cg Exp $'
 ! !
 CompiledCode initialize!
--- a/CompiledCode.st	Tue Aug 19 22:40:49 1997 +0200
+++ b/CompiledCode.st	Tue Aug 19 22:41:08 1997 +0200
@@ -825,7 +825,7 @@
 
 %{  /* NOCONTEXT */
 
-    int newFlags = __intVal(__INST(flags));
+    INT newFlags = __intVal(__INST(flags));
 
     /* made this a primitive to get define in stc.h */
     if (aBoolean == true)
@@ -891,7 +891,7 @@
 
 %{  /* NOCONTEXT */
 
-    int newFlags = __intVal(__INST(flags));
+    INT newFlags = __intVal(__INST(flags));
 
     /* made this a primitive to get define in stc.h */
     if (aBoolean == true)
@@ -957,7 +957,7 @@
               may (will ?)  crash smalltalk badly."
 
 %{  /* NOCONTEXT */
-    int f = __intVal(__INST(flags));
+    INT f = __intVal(__INST(flags));
 
     /* made this a primitive to get define in stc.h */
     if (__isSmallInteger(aNumber)) {
@@ -994,7 +994,7 @@
                a bad stack will be detected and triggers an error)"
 
 %{  /* NOCONTEXT */
-    int f = __intVal(__INST(flags));
+    INT f = __intVal(__INST(flags));
 
     /* made this a primitive to get define in stc.h */
     if (__isSmallInteger(aNumber)) {
@@ -1110,6 +1110,6 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.53 1997-07-31 22:31:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.54 1997-08-19 20:41:03 cg Exp $'
 ! !
 CompiledCode initialize!
--- a/ExtAddr.st	Tue Aug 19 22:40:49 1997 +0200
+++ b/ExtAddr.st	Tue Aug 19 22:41:08 1997 +0200
@@ -115,9 +115,9 @@
 
 %{  /* NOCONTEXT */
 
-    unsigned addr;
+    unsigned INT addr;
 
-    addr = (unsigned)__INST(address_);
+    addr = (unsignedINT )__INST(address_);
     RETURN ( __MKUINT(addr));
 %}
 ! !
@@ -141,7 +141,7 @@
     "return a number useful for hashing"
 
 %{  /* NOCONTEXT */
-    unsigned addr = (unsigned) __externalAddressVal(self);
+    unsigned INT addr = (unsigned INT) __externalAddressVal(self);
 
     if (addr > _MAX_INT) {
 	if ((addr & 1) == 0) {
@@ -189,5 +189,5 @@
 !ExternalAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtAddr.st,v 1.7 1997-03-20 20:18:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtAddr.st,v 1.8 1997-08-19 20:41:08 cg Exp $'
 ! !
--- a/ExternalAddress.st	Tue Aug 19 22:40:49 1997 +0200
+++ b/ExternalAddress.st	Tue Aug 19 22:41:08 1997 +0200
@@ -115,9 +115,9 @@
 
 %{  /* NOCONTEXT */
 
-    unsigned addr;
+    unsigned INT addr;
 
-    addr = (unsigned)__INST(address_);
+    addr = (unsignedINT )__INST(address_);
     RETURN ( __MKUINT(addr));
 %}
 ! !
@@ -141,7 +141,7 @@
     "return a number useful for hashing"
 
 %{  /* NOCONTEXT */
-    unsigned addr = (unsigned) __externalAddressVal(self);
+    unsigned INT addr = (unsigned INT) __externalAddressVal(self);
 
     if (addr > _MAX_INT) {
 	if ((addr & 1) == 0) {
@@ -189,5 +189,5 @@
 !ExternalAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.7 1997-03-20 20:18:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.8 1997-08-19 20:41:08 cg Exp $'
 ! !
hg/stx-libbasic