Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix to field operations |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
5d978cd2dc119c725fc71cbceb9f82ad |
| User & Date: | bernd 2014-01-12 00:36:28 |
Context
|
2014-01-13
| ||
| 01:12 | Sensor stuff (getting sensor data crashes after a while) check-in: 6c22b329d1 user: bernd tags: trunk | |
|
2014-01-12
| ||
| 00:36 | Fix to field operations check-in: 5d978cd2dc user: bernd tags: trunk | |
| 00:10 | Sensor stuff redesigned check-in: bd42ea02bd user: bernd tags: trunk | |
Changes
Changes to gles2/jni-tools.fs.
109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 |
: s@f ( jobject jfid -- n ) fieldenv JNIEnv-GetShortField() ; : i@f ( jobject jfid -- n ) fieldenv JNIEnv-GetIntField() ; : j@f ( jobject jfid -- d ) fieldenv JNIEnv-GetLongField() ; : f@f ( jobject jfid -- r ) fieldenv JNIEnv-GetFloatField() ; : d@f ( jobject jfid -- r ) fieldenv JNIEnv-GetDoubleField() ; : l@f ( jobject jfid -- object ) fieldenv JNIEnv-GetObjectField() ; : z!f ( c jobject jfid -- ) rot >r fieldenv r> JNIEnv-SetBooleanField() ; : b!f ( c jobject jfid -- ) rot >r fieldenv r> JNIEnv-SetByteField() ; : c!f ( utf16 jobject jfid -- ) rot >r fieldenv r> JNIEnv-SetCharField() ; : s!f ( n jobject jfid -- ) rot >r fieldenv r> JNIEnv-SetShortField() ; : i!f ( n jobject jfid -- ) rot >r fieldenv r> JNIEnv-SetIntField() ; : j!f ( d jobject jfid -- ) 2swap 2>r fieldenv 2r> JNIEnv-SetLongField() ; : f!f ( r jobject jfid -- ) fieldenv JNIEnv-SetFloatField() ; : d!f ( r jobject jfid -- ) fieldenv JNIEnv-SetDoubleField() ; : l!f ( object jobject jfid -- ) rot >r fieldenv r> JNIEnv-SetObjectField() ; Create 'field@ '[' 1+ 'A' [DO] "x@f" over [i] swap c! current @ search-wordlist 0= [IF] ' 2drop [THEN] , [LOOP] Create 'field! '[' 1+ 'A' [DO] "x!f" over [i] swap c! current @ search-wordlist 0= [IF] ' 2drop [THEN] , [LOOP] |
| | | | | | | |
109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 |
: s@f ( jobject jfid -- n ) fieldenv JNIEnv-GetShortField() ; : i@f ( jobject jfid -- n ) fieldenv JNIEnv-GetIntField() ; : j@f ( jobject jfid -- d ) fieldenv JNIEnv-GetLongField() ; : f@f ( jobject jfid -- r ) fieldenv JNIEnv-GetFloatField() ; : d@f ( jobject jfid -- r ) fieldenv JNIEnv-GetDoubleField() ; : l@f ( jobject jfid -- object ) fieldenv JNIEnv-GetObjectField() ; : z!f ( c jobject jfid -- ) rot >r fieldenv r> swap JNIEnv-SetBooleanField() ; : b!f ( c jobject jfid -- ) rot >r fieldenv r> swap JNIEnv-SetByteField() ; : c!f ( utf16 jobject jfid -- ) rot >r fieldenv r> swap JNIEnv-SetCharField() ; : s!f ( n jobject jfid -- ) rot >r fieldenv r> swap JNIEnv-SetShortField() ; : i!f ( n jobject jfid -- ) rot >r fieldenv r> swap JNIEnv-SetIntField() ; : j!f ( d jobject jfid -- ) 2swap 2>r fieldenv 2r> rot JNIEnv-SetLongField() ; : f!f ( r jobject jfid -- ) fieldenv JNIEnv-SetFloatField() ; : d!f ( r jobject jfid -- ) fieldenv JNIEnv-SetDoubleField() ; : l!f ( object jobject jfid -- ) rot >r fieldenv r> swap JNIEnv-SetObjectField() ; Create 'field@ '[' 1+ 'A' [DO] "x@f" over [i] swap c! current @ search-wordlist 0= [IF] ' 2drop [THEN] , [LOOP] Create 'field! '[' 1+ 'A' [DO] "x!f" over [i] swap c! current @ search-wordlist 0= [IF] ' 2drop [THEN] , [LOOP] |