X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=device%2Flib%2F_gptrput.c;h=c83cf7bdcd5edd8d3284a6403cb0006bbe639887;hb=9f5f3caa74d66d5cc90eebec71a5e743f7c5a970;hp=d61c78ce8f9f9c0cdc0a893c804222f808a0a99a;hpb=ccaa1364f24ea0207b04e628c45f4ca2ff3e5083;p=fw%2Fsdcc

diff --git a/device/lib/_gptrput.c b/device/lib/_gptrput.c
index d61c78ce..c83cf7bd 100644
--- a/device/lib/_gptrput.c
+++ b/device/lib/_gptrput.c
@@ -31,21 +31,24 @@ unsigned char _gptrput ()
 	xch      a,r0
 	push     acc
     ;
-    ;   depending on the pointer type
+    ;   depending on the pointer type acc. to SDCCsymt.h
     ;
         mov     a,b
-	jz      00001$
+	jz      00001$	; 0 near
         dec     a
-        jz      00002$
+        jz      00002$	; 1 far
         dec     a
-        jz      00003$
+        jz      00003$	; 2 code
         dec     a
         jz      00004$
+	dec	a	; 4 skip generic pointer
+	dec	a
+	jz	00001$	; 5 idata
 	pop     acc
 	sjmp    00005$
 ;
 ;       store into near space
-;       
+;
  00001$:
 	pop     acc
 	mov     r0,dpl
@@ -65,7 +68,7 @@ unsigned char _gptrput ()
 	pop     acc
 	mov     r0,dpl
 	movx    @r0,a
- 00005$:       
+ 00005$:
 	xch     a,r0
 	pop     acc
 	xch     a,r0