mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-26 11:52:25 +00:00
Reformat all C source files with Clang-format in Google style w/ 100 col width.
This commit is contained in:
Nick Briggs
184
src/allocmds.c
Executable file → Normal file
184
src/allocmds.c
Executable file → Normal file
@@ -1,9 +1,7 @@
|
||||
/* $Id: allocmds.c,v 1.4 1999/05/31 23:35:20 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
/* $Id: allocmds.c,v 1.4 1999/05/31 23:35:20 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
|
||||
*/
|
||||
static char *id = "$Id: allocmds.c,v 1.4 1999/05/31 23:35:20 sybalsky Exp $ Copyright (C) Venue";
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-98 Venue. All Rights Reserved. */
|
||||
@@ -18,19 +16,17 @@ static char *id = "$Id: allocmds.c,v 1.4 1999/05/31 23:35:20 sybalsky Exp $ Copy
|
||||
|
||||
#include "version.h"
|
||||
|
||||
|
||||
|
||||
/**********************************************************************/
|
||||
/*
|
||||
File Name : allocmds.c
|
||||
File Name : allocmds.c
|
||||
|
||||
Allocate Data Type(MDS)
|
||||
Allocate Data Type(MDS)
|
||||
|
||||
Date : August 18, 1987
|
||||
Edited by : Takeshi Shimizu
|
||||
Date : August 18, 1987
|
||||
Edited by : Takeshi Shimizu
|
||||
|
||||
Including : initmdspage
|
||||
alloc_mdspage
|
||||
Including : initmdspage
|
||||
alloc_mdspage
|
||||
|
||||
*/
|
||||
/**********************************************************************/
|
||||
@@ -45,11 +41,6 @@ static char *id = "$Id: allocmds.c,v 1.4 1999/05/31 23:35:20 sybalsky Exp $ Copy
|
||||
#include "sysatms.h"
|
||||
#include "lspglob.h"
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* Make_MDSEntry */
|
||||
@@ -61,41 +52,36 @@ static char *id = "$Id: allocmds.c,v 1.4 1999/05/31 23:35:20 sybalsky Exp $ Copy
|
||||
/* I consider that there is no case the variable named \GCDISABLED is set to T */
|
||||
/* #define Make_MDSentry(page,pattern) GETWORD((DLword *)MDStypetbl+(page>>1)) = (DLword)pattern */
|
||||
|
||||
static void __inline__
|
||||
Make_MDSentry( UNSIGNED page, DLword pattern)
|
||||
{
|
||||
GETWORD((DLword *)MDStypetbl+(page>>1)) = (DLword)pattern;
|
||||
static void __inline__ Make_MDSentry(UNSIGNED page, DLword pattern) {
|
||||
GETWORD((DLword *)MDStypetbl + (page >> 1)) = (DLword)pattern;
|
||||
}
|
||||
|
||||
|
||||
|
||||
/**********************************************************************/
|
||||
/*
|
||||
Func name : initmdspage
|
||||
Func name : initmdspage
|
||||
|
||||
Write the specified MDSTT entry with specified pattern.
|
||||
returns Top entry for free chain lisp address
|
||||
Write the specified MDSTT entry with specified pattern.
|
||||
returns Top entry for free chain lisp address
|
||||
|
||||
Date : December 24, 1986
|
||||
Edited by : Takeshi Shimizu
|
||||
Changed : Jun. 5 87 take
|
||||
Date : December 24, 1986
|
||||
Edited by : Takeshi Shimizu
|
||||
Changed : Jun. 5 87 take
|
||||
|
||||
*/
|
||||
/**********************************************************************/
|
||||
|
||||
LispPTR
|
||||
initmdspage(register LispPTR *base, register DLword size, register LispPTR prev)
|
||||
/* MDS page base */
|
||||
/* object cell size you need (WORD) */
|
||||
/* keeping top of previous MDS cell */
|
||||
LispPTR initmdspage(register LispPTR *base, register DLword size, register LispPTR prev)
|
||||
/* MDS page base */
|
||||
/* object cell size you need (WORD) */
|
||||
/* keeping top of previous MDS cell */
|
||||
|
||||
{
|
||||
extern DLword *MDStypetbl;
|
||||
|
||||
register int remain_size; /* (IREMAINDER WORDSPERPAGE SIZE) */
|
||||
register int remain_size; /* (IREMAINDER WORDSPERPAGE SIZE) */
|
||||
register short num_pages;
|
||||
register int limit;
|
||||
int used; /* used space in MDS page */
|
||||
int used; /* used space in MDS page */
|
||||
register int i;
|
||||
|
||||
#ifdef TRACE2
|
||||
@@ -104,109 +90,85 @@ initmdspage(register LispPTR *base, register DLword size, register LispPTR prev)
|
||||
|
||||
remain_size = DLWORDSPER_PAGE % size;
|
||||
|
||||
if( (remain_size != 0)
|
||||
&& (remain_size < (size >> 1)
|
||||
&& (size < DLWORDSPER_PAGE)))
|
||||
{
|
||||
num_pages = MDSINCREMENT / DLWORDSPER_PAGE; /* on 1121 maybe 2 */
|
||||
limit = DLWORDSPER_PAGE;
|
||||
}
|
||||
else
|
||||
{
|
||||
num_pages = 1;
|
||||
limit = MDSINCREMENT;
|
||||
}
|
||||
|
||||
for(i=0; i< num_pages; i++)
|
||||
{
|
||||
used=0;
|
||||
while((used += size)<= limit)
|
||||
{
|
||||
*base = prev; /* write prev MDS address to the top of MDS page */
|
||||
prev =LADDR_from_68k( base ); /* exchanging pointers */
|
||||
base = (LispPTR *)((DLword *)base + size);
|
||||
} /* while end */
|
||||
|
||||
base = (LispPTR *)((DLword *)base + remain_size );
|
||||
|
||||
} /* for end */
|
||||
|
||||
if ((remain_size != 0) && (remain_size < (size >> 1) && (size < DLWORDSPER_PAGE))) {
|
||||
num_pages = MDSINCREMENT / DLWORDSPER_PAGE; /* on 1121 maybe 2 */
|
||||
limit = DLWORDSPER_PAGE;
|
||||
} else {
|
||||
num_pages = 1;
|
||||
limit = MDSINCREMENT;
|
||||
}
|
||||
|
||||
for (i = 0; i < num_pages; i++) {
|
||||
used = 0;
|
||||
while ((used += size) <= limit) {
|
||||
*base = prev; /* write prev MDS address to the top of MDS page */
|
||||
prev = LADDR_from_68k(base); /* exchanging pointers */
|
||||
base = (LispPTR *)((DLword *)base + size);
|
||||
} /* while end */
|
||||
|
||||
base = (LispPTR *)((DLword *)base + remain_size);
|
||||
|
||||
} /* for end */
|
||||
|
||||
return (prev);
|
||||
} /* initmdspage end */
|
||||
|
||||
|
||||
|
||||
/**********************************************************************/
|
||||
/*
|
||||
Func name : alloc_mdspage
|
||||
Func name : alloc_mdspage
|
||||
|
||||
This version works only for KATANA-SUN
|
||||
This version works only for KATANA-SUN
|
||||
|
||||
Date : January 13, 1987
|
||||
Edited by : Takeshi Shimizu
|
||||
Changed : 3-Apr-87 (take)
|
||||
20-Aug-87(take) ifdef
|
||||
08-Oct-87(take) checkfull
|
||||
22-Dec-87(Take)
|
||||
Date : January 13, 1987
|
||||
Edited by : Takeshi Shimizu
|
||||
Changed : 3-Apr-87 (take)
|
||||
20-Aug-87(take) ifdef
|
||||
08-Oct-87(take) checkfull
|
||||
22-Dec-87(Take)
|
||||
|
||||
*/
|
||||
/**********************************************************************/
|
||||
|
||||
LispPTR *alloc_mdspage(register short int type) {
|
||||
extern LispPTR *MDS_free_page_word; /* Free MDS page number */
|
||||
|
||||
LispPTR *
|
||||
alloc_mdspage(register short int type)
|
||||
{
|
||||
|
||||
extern LispPTR *MDS_free_page_word; /* Free MDS page number */
|
||||
|
||||
extern DLword *Next_MDSpage; /* next vacant(new) MDS page */
|
||||
extern DLword *Next_MDSpage; /* next vacant(new) MDS page */
|
||||
extern LispPTR *Next_MDSpage_word;
|
||||
extern LispPTR *Next_Array_word;
|
||||
|
||||
LispPTR newpage(LispPTR base);
|
||||
|
||||
register LispPTR *ptr; /* points Top 32 bit of the MDS page */
|
||||
register LispPTR *ptr; /* points Top 32 bit of the MDS page */
|
||||
LispPTR next_page;
|
||||
|
||||
/* Next_Array=(DLword *)Addr68k_from_LADDR(((*Next_Array_word)& 0xffff ) << 8); */
|
||||
|
||||
if (LOLOC(*MDS_free_page_word) != NIL) {
|
||||
ptr = (LispPTR *)Addr68k_from_LPAGE(LOLOC(*MDS_free_page_word));
|
||||
|
||||
if(LOLOC(*MDS_free_page_word )!=NIL)
|
||||
{
|
||||
ptr= (LispPTR *)Addr68k_from_LPAGE(LOLOC(*MDS_free_page_word ));
|
||||
|
||||
if( ((next_page= LOLOC(*ptr))!=0 )
|
||||
&& (GetTypeNumber((*ptr))!= TYPE_SMALLP))
|
||||
error("alloc_mdspage: Bad Free Page Link");
|
||||
else {
|
||||
*MDS_free_page_word = S_POSITIVE | next_page;
|
||||
}
|
||||
if (((next_page = LOLOC(*ptr)) != 0) && (GetTypeNumber((*ptr)) != TYPE_SMALLP))
|
||||
error("alloc_mdspage: Bad Free Page Link");
|
||||
else {
|
||||
*MDS_free_page_word = S_POSITIVE | next_page;
|
||||
}
|
||||
else
|
||||
{
|
||||
/* I guess Next_MDSpage is redundant */
|
||||
checkfor_storagefull(NIL);
|
||||
} else {
|
||||
/* I guess Next_MDSpage is redundant */
|
||||
checkfor_storagefull(NIL);
|
||||
#ifdef BIGVM
|
||||
Next_MDSpage= (DLword *)Addr68k_from_LADDR(((*Next_MDSpage_word) ) << 8);
|
||||
Next_MDSpage = (DLword *)Addr68k_from_LADDR(((*Next_MDSpage_word)) << 8);
|
||||
#else
|
||||
Next_MDSpage= (DLword *)Addr68k_from_LADDR(((*Next_MDSpage_word)& 0xffff ) << 8);
|
||||
Next_MDSpage = (DLword *)Addr68k_from_LADDR(((*Next_MDSpage_word) & 0xffff) << 8);
|
||||
#endif
|
||||
ptr = (LispPTR *)Next_MDSpage; /* Get Pointer to First Page */
|
||||
Next_MDSpage -= DLWORDSPER_PAGE * 2; /* decrement MDS count */
|
||||
ptr = (LispPTR *)Next_MDSpage; /* Get Pointer to First Page */
|
||||
Next_MDSpage -= DLWORDSPER_PAGE * 2; /* decrement MDS count */
|
||||
#ifdef BIGVM
|
||||
*Next_MDSpage_word= LPAGE_from_68k(Next_MDSpage);
|
||||
*Next_MDSpage_word = LPAGE_from_68k(Next_MDSpage);
|
||||
#else
|
||||
*Next_MDSpage_word=S_POSITIVE| LPAGE_from_68k(Next_MDSpage);
|
||||
*Next_MDSpage_word = S_POSITIVE | LPAGE_from_68k(Next_MDSpage);
|
||||
#endif
|
||||
newpage(newpage(LADDR_from_68k(ptr)) + DLWORDSPER_PAGE);
|
||||
}
|
||||
|
||||
Make_MDSentry(LPAGE_from_68k(ptr),type);
|
||||
newpage(newpage(LADDR_from_68k(ptr)) + DLWORDSPER_PAGE);
|
||||
}
|
||||
|
||||
Make_MDSentry(LPAGE_from_68k(ptr), type);
|
||||
return (ptr);
|
||||
} /* alloc_mdspage end */
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user