github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-20 17:47:48 +00:00
Code Issues Projects Releases Wiki Activity

Convert from Addr68k_from_LADDR/LADDR_from_68k to NativeAligned2FromLAddr/LAddrFromNative

Browse Source
This commit is contained in:
Nick Briggs 2022-08-28 16:47:41 -07:00
parent 34fc725758
commit 55a7a47598
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/truecolor.c
View File

@ -33,7 +33,7 @@
#define IntToFixp(C, Lisp) \
{ \
int *base; \
base = (int *)Addr68k_from_LADDR((unsigned int)Lisp); \
base = (int *)NativeAligned4FromLAddr((unsigned int)Lisp); \
*base = C; \
}
@ -152,7 +152,7 @@ int TrueColor_Initialize(LispPTR overlay_bmbase)
error("cgeight_init_color_display: Unsupported FBreal_type %d\n", DisplayType);
} /* end if( DisplayType ) */
OverlayRegion68k = Addr68k_from_LADDR(overlay_bmbase);
OverlayRegion68k = NativeAligned2FromLAddr(overlay_bmbase);
size = ((displaywidth * displayheight / 8 + (getpagesize() - 1)) & -getpagesize());
ScreenLocked = T;
@ -188,7 +188,7 @@ int TrueColor_Initialize(LispPTR overlay_bmbase)
ret_value = (unsigned int *)createcell68k(TYPE_FIXP);
*ret_value = pict;
return (LADDR_from_68k(ret_value));
return (LAddrFromNative(ret_value));
} /* end TrueColor_Initialize */
@ -204,7 +204,7 @@ int TrueColor_VideoInitialize(LispPTR videoenable_bmbase)
clear_video_region();
Video_Initialize(FrameBufferFd);
VideoEnableRegion68k = Addr68k_from_LADDR(videoenable_bmbase);
VideoEnableRegion68k = NativeAligned2FromLAddr(videoenable_bmbase);
size = ((displaywidth * displayheight / 8 + (getpagesize() - 1)) & -getpagesize());
source = mem_point(displaywidth, displayheight, 1, VideoEnableRegion68k);