X547

From 2baa0abbbb8a97b0c1eb70b1aeafcf7fdba25ad4 Mon Sep 17 00:00:00 2001
From: X512 <danger_mail@list.ru>
Date: Wed, 12 May 2021 18:03:24 +0900
Subject: WIP: Haiku patches, share UART with RISC-V machine

---
 Makefile        |   9 +-
 cutils.h        |   2 +-
 fs_disk.c       |  15 +++
 riscv_cpu.c     |   7 +-

X547

MODULE StdLoader;
(**
	project	= "BlackBox"
	organization	= "www.oberon.ch"
	contributors	= "Oberon microsystems"
	version	= "System/Rsrc/About"
	copyright	= "System/Rsrc/About"
	license	= "Docu/BB-License"
	changes	= ""
	issues	= ""

X547

MODULE WorkDecRISCV;
	
	IMPORT WorkDecoders;
	
	TYPE
		Decoder = POINTER TO RECORD (WorkDecoders.Decoder)
			name: WorkDecoders.Name;
		END;
	
	VAR

X547

#include <windows.h>
#include <stdio.h>

enum {
	threadCnt = 3,
};

HINSTANCE gInst;
HANDLE gThreads[threadCnt];