[teklib-general] teklib: Module base pointer type in stdcall and inline calls is ...

[Timm S. Mueller]

details:   http://hg.teklib.org/teklib/rev/93b339d16400
changeset: 234:93b339d16400
user:      Timm S. Mueller <tmueller at neoscientists.org>
date:      Wed Jan 14 01:50:25 2009 +0100
description:
Module base pointer type in stdcall and inline calls is reset to TAPTR

diffs (truncated from 2040 to 100 lines):

diff -r ca74efba3806 -r 93b339d16400 tek/idf/astro.idf
--- a/tek/idf/astro.idf	Wed Jan 14 00:43:53 2009 +0100
+++ b/tek/idf/astro.idf	Wed Jan 14 01:50:25 2009 +0100
@@ -12,7 +12,7 @@
 
 .prefix TAstro				; name prefix heading non-inline functions
 .iprefix T					; name prefix heading inline functions
-.this struct TAstroBase *astro	; first/implicit argument, default "TAPTR base"
+;.this struct TAstroBase *astro	; first/implicit argument, default "TAPTR base"
 .defv void					; aliases for void
 .defp TAPTR					; pointer types
 .defi TINT, TUINT, TBOOL	; 32bit integer types
diff -r ca74efba3806 -r 93b339d16400 tek/idf/display.idf
--- a/tek/idf/display.idf	Wed Jan 14 00:43:53 2009 +0100
+++ b/tek/idf/display.idf	Wed Jan 14 01:50:25 2009 +0100
@@ -7,7 +7,7 @@
 .author Timm S. Mueller <tmueller at neoscientists.org>
 .copyright See copyright notice in teklib/COPYRIGHT
 
-.this struct TDisplayBase *disp	; first/implicit argument, default "TAPTR base"
+;.this struct TDisplayBase *disp	; first/implicit argument, default "TAPTR base"
 .prefix TDisplay			; name prefix heading non-inline functions
 .iprefix T					; name prefix heading inline functions
 .ibase TAPTR TDisplayBase	; inline module base
diff -r ca74efba3806 -r 93b339d16400 tek/idf/exec.idf
--- a/tek/idf/exec.idf	Wed Jan 14 00:43:53 2009 +0100
+++ b/tek/idf/exec.idf	Wed Jan 14 01:50:25 2009 +0100
@@ -9,7 +9,7 @@
 .class library
 .name exec					; as in tek_init_exec
 ;.filename exec				; as in "exec.h", default name
-.this struct TExecBase *exec	; first/implicit argument, default "TAPTR base"
+;.this struct TExecBase *exec	; first/implicit argument, default "TAPTR base"
 ;.base exec					; function vector base, default .this
 .author Timm S. Mueller <tmueller at neoscientists.org>
 .copyright See copyright notice in teklib/COPYRIGHT
diff -r ca74efba3806 -r 93b339d16400 tek/idf/hal.idf
--- a/tek/idf/hal.idf	Wed Jan 14 00:43:53 2009 +0100
+++ b/tek/idf/hal.idf	Wed Jan 14 01:50:25 2009 +0100
@@ -8,7 +8,7 @@
 
 .class library
 .name hal					; as in tek_init_...
-.this struct THALBase *hal	; first/implicit argument, default "TAPTR base"
+;.this struct THALBase *hal	; first/implicit argument, default "TAPTR base"
 .copyright See copyright notice in teklib/COPYRIGHT
 
 .prefix THAL				; name prefix heading non-inline functions
diff -r ca74efba3806 -r 93b339d16400 tek/idf/io.idf
--- a/tek/idf/io.idf	Wed Jan 14 00:43:53 2009 +0100
+++ b/tek/idf/io.idf	Wed Jan 14 01:50:25 2009 +0100
@@ -16,7 +16,7 @@
 .defp TAPTR, TSTRPTR		; pointer types
 .defi TINT, TUINT, TBOOL	; 32bit integer types
 
-.this struct TIOBase *io	; first/implicit argument, default "TAPTR base"
+;.this struct TIOBase *io	; first/implicit argument, default "TAPTR base"
 .iprefix T
 .ibase TAPTR TIOBase
 .inline on
diff -r ca74efba3806 -r 93b339d16400 tek/idf/lua.idf
--- a/tek/idf/lua.idf	Wed Jan 14 00:43:53 2009 +0100
+++ b/tek/idf/lua.idf	Wed Jan 14 01:50:25 2009 +0100
@@ -9,7 +9,7 @@
 .class class
 .name lua5					; as in tek_init_lua5
 .filename lua				; as in "lua.h", default .name
-.this lua_State *L			; first/implicit argument, default "TAPTR base"
+;.this lua_State *L			; first/implicit argument, default "TAPTR base"
 .base LUASUPER(L)			; function vector base, default .this
 .copyright See copyright notice in teklib/COPYRIGHT
 
diff -r ca74efba3806 -r 93b339d16400 tek/idf/util.idf
--- a/tek/idf/util.idf	Wed Jan 14 00:43:53 2009 +0100
+++ b/tek/idf/util.idf	Wed Jan 14 01:50:25 2009 +0100
@@ -10,7 +10,7 @@
 .name util					; as in tek_init_...
 .copyright See copyright notice in teklib/COPYRIGHT
 
-.this struct TUtilBase *util	; first/implicit argument, default "TAPTR base"
+;.this struct TUtilBase *util	; first/implicit argument, default "TAPTR base"
 .prefix TUtil				; name prefix heading non-inline functions
 .iprefix T					; name prefix heading inline functions
 .ibase TAPTR TUtilBase		; inline module base
diff -r ca74efba3806 -r 93b339d16400 tek/inline/exec.h
--- a/tek/inline/exec.h	Wed Jan 14 00:43:53 2009 +0100
+++ b/tek/inline/exec.h	Wed Jan 14 01:50:25 2009 +0100
@@ -12,216 +12,216 @@
 #include <tek/proto/exec.h>
 
 #define TGetHALBase() \
-	(*(((TMODCALL struct THALBase *(**)(struct TExecBase *))(TExecBase))[-11]))(TExecBase)
+	(*(((TMODCALL struct THALBase *(**)(TAPTR))(TExecBase))[-11]))(TExecBase)
 
 #define TLoadModule(name,version,tags) \
-	(*(((TMODCALL struct TModule *(**)(struct TExecBase *,TSTRPTR,TUINT16,TTAGITEM *))(TExecBase))[-12]))(TExecBase,name,version,tags)
+	(*(((TMODCALL struct TModule *(**)(TAPTR,TSTRPTR,TUINT16,TTAGITEM *))(TExecBase))[-12]))(TExecBase,name,version,tags)
 
 #define TOpenModule(name,version,tags) \
-	(*(((TMODCALL struct TModule *(**)(struct TExecBase *,TSTRPTR,TUINT16,TTAGITEM *))(TExecBase))[-13]))(TExecBase,name,version,tags)